1 dcl       pl1_stat_$token_list_ptr ptr external static;               /* pointer to token list      */
 2 dcl       token_list(token_list_length) ptr based(token_list_pointer);
 3 dcl       token_list_pointer ptr initial(pl1_stat_$token_list_ptr);   /* for efficiency only */
 4 dcl       token_list_length fixed(15) internal static initial(3000) options(constant);
 5 
 6 dcl       1 pl1_stat_$statement_id      external static,
 7           2 file_number                 bit(8),
 8           2 line_number                 bit(14),
 9           2 statement_number            bit(5);
10 
11 dcl       1 t_table                     based(token_list(k)) aligned,
12           2 node_type                   bit(9) unaligned,
13           2 type                        bit(9) unaligned,
14           2 loc                         bit(18) unaligned,
15           2 declaration                 ptr unaligned,
16           2 next                        ptr unaligned,
17           2 size                        fixed(9),
18           2 string                      char(n refer(t_table.size));