1 /* BEGIN INCLUDE FILE ... operator.incl.pl1 */
 2 
 3 /*        Modified: 2 Apr 1980 by PCK to add max_number_of_operands */
 4 
 5 /* format: style3 */
 6 dcl       1 operator          based aligned,
 7             2 node_type       bit (9) unaligned,
 8             2 op_code         bit (9) unaligned,
 9             2 shared          bit (1) unaligned,
10             2 processed       bit (1) unaligned,
11             2 optimized       bit (1) unaligned,
12             2 number          fixed (14) unaligned,
13             2 operand         dimension (n refer (operator.number)) ptr unaligned;
14 
15 dcl       max_number_of_operands
16                               fixed bin (15) int static options (constant) initial (32767);
17 
18 /* END INCLUDE FILE ... operator.incl.pl1 */