1
2
3
4
5 dcl ( bits_per_char init(9),
6 bits_per_half init(18),
7 bits_per_word init(36),
8 bits_per_two_words init(72),
9 bits_per_four_words init(144),
10 bits_per_words(2) init(36,72),
11 packed_digits_per_char init(2),
12 chars_per_word init(4),
13 packed_digits_per_word init(8),
14
15 break_even_bits init(216),
16 break_even_words init(6),
17
18 label_size init(4),
19
20 convert_size(13:14) init(9,1),
21 max_offset(13:14) init(27,35),
22 max_short_size(13:14) init(8,72),
23
24 units_per_word(0:5) init(1,36,8,4,2,1),
25
26 max_dec_scale init(32),
27 min_dec_scale init(-31),
28 max_p_xreg init(18),
29 max_p_fix_bin_1 init(35),
30 max_p_flt_bin_1 init(27),
31 max_p_fix_dec init(59),
32 max_length_p init(24),
33 default_fix_bin_p init(17)) fixed bin(8) int static options(constant);
34
35 dcl (convert_offset(0:5) init(36,1,4.5,9,18,36),
36 bits_per_packed_digit init(4.5)) fixed bin(8,1) int static options(constant);
37
38 dcl max_index_register_value init(262143) fixed bin(31) int static options(constant);
39
40
41