1 /* BEGIN INCLUDE FILE gfms_description_tree.incl.pl1   (Wardd Multics)  10/28/80 1222.2 mst Tue */
 2 dcl 1 description_tree        aligned based(dtp)
 3 
 4 ,     3 start_list
 5 ,       4 cat_child           (0:1020)fixed bin(18)unsigned
 6 ,       4 file_child          (0:1020)fixed bin(18)unsigned
 7 ,       4 desc                (0:1020)fixed bin(18)unsigned
 8 
 9 ,     3 n_cat                 fixed bin
10 ,     3 cat                   (20000)
11 ,       4 name                bit(72)
12 ,       4 ascii_name          char(12)var
13 ,       4 is_cat              bit(1)unal
14 ,       4 fill                bit(17)unal
15 ,       4 parent_sector       fixed bin(18)unsigned unal
16 ,       4 child_sector        fixed bin(18)unsigned unal
17 ,       4 child_link          fixed bin(18)unsigned unal
18 
19 ,     3 n_desc                fixed bin
20 ,     3 description           (19000)
21 ,       4 link                fixed bin(18)unsigned unal
22 ,       4 sector              fixed bin(18)unsigned unal
23 ,       4 name                bit(72)
24 ,       4 attributes
25 ,         5 max_size_llinks   fixed bin(18)unsigned unal
26 ,         5 mode              bit(4)unal          /* 1000 seq 0100 random 0010 ascii 0001 ids */
27 ,         5 not_in_use        bit(14)unal
28 ,         5 user_info
29 ,           6 present         bit(1)unal
30 ,           6 value           bit(35)unal
31 ;
32 
33 /*   END INCLUDE FILE gfms_description_tree.incl.pl1 */