1 /* Begin include file mseg_access_operation.incl.pl1 BIM 1098-04-18 */
 2 /* format: style3,idind30 */
 3 
 4 declare   mseg_access_operation_ptr     pointer;
 5 declare   1 mseg_access_operation       aligned based (mseg_access_operation_ptr),
 6             2 access_operation          bit (36) aligned,
 7             2 required_modes            bit (36) aligned,   /* ""b if no modes required */
 8             2 flags                     unaligned,
 9               3 dont_audit              bit (1) unaligned,
10               3 dont_audit_success      bit (1) unaligned,
11               3 non_null_modes          bit (1) unaligned,
12               3 no_modes                bit (1) unaligned,
13               3 o_for_r                 bit (1) unaligned,  /* if no r, o will do */
14               3 o_for_d                 bit (1) unaligned,  /* if no d, o will do */
15               3 admin                   bit (1) unaligned,
16               3 dir_modes               bit (1) unaligned, /* dir mode is needed */
17               3 dir_modes_or_ex_modes   bit (1) unaligned, /* if not ex-mode, dir mode */
18               3 pad                     bit (9) unaligned,
19             2 required_dir_modes        bit (3) unaligned,
20             2 pad1                      bit (6) unaligned,
21             2 mseg_access_op_index      fixed bin (9) uns unaligned,
22             2 pad2                      bit (36) aligned;
23 
24 declare   (
25           MSEG_READ_SEG_ATTR            init (1),           /* any attribute */
26           MSEG_MODIFY_SEG_ATTR          init (2),           /* any attribute, access or no */
27           MSEG_COPY_SEG                 init (3),           /* reference a segment for copying */
28           MSEG_CREATE_SEG               init (4),           /* check on candidate parent dir */
29           MSEG_ADD_MESSAGE              init (5),           /* append */
30           MSEG_MODIFY_MESSAGE           init (6),           /* update/delete */
31           MSEG_ACCEPT_WAKEUPS           init (7),           /* what the sign says */
32           MSEG_READ_MESSAGE             init (8)            /* ditto */
33           )                             fixed bin (9) int static options (constant);
34 
35 dcl       1 mseg_access_operations_$data
36                                         (25) external static aligned like mseg_access_operation;
37 
38 /* End include file mseg_access_operation.incl.pl1 */