1      declare                  /* Structures returned by hcs_$star_list_ */
 2 
 3 
 4           1 entries (total_entries) aligned based (entries_ptr),      /* general structure of an entry */
 5 
 6             2 type bit(2) unaligned,                                  /* type of entry */
 7             2 number_names bit(16) unaligned,                         /* number of names on entry */
 8             2 names_index bit(18) unaligned,                          /* index in names array of first entry */
 9             2 date_time_modified bit(36) unaligned,                   /* date time last modified */
10             2 pad1 bit(36) unaligned,                                 /* different for branches and links */
11             2 pad2 bit(36) unaligned,                                 /* different for branches and links */
12 
13 
14           1 branches (total_entries) aligned based (entries_ptr),     /* complete information for an branch */
15 
16             2 type bit(2) unaligned,                                  /* as above */
17             2 number_names bit(16) unaligned,
18             2 names_index bit(18) unaligned,
19             2 date_time_modified bit(36) unaligned,
20             2 date_time_used bit(36) unaligned,                       /* date time last used */
21             2 mode bit(5) unaligned,                                  /* effective user access mode */
22             2 pad bit(13) unaligned,
23             2 records bit(18) unaligned,                              /* records allocated */
24 
25 
26           1 links (total_entries) aligned based (entries_ptr),        /* complete information for a link */
27 
28             2 type bit(2) unaligned,                                  /* as above */
29             2 number_names bit(16) unaligned,
30             2 names_index bit(18) unaligned,
31             2 date_time_modified bit(36) unaligned,                   /* date time entry modified */
32             2 date_time_dumped bit(36) unaligned,                     /* date time entry dumped */
33             2 pathname_len bit(18) unaligned,                         /* length of target pathname */
34             2 pathname_index bit(18) unaligned,                       /* index in names array of first part of path */
35 
36 
37           names (total_names) character(32) aligned based (names_ptr),     /* array of names returned */
38 
39 
40           pathname character(fixed (links(link_index).pathname_len)) aligned based
41              (addr (names(fixed (links(link_index).pathname_index)))),
42                                                                       /* pathname of link being examined */
43 
44 
45           entries_ptr pointer,
46           names_ptr pointer;
47 
48