1 /*        BEGIN INCLUDE FILE   format_document_error.incl.pl1
 2 
 3      Information structure used by format_document_ in calls to sub_err_.
 4 
 5      Written 83.03.03 by Paul W. Benjamin
 6 
 7 */
 8 
 9 dcl 1 format_document_error aligned based (format_document_error_ptr),
10       2 version_number        fixed bin,                    /* format_document_error_version_1 */
11       2 error_code            fixed bin (35),               /* which error has occurred? */
12       2 line_number           fixed bin,                    /* and on what line? */
13       2 text_line             char (128) varying;           /* the offending line (or first 128 chars) */
14 
15 dcl  format_document_error_ptr ptr;
16 dcl  format_document_error_version_1 fixed bin int static options (constant) init (1);
17 
18 /*        END INCLUDE FILE   format_document_error.incl.pl1      */