1      declare                  /* Structure returned by hcs_$status_long */
 2 
 3           1 branch_status aligned,                                    /* automatic: hcs_$status uses a pointer */
 4 
 5             2 type bit(2) unaligned,                                  /* type of entry: link, segment, dir */
 6             2 number_names bit(16) unaligned,                         /* unused by directory_status_ */
 7             2 names_rel_pointer bit(18) unaligned,                    /* unused by directory_status_ */
 8             2 date_time_modified bit(36) unaligned,                   /* date time modified */
 9             2 date_time_used bit(36) unaligned,                       /* date time entry used */
10             2 mode bit(5) unaligned,                                  /* effective access of caller */
11             2 raw_mode bit(5) unaligned,
12             2 pad1 bit(8) unaligned,
13             2 records bit(18) unaligned,                              /* number of records in use */
14             2 date_time_dumped bit(36) unaligned,                     /* date time last dumped */
15             2 date_time_entry_modified bit(36) unaligned,             /* date time entry modified */
16             2 lvid bit(36) unaligned,                                 /* logical volume id */
17             2 current_length bit(12) unaligned,                       /* number of blocks currently allocated */
18             2 bit_count bit(24) unaligned,                            /* bit count of entry */
19             2 pad3 bit(8) unaligned,
20             2 copy_switch bit(1) unaligned,                           /* the copy switch */
21             2 tpd bit(1) unaligned,                                   /* transparent to paging device */
22             2 mdir bit(1) unaligned,                                  /* master directory switch */
23             2 damaged_switch bit (1) unaligned,                       /* true if contents damaged */
24             2 synchronized_switch bit (1) unaligned,                  /* true if a DM synchronized file */
25             2 pad4 bit(5) unaligned,
26             2 ring_brackets (0:2) bit(6) unaligned,                   /* branch ring brackets */
27             2 unique_id bit(36) unaligned,                            /* entry unique id */
28 
29 
30                /* The types of each class of branch */
31           segment_type bit(2) aligned internal static initial ("01"b),
32           directory_type bit(2) aligned internal static initial ("10"b),
33           msf_type bit(2) aligned internal static initial ("10"b),    /* will eventually be different */
34           link_type bit(2) aligned internal static initial ("00"b);
35 
36