1
2
3 dcl ( unknown_statement initial("000000000"b),
4 allocate_statement initial("000000001"b),
5 assignment_statement initial("000000010"b),
6 begin_statement initial("000000011"b),
7 call_statement initial("000000100"b),
8 close_statement initial("000000101"b),
9 declare_statement initial("000000110"b),
10 lock_statement initial("000000111"b),
11 delete_statement initial("000001000"b),
12 display_statement initial("000001001"b),
13 do_statement initial("000001010"b),
14 else_clause initial("000001011"b),
15 end_statement initial("000001100"b),
16 entry_statement initial("000001101"b),
17 exit_statement initial("000001110"b),
18 format_statement initial("000001111"b),
19 free_statement initial("000010000"b),
20 get_statement initial("000010001"b),
21 goto_statement initial("000010010"b),
22 if_statement initial("000010011"b),
23 locate_statement initial("000010100"b),
24 null_statement initial("000010101"b),
25 on_statement initial("000010110"b),
26 open_statement initial("000010111"b),
27 procedure_statement initial("000011000"b),
28 put_statement initial("000011001"b),
29 read_statement initial("000011010"b),
30 return_statement initial("000011011"b),
31 revert_statement initial("000011100"b),
32 rewrite_statement initial("000011101"b),
33 signal_statement initial("000011110"b),
34 stop_statement initial("000011111"b),
35 system_on_unit initial("000100000"b),
36 unlock_statement initial("000100001"b),
37 wait_statement initial("000100010"b),
38 write_statement initial("000100011"b),
39 default_statement initial("000100100"b),
40 continue_statement initial("000100101"b)) bit(9) internal static aligned options(constant);