1 dcl (     real_fix_bin_1                init(1),
 2           real_fix_bin_2                init(2),
 3           real_flt_bin_1                init(3),
 4           real_flt_bin_2                init(4),
 5           complex_fix_bin_1             init(5),
 6           complex_fix_bin_2             init(6),
 7           complex_flt_bin_1             init(7),
 8           complex_flt_bin_2             init(8),
 9           real_fix_dec                  init(9),
10           real_flt_dec                  init(10),
11           complex_fix_dec               init(11),
12           complex_flt_dec               init(12),
13           char_string                   init(13),
14           bit_string                    init(14),
15           label_constant                init(15),
16           local_label_variable          init(16),
17           label_variable                init(17),
18           entry_variable                init(18),
19           ext_entry_in                  init(19),
20           ext_entry_out                 init(20),
21           int_entry                     init(21),
22           int_entry_other               init(22),
23           unpacked_ptr                  init(23),
24           packed_ptr                    init(24)) fixed bin(15) int static options(constant);