1
2
3 dcl mptr ptr,
4
5 1 mseg_hdr aligned based (mptr),
6 2 lock bit (36) aligned,
7 2 mseg_pattern bit (36) aligned,
8 2 hdr_ms_access_class bit (72) aligned,
9 2 pad (4) fixed bin,
10 2 first_ms_offset bit (18) aligned,
11 2 last_ms_offset bit (18) aligned,
12 2 alloc_len fixed bin,
13 2 space_left fixed bin,
14 2 number_of_messages fixed bin,
15 2 block_size fixed bin,
16 2 switches,
17 3 mip bit (1) unaligned,
18 3 os bit (1) unaligned,
19 3 ms_in_hdr bit (1) unaligned,
20 3 sip bit (1) unaligned,
21 3 pad2 bit (32) unaligned,
22 2 version_number fixed bin,
23 2 hdr_ms bit (64 * 36) aligned,
24 2 hash_table aligned,
25 3 last_in_bucket (0:511) bit (18) unaligned,
26 2 alloc_bits bit (alloc_len) aligned;
27
28 dcl (version_number fixed bin init (3),
29 header_pattern bit (36) aligned init ((18) "01"b))
30 internal static;
31
32