1 /* Begin include file -- acl_structures.incl.pl1 BIM 3/82 */
 2 /* format: style3,indcomtxt,idind30 */
 3 
 4 declare   acl_ptr                       pointer;
 5 declare   acl_count                     fixed bin;
 6 
 7 declare 1 general_acl                   aligned based (acl_ptr), /* for fs_util_ */
 8           2 version                     char (8) aligned,
 9           2 count                       fixed bin,
10           2 entries                     (acl_count refer (general_acl.count)) aligned like general_acl_entry;
11 
12 declare 1 general_acl_entry             based,
13           2 access_name                 character (32) unaligned,
14           2 mode                        bit (36) aligned,
15           2 status_code                 fixed bin (35);
16 
17 
18 declare 1 general_extended_acl          aligned based (acl_ptr), /* for fs_util_ */
19           2 version                     char (8) aligned,
20           2 count                       fixed bin,
21           2 entries                     (acl_count refer (general_extended_acl.count)) aligned like general_extended_acl_entry;
22 
23 declare 1 general_extended_acl_entry    aligned based,
24           2 access_name                 character (32) unaligned,
25           2 mode                        bit (36) aligned,
26           2 extended_mode               bit (36) aligned,
27           2 status_code                 fixed bin (35);
28 
29 
30 declare 1 general_delete_acl            aligned based (acl_ptr), /* for file_system_ */
31           2 version                     char (8) aligned,
32           2 count                       fixed bin,
33           2 entries                     (acl_count refer (general_delete_acl.count)) aligned like delete_acl_entry;
34 
35 declare 1 general_delete_acl_entry      aligned based,
36           2 access_name                 character (32) unaligned,
37           2 status_code                 fixed bin (35);
38 
39 
40 declare 1 segment_acl                   aligned based (acl_ptr),
41           2 version                     fixed bin,
42           2 count                       fixed bin,
43           2 entries                     (acl_count refer (segment_acl.count)) aligned like segment_acl_entry;
44 
45 declare 1 segment_acl_entry             like general_extended_acl_entry aligned based;
46 declare 1 segment_acl_array             (acl_count) aligned like segment_acl_entry based (acl_ptr);
47 
48 
49 declare 1 directory_acl                 aligned based (acl_ptr),
50           2 version                     fixed bin,
51           2 count                       fixed bin,
52           2 entries                     (acl_count refer (directory_acl.count)) aligned like directory_acl_entry;
53 
54 declare 1 directory_acl_entry           like general_acl_entry aligned based;
55 declare 1 directory_acl_array           (acl_count) aligned like directory_acl_entry based (acl_ptr);
56 
57 
58 declare 1 delete_acl                    based (acl_ptr) aligned,
59           2 version                     fixed bin,
60           2 count                       fixed bin,
61           2 entries                     (acl_count refer (delete_acl.count)) aligned like delete_acl_entry;
62 
63 declare 1 delete_acl_entry              like general_delete_acl_entry aligned based;
64 declare 1 delete_acl_array              (acl_count) aligned like delete_acl_entry based (acl_ptr);
65 
66 
67 declare  (SEG_ACL_VERSION_1             init ("sga1"),
68           DIR_ACL_VERSION_1             init ("dra1"),
69           DELETE_ACL_VERSION_1          init ("dla1"))
70                                         char (4) int static options (constant);
71 
72 declare  (GENERAL_ACL_VERSION_1         init ("gacl001"),
73           GENERAL_EXTENDED_ACL_VERSION_1 init ("gxacl001"),
74           GENERAL_DELETE_ACL_VERSION_1  init ("gdacl001"))
75                                         char (8) internal static options (constant);
76 
77 declare   ACL_VERSION_1                 fixed bin init (1) int static options (constant);
78 
79 /* End include file acl_structures.incl.pl1 */