1 /* BEGIN INCLUDE FILE ... list.incl.pl1 */
 2 
 3 /* Modified 26 June 81 by EBush to add max_list_elements */
 4 
 5 
 6 dcl       1 list              based aligned,
 7           2 node_type         bit(9) unaligned,
 8           2 reserved          bit(12) unaligned,
 9           2 number            fixed(14) unaligned,
10           2 element           dimension(n refer(list.number)) ptr unaligned;
11 
12 dcl       max_list_elements   fixed bin(17) internal static options (constant)
13                               init(16383);
14 
15 /* END INCLUDE FILE ... list.incl.pl1 */