1
2
3 dcl ( structure_mask init("100000000000000000000000000000000000"b),
4 fixed_mask init("010000000000000000000000000000000000"b),
5 float_mask init("001000000000000000000000000000000000"b),
6 bit_mask init("000100000000000000000000000000000000"b),
7 char_mask init("000010000000000000000000000000000000"b),
8 ptr_mask init("000001000000000000000000000000000000"b),
9 offset_mask init("000000100000000000000000000000000000"b),
10 area_mask init("000000010000000000000000000000000000"b),
11 label_mask init("000000001000000000000000000000000000"b),
12 entry_mask init("000000000100000000000000000000000000"b),
13 file_mask init("000000000010000000000000000000000000"b),
14 arg_descriptor_mask init("000000000001000000000000000000000000"b),
15 storage_block_mask init("000000000000100000000000000000000000"b),
16 lock_mask init("000000000000010000000000000000000000"b),
17 condition_mask init("000000000000001000000000000000000000"b),
18 format_mask init("000000000000000100000000000000000000"b),
19 builtin_mask init("000000000000000010000000000000000000"b),
20 generic_mask init("000000000000000001000000000000000000"b),
21 picture_mask init("000000000000000000100000000000000000"b),
22 dimensioned_mask init("000000000000000000010000000000000000"b),
23 initialed_mask init("000000000000000000001000000000000000"b),
24 aligned_mask init("000000000000000000000100000000000000"b),
25 unaligned_mask init("000000000000000000000010000000000000"b),
26 signed_mask init("000000000000000000000001000000000000"b),
27 unsigned_mask init("000000000000000000000000100000000000"b),
28 precision_mask init("000000000000000000000000010000000000"b),
29 varying_mask init("000000000000000000000000001000000000"b),
30 local_mask init("000000000000000000000000000100000000"b),
31 decimal_mask init("000000000000000000000000000010000000"b),
32 binary_mask init("000000000000000000000000000001000000"b),
33 real_mask init("000000000000000000000000000000100000"b),
34 complex_mask init("000000000000000000000000000000010000"b),
35 variable_mask init("000000000000000000000000000000001000"b),
36 reducible_mask init("000000000000000000000000000000000100"b),
37 irreducible_mask init("000000000000000000000000000000000010"b),
38 returns_mask init("000000000000000000000000000000000001"b)) bit(36) aligned int static
39 options(constant);
40
41 dcl ( arithmetic_mask init("011000000000000000000000000011110000"b),
42 computational_mask init("011110000000000000100000000011110000"b),
43 fixed_binary_real_mask init("010000000000000000000000000001100000"b),
44 fixed_decimal_real_mask init("010000000000000000000000000010100000"b),
45 float_decimal_real_mask init("001000000000000000000000000010100000"b),
46 fixed_decimal_complex_mask init("010000000000000000000000000010010000"b),
47 float_decimal_complex_mask init("001000000000000000000000000010010000"b),
48 string_mask init("000110000000000000000000000000000000"b),
49 undesirable_mask init("111111111111111111100111110111110111"b),
50 convert_mask init("011111111111111111100111110111111110"b),
51 declare_constant_mask init("111111111111111111100000000011110000"b)
52 ) bit(36) aligned int static
53 options(constant);
54
55