1
2
3 dcl ( unknown_statement initial(0),
4 allocate_statement initial(1),
5 assignment_statement initial(2),
6 begin_statement initial(3),
7 call_statement initial(4),
8 close_statement initial(5),
9 declare_statement initial(6),
10 delay_statement initial(7),
11 delete_statement initial(8),
12 display_statement initial(9),
13 do_statement initial(10),
14 else_clause initial(11),
15 end_statement initial(12),
16 entry_statement initial(13),
17 exit_statement initial(14),
18 format_statement initial(15),
19 free_statement initial(16),
20 get_statement initial(17),
21 goto_statement initial(18),
22 if_statement initial(19),
23 locate_statement initial(20),
24 null_statement initial(21),
25 on_statement initial(22),
26 open_statement initial(23),
27 procedure_statement initial(24),
28 put_statement initial(25),
29 read_statement initial(26),
30 return_statement initial(27),
31 revert_statement initial(28),
32 rewrite_statement initial(29),
33 signal_statement initial(30),
34 stop_statement initial(31),
35 system_on_unit initial(32),
36 unlock_statement initial(33),
37 wait_statement initial(34),
38 write_statement initial(35)) fixed bin(15) internal static;