1 /* BEGIN INCLUDE FILE  ... cobol_ecs_info.incl.pl1 */
 2 /* Modified on 10/09/79 by FCH, [4.0-2], new field added */
 3 /* Modified on 03/02/79 by FCH, [4.0-1], -levsv option */
 4 /* Modified on 10/27/81 by FCH, [5.1-1], new fields added */
 5 
 6           dcl       ecs_info_ptr        ptr;
 7 
 8           dcl
 9 
10           1         ecs_info_table_      based (ecs_info_ptr),
11 
12           2         expand_cobol_source_info,
13           3         input_ptr           ptr,
14           3         output_ptr          ptr,
15           3         format_indicator    bit (1),
16           3         card_indicator      bit(1),   /*[4.0-2]*/
17           3         exp_indicator       bit(1),   /*[4.0-2]*/
18           3         command             bit(1),   /*[5.1-1]*/
19           3         dir                 char(168),          /*[4.0-2]*/
20           3         ent                 char(32), /*[4.0-2]*/
21 
22           2         compiler_info,
23           3         compiler_level      char (1),
24           3         diag_indicators     bit (3),
25           3         levsv               bit(3),   /*[4.0-1]*/
26           3         fatal_count         fixed bin,
27           3         bc                  fixed bin(24);      /*[5.1-1]*/
28 
29 /* END INCLUDE FILE ... cobol_ecs_info.incl.pl1 */