1 /* BEGIN INCLUDE FILE msg_array.incl.pl1 */
 2 /* Written 05/29/84 by Jim Lippard */
 3 
 4      dcl     1 msg_array            (n_messages) aligned based (msg_array_ptr),
 5                2 message_id         bit (72),
 6                2 message_number     fixed bin,
 7                2 flags,
 8                  3 printed          bit (1) unal,
 9                  3 mbz              bit (35) unal;
10 
11      dcl     msg_array_ptr          ptr;
12 
13      dcl     n_messages             fixed bin;
14 
15      dcl     DELETE_UNHELD          bit (3) internal static options (constant) init ("100"b);
16      dcl     DONT_DELETE_MESSAGES             bit (3) internal static options (constant) init ("010"b);
17      dcl     DONT_DELETE_NOTIFICATIONS     bit (3) internal static options (constant) init ("001"b);
18 
19 /* END INCLUDE FILE msg_array.incl.pl1 */