1
2
3
4
5 dcl ( block_node initial("000000001"b),
6 statement_node initial("000000010"b),
7 operator_node initial("000000011"b),
8 reference_node initial("000000100"b),
9 token_node initial("000000101"b),
10 symbol_node initial("000000110"b),
11 context_node initial("000000111"b),
12 array_node initial("000001000"b),
13 bound_node initial("000001001"b),
14 format_value_node initial("000001010"b),
15 list_node initial("000001011"b),
16 default_node initial("000001100"b),
17 machine_state_node initial("000001101"b),
18 source_node initial("000001110"b),
19 label_node initial("000001111"b),
20 cross_reference_node initial("000010000"b),
21 sf_par_node initial("000010001"b),
22 temporary_node initial("000010010"b),
23 label_array_element_node initial("000010011"b),
24 by_name_agg_node initial("000010100"b))
25 bit(9) internal static aligned options(constant);
26
27 dcl 1 node based aligned,
28 2 type unal bit(9),
29 2 source_id unal structure,
30 3 file_number bit(8),
31 3 line_number bit(14),
32 3 statement_number bit(5);
33
34