1 
 2 /* BEGIN fort_message_table_.incl.pl1 */
 3 
 4 /* Written: June 1976 */
 5 
 6 /* Modified: 27 Dec 1977 DSL - new message format. */
 7 
 8 dcl       1 fort_message_table$fort_message_table external,
 9             2 max_message_num           fixed bin,
10             2 descrip(525),
11               3 flags_for_message       unaligned structure,
12                 4 print_once            bit(1),
13                 4 once_per_stmnt        bit(1),
14                 4 once_per_subpgm       bit(1),
15                 4 saved_operand         bit(2),
16               3 level                   fixed bin(3) unal,
17               3 length                  fixed bin(8) unal,
18               3 offset                  fixed bin(17) unal;
19 
20 /* END   fort_message_table_.incl.pl1 */
21