1 /* BEGIN INCLUDE FILE ... entry_access_info.incl.pl1 */
 2 
 3 /*
 4    Written  03/22/85 by M. Pandolf
 5    Modified 1985-04-19, BIM: added parent access class.
 6 */
 7 
 8 dcl  entry_access_info_ptr pointer;
 9 dcl  ENTRY_ACCESS_INFO_VERSION_1 char (8) internal static options (constant)
10      init ("eainf001");
11 
12 dcl 1 entry_access_info aligned based (entry_access_info_ptr),
13     2 version char (8),                                     /* = ENTRY_ACCESS_INFO_VERSION_1 */
14     2 type fixed bin,                                       /* see status_structures.incl.pl1 */
15     2 dir_name char (168) unaligned,                        /* parent of this entry */
16     2 entryname char (32) unaligned,                        /* primary name of this entry */
17     2 uid bit (36) aligned,
18     2 ring_brackets (3) fixed bin (3),                      /* for dirs, the dir ring brackets are here */
19     2 extended_ring_brackets (3) fixed bin (3),             /* not-yet-implemented x-rb's */
20     2 effective_access_modes bit (36) aligned,              /* for dirs, dir mode is here */
21     2 extended_access_modes bit (36) aligned,               /* always null for dirs */
22     2 access_class bit (72) aligned,                        /* for multiclass, max access class */
23     2 parent_access_class bit (72) aligned,                 /* for multiclass, this is effectively the min access class */
24     2 multiclass bit (1) aligned;
25 
26 /* END INCLUDE FILE ... entry_access_info.incl.pl1 */