1 /* BEGIN INCLUDE FILE . . . mseg_message_info.incl.pl1 BIM 1984-10-10 */
 2 /* format: style3,idind30 */
 3 
 4 /* structure returned when message is read from a message segment */
 5 
 6 
 7 dcl       mseg_message_info_ptr         pointer;
 8 
 9 dcl       1 mseg_message_info           based (mseg_message_info_ptr) aligned,
10             2 version                   char (8) aligned,
11             2 message_code              fixed bin,
12             2 control_flags             unaligned,
13               3 own                     bit (1),
14               3 delete                  bit (1),
15               3 pad                     bit (34),
16             2 ms_ptr                    ptr,                /* pointer to message */
17             2 ms_len                    fixed bin (24),     /* length of message  in bits */
18             2 ms_id                     bit (72),           /* unique ID of message */
19                                                             /* input in some cases */
20             2 ms_access_class           bit (72),           /* message access class */
21             2 sender_id                 char (32) unaligned,/* process-group ID of sender */
22             2 sender_process_id         bit (36) aligned,   /* if nonzero, process that sent */
23             2 sender_level              fixed bin,          /* validation level of sender */
24             2 sender_authorization      bit (72),           /* access authorization of message sender */
25             2 sender_max_authorization  bit (72),           /* max authorization of sending process */
26             2 sender_audit              bit (36) aligned;   /* audit flags */
27 
28 declare   MSEG_MESSAGE_INFO_V1          char (8) aligned init ("msegmi01") int static options (constant);
29 
30 declare   (
31           MSEG_READ_FIRST               init (1),
32           MSEG_READ_LAST                init (2),
33           MSEG_READ_SPECIFIED           init (3),
34           MSEG_READ_BEFORE_SPECIFIED    init (4),
35           MSEG_READ_AFTER_SPECIFIED     init (5))
36           fixed bin int static options (constant);
37 
38 declare  (MSEG_READ_OWN                 init ("1"b),
39           MSEG_READ_DELETE              init ("01"b)
40           )                             bit (36) aligned internal static options (constant);
41 
42 /* END INCLUDE FILE . . . mseg_message_info.incl.pl1 */