1 
 2 /* BEGIN INCLUDE FILE ...   cobol_error_info.incl.pl1 */
 3 /* Last modified  July 8, 1974 by ORN */
 4 
 5 dcl 1 error_info,
 6      2 name char(32),
 7      2 message_len fixed bin,
 8      2 message char(128);
 9 
10 
11 /*
12 name                the name of the program signalling the error.
13 
14 message_len         the number of valid characters in message.
15 
16 message             the text of the message to be issued.
17 */
18 
19 /* END INCLUDE FILE ...   cobol_error_info.incl.pl1 */
20