1 /* BEGIN INCLUDE FILE gtss_filact_permissions.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  09/08/78 1018.0 mst Fri
 4 */
 5 dcl  permissions_ptr          ptr init(null());
 6 dcl 1 permissionsx            aligned based(permissions_ptr)
 7 ,     3 r                     bit(01)unal         /* Read permission.           */
 8 ,     3 w                     bit(01)unal         /* Write permission.          */
 9 ,     3 a                     bit(01)unal         /* Append permission.         */
10 ,     3 e                     bit(01)unal         /* Execute permission.        */
11 ,     3 p                     bit(01)unal         /* Purge permission.          */
12 ,     3 m                     bit(01)unal         /* Modify permission.         */
13 ,     3 l                     bit(01)unal         /* Lock permission.           */
14 ,     3 bit_07                bit(01)unal         /* (not used). */
15 ,     3 c                     bit(01)unal         /* Create permission.         */
16 ,     3 x                     bit(01)unal         /* Recovery permission.       */
17 ,     3 bits10_35             bit(26)unal         /* (not used). */
18 ;
19 
20 /*   END INCLUDE FILE gtss_filact_permissions.incl.pl1 */