1 /* BEGIN INCLUDE FILE mdbm_segment_acl.incl.pl1 -- jccj 5/1/78 */ 2 3 dcl 1 segment_acl (acl_count) aligned based (acl_ptr), 4 2 access_name char (32), 5 2 modes bit (36), 6 2 zero_pad bit (36), 7 2 status_code fixed bin (35); 8 9 dcl acl_count fixed bin; 10 dcl acl_ptr ptr; 11 12 /* END INCLUDE FILE mdbm_segment_acl.incl.pl1 */ 13