1 /* BEGIN INCLUDE FILE ... _imft_check_acl.incl.pl1 */
 2 
 3 /* format: style4 */
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(88-09-21,Beattie), approve(88-08-01,MCR7948),
 7      audit(88-10-14,Farley), install(88-10-14,MR12.2-1165):
 8      Created to support IMFT ACL checking.
 9                                                    END HISTORY COMMENTS */
10 
11 dcl  1 imft_check_acl aligned based (imft_check_acl_ptr),
12        2 version character (8),                             /* version of this structure */
13        2 flags,
14          3 allow_transfer bit (1) unaligned,                /* indicates that transfer is allowed to start */
15          3 objects_to_transfer bit (1) unaligned,           /* indicates that objects were found in subtree that passed all checks */
16          3 check_aim bit (1) unaligned,                     /* do aim checks */
17          3 found_inner_ring_object bit (1) unaligned,       /* an inner ring object was detected */
18          3 pad bit (32) unaligned,
19        2 dirname character (168),                           /* containing directory of object */
20        2 ename character (32),                              /* entry name of object */
21        2 type character (32),                               /* type of object */
22        2 object_ring fixed binary (3),                      /* first ring bracket of object */
23        2 sys_auth_ceiling bit (72),                         /* system auth ceiling */
24        2 sys_auth_floor bit (72),                           /* system auth floor */
25        2 user_auth bit (72),                                /* user's authorization */
26        2 foreign_sys_name character (32),                   /* for error message */
27        2 gen_acl_ptr pointer,                               /* ptr to general ACL array */
28        2 dir_access bit (3),                                /* desired ACL for directories */
29        2 seg_access bit (3),                                /* desired ACL for segments */
30        2 effective_ring,                                    /* minimum ring for object to allow transfer */
31        2 bad_acl_idx fixed bin,                             /* index in ACL array which failed ACL checks */
32        2 error_code fixed bin (35),                         /* standard error code */
33        2 error_message (2) character (512) varying,         /* contains an error message */
34        2 accessfile_pathname character (168);               /* collect access error mesages here if subtree checking */
35 
36 dcl  imft_check_acl_ptr pointer;
37 
38 dcl  DRIVER_ACL_IDX fixed binary int static options (constant) initial (1);
39 dcl  USER_ACL_IDX fixed binary int static options (constant) initial (2);
40 
41 dcl  IMFT_CHECK_ACL_VERSION_1 character (8) init ("IMFTCA01") internal static options (constant);
42 
43 /* END INCLUDE FILE ... _imft_check_acl.incl.pl1 */