1 /*     BEGIN INCLUDE FILE ... dir_ht.incl.pl1 */
 2 
 3 
 4 dcl htp ptr;
 5 
 6 dcl 1 hash_table based (htp) aligned,                       /* htp = ptr(dp,active_hardcore_data$htrp) */
 7     2 modify bit (36) unal,
 8     2 type bit (18) unal,                                   /* type = dir hash table */
 9     2 size fixed bin (17) unal,                             /* size of current dir hash table entry */
10     2 name_rp (0:1) bit(18) unal,                           /* rel ptr of name entry  */
11     2 checksum bit (36) unal,
12     2 owner bit (36) unal;
13                                                             /* otherwise rel ptr to name */
14 
15 /*     END INCLUDE FILE ... dir_ht.incl.pl1 */