1 
 2 /* BEGIN INCLUDE FILE ... cobol_type5.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A diag message token is created by each of the front end modules
 7 when an error is discovered.  It is output sequentially to the cobol_diags_ file
 8 via the utility program cobol_c_list and later processed by the cobol_print_diag
 9 phase.
10 */
11 
12 dcl message_ptr ptr;
13 
14 /* BEGIN DECLARATION OF TYPE5 (DIAG MESSAGE) TOKEN */
15 dcl 1 message based (message_ptr),
16 %include cobol_TYPE5;
17 /* END DECLARATION OF TYPE5 (DIAG MESSAGE) TOKEN */
18 
19 /* END INCLUDE FILE ... cobol_type5.incl.pl1 */
20