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 */