1 
 2 /* BEGIN INCLUDE FILE ... cobol_diag_file.incl.pl1 */
 3 /* Last modified on 06/18/76 by ORN */
 4 
 5 /* This include file serves as a template for the file
 6    (segment) containg MCOBOL diagnostic messages:
 7    cobol_diag_table_$cobol_diag_table_ */
 8 
 9 dcl 1 diag_file based(cobol_$diag_ptr),
10      2 r_t_size fixed bin,
11      2 d_t_size fixed bin,
12      2 d_s_size fixed bin,
13      2 run_table (11),
14           3 base fixed bin,
15           3 size fixed bin,
16      2 diag_table(0 refer(diag_file.d_t_size)),
17           3 d_start fixed bin,
18           3 d_len fixed bin,
19           3 d_type fixed bin,
20           3 d_param fixed bin;
21 
22 /* END INCLUDE FILE ... cobol_diag_file.incl.pl1 */
23