1 /* Beginning of include file dart_access_word.incl.pl1 */
 2 
 3 dcl  access_pointer pointer;
 4 dcl  access_word bit(36) based(access_pointer);
 5 
 6 dcl
 7           1 bits aligned based(access_pointer),
 8                2 without_password,                          /* 18 bits of access without password */
 9                     3 catalog bit(1) unal,                  /* entry is a sub-catalog */
10                     3 password bit(1) unal,                 /* entry is password protected */
11                     3 bit_2 bit(1) unal,                    /* unused */
12                     3 owner bit(1) unal,
13                     3 bit_4 bit(1) unal,                    /* unused */
14                     3 execute bit(1) unal,                  /* either code is executable or directory can be searched */
15                     3 append bit(1) unal,
16                     3 write bit(1) unal,
17                     3 read bit(1) unal,
18                     3 listable bit(1) unal,                 /* the list command may be issued on this file */
19                     3 saveable bit(1) unal,                 /* file may be saved */
20                     3 compile bit(1) unal,                  /* compiled code to be run with a run-time package */
21                     3 public bit(1) unal,                   /* re *.*.* */
22                     3 group bit(1) unal,                    /* re *.Project.* */
23                     3 system_code bit(4) unal,              /* See dart_catalog.incl.pl1 */
24 
25                2 with_password,                             /* 18 bits of access with password */
26                     3 executive_trap bit(1) unal,
27                     3 slave_trap bit(1) unal,
28                     3 bit_20 bit(1) unal,                   /* unused */
29                     3 owner bit(1) unal,
30                     3 bit_22 bit(1) unal,                   /* unused */
31                     3 execute bit(1) unal,                  /*=EITHER CODE IS EXECUTABLE OR DIRECTORY CAN BE SEARCHED */
32                     3 append bit(1) unal,
33                     3 write bit(1) unal,
34                     3 read bit(1) unal,
35                     3 listable bit(1) unal,                 /* the list command may be issued on this file */
36                     3 saveable bit(1) unal,                 /* file may be saved */
37                     3 compile bit(1) unal,                  /* compiled code to be run with run-time package */
38                     3 public bit(1) unal,                   /* re *.*.* */
39                     3 group bit(1) unal,                    /* re *.Project.* */
40                     3 system_code bit(4) unal;              /* See dart_catalog.incl.pl1 */
41 
42 
43 dcl
44           1 access_fields aligned based(access_pointer),
45                2 access_with_password bit(18) unal,
46                2 access_without_password bit(18) unal;
47 
48 /* End of include file dart_access_word.incl.pl1 */