1
2
3 dcl ( ps_stack init(0),
4 ps_symbol_top init(2),
5 ps_symbol_block init(4),
6 ps_format_area init(6),
7 ps_ssl init(8),
8 ps_label init(10),
9 ps_source init(16),
10 ps_special_list init(18),
11 ps_set_p init(18),
12 ps_copy init(20),
13 ps_var_bitlen init(21),
14 ps_job init(22),
15 ps_number init(23),
16 ps_value init(24),
17 ps_var_p init(24),
18 ps_descriptor init(26),
19 ps_offset init(28),
20 ps_prep init(29),
21 ps_lock_sw init(29),
22 ps_new_format init(30),
23 ps_key init(48) ) fixed bin(15) static internal options(constant);
24