1
2
3 dcl typ_count int static init (2) fixed bin aligned;
4
5 dcl 1 segdata (2) aligned int static,
6 2 gate_name char (32) aligned init
7 ("message_segment_", "mailbox_"),
8 2 acl_prefix char (8) var aligned init
9 ("ms_", "mbx_"),
10 2 segment_suffix_length fixed bin aligned init
11 (3, 4),
12 2 segment_suffix char (8) aligned init
13 (".ms", ".mbx"),
14 2 full_extended_access bit (36) aligned init
15 ("111110000000000000000000000000000000"b, "111111100000000000000000000000000000"b),
16 2 first_extended_access_bit fixed bin aligned init
17 (1, 1),
18 2 mode_letter_count fixed bin aligned init
19 (5, 7),
20 2 mode_letters (36) char (1) unaligned init (
21 "a", "d", "r", "o", "s", (31) (1) "",
22 "a", "d", "r", "o", "s", "w", "u", (29) (1) "");
23
24