1 /* BEGIN include file mseg_hdr.incl.pl1 */
 2 /* Modified 1984-10-10 BIM for V5 */
 3 
 4 dcl  mptr ptr,                                              /* pointer to message segment */
 5 
 6      1 mseg_hdr aligned based (mptr),                       /* message segment header format */
 7      2 lock bit (36) aligned,                               /* standard file system lock */
 8      2 mseg_pattern bit (36) aligned,                       /* to identify message segments */
 9      2 hdr_ms_access_class bit (72) aligned,                /* access class of header message */
10    2 date_time_last_salvaged fixed bin (71),                /* time message segment was last salvaged */
11      2 pad (2) fixed bin,
12      2 first_ms_offset bit (18) aligned,                    /* offset to first logical message */
13      2 last_ms_offset bit (18) aligned,                     /* offset to last logical message */
14      2 alloc_len fixed bin,                                 /* length of allocation bit string */
15      2 space_left fixed bin,                                /* number of empty blocks */
16      2 number_of_messages fixed bin,                        /* number of messages in segment */
17      2 block_size fixed bin,                                /* message block size */
18      2 switches,
19      3 mip bit (1) unaligned,                               /* ON if modification is in progress */
20      3 os bit (1) unaligned,                                /* ON if message segment was salvaged */
21      3 ms_in_hdr bit (1) unaligned,                         /* ON if there is a message in the header */
22      3 sip bit (1) unaligned,                               /* ON if salvage is in progress */
23      3 pad2 bit (32) unaligned,
24      2 version_number fixed bin,
25      2 hdr_ms bit (64 * 36) aligned,                        /* space for header message */
26      2 hash_table aligned,                                  /* message ID hash table */
27      3 last_in_bucket (0:511) bit (18) unaligned,           /* offset of last message in this hash table bucket */
28      2 alloc_bits bit (0 refer (mseg_hdr.alloc_len)) aligned; /* allocation bit string */
29 
30 dcl (version_number fixed bin init (5),                     /* message segment version number */
31      header_pattern bit (36) aligned init ((18) "01"b))     /* header identification pattern */
32      internal static options (constant);
33 
34 /* END include file mseg_hdr.incl.pl1 */