1 %include toklst;
 2 
 3 dcl       t ptr initial(addr(tree_$));
 4 dcl       list(0:3000) ptr based(t);
 5 
 6 dcl       1 t_table based(list(k)),
 7           2 node_type fixed bin(15),
 8           2 size fixed bin(15),
 9           2 context ptr,
10           2 declaration ptr,
11           2 next ptr,
12           2 type fixed bin(15),
13           2 string aligned char(n refer(t_table.size));
14