1 
 2 /* BEGIN INCLUDE FILE ...   cobol_com2.incl.pl1 */
 3 /**********NEW COM2 INCLUDE FILE*************************************************/
 4 dcl 1 odo_rec based(com2_ptr),
 5      2 next char(5),
 6      2 descr char(5),
 7     2 seg_no fixed bin(15),
 8     2 offset_l fixed bin(31),
 9     2 offset_r fixed bin(31),
10      2 info bit(8);
11 dcl 1 occ_key based(com2_ptr),
12           2 next char(5),
13           2 first_key char(5),
14           2 rec_no char(5),
15           2 ntble fixed bin(15),
16           2 lineno fixed bin(15),
17           2 info bit(8);
18 dcl 1 skey_rec based(com2_ptr),
19      2 next char(5),
20      2 qual char(5),
21      2 key_number fixed bin(15),
22    2 asc_dsc fixed bin(15),
23      2 ref_line fixed bin(15),
24    2 ref_column fixed bin(15),
25      2 info bit(8),
26      2 size fixed bin(7),
27      2 name char(30);
28 dcl 1 rename_rec based(com2_ptr),
29    2 repl_ptr ptr,
30      2 next char(5),
31      2 obj1 char(5),
32      2 obj2 char(5),
33      2 lineno_01 fixed bin(15),
34      2 lineno_66 fixed bin(15),
35      2 rec_no_66 char(5),
36      2 info bit(8),
37      2 size fixed bin(7),
38      2 name char(30);
39 dcl 1 qual_rec based (com2_ptr),
40       2 next char(5),
41      2 line fixed bin(15),
42      2 column fixed bin(15),
43       2 size fixed bin (7),
44       2 name char (30);
45 dcl 1 report_rec based(com2_ptr),
46      2 next char(5),
47      2 line fixed bin(15),
48      2 column fixed bin(15),
49      2 fileno fixed bin(7),
50      2 defined bit(1),
51      2 size fixed bin(7),
52      2 name char(30);
53 
54 dcl 1 occurs based(com2_ptr),
55     2 keyed fixed bin(15),
56     2 key_number fixed bin(15),
57     2 dimensions fixed bin(15),
58     2 level (occurs.dimensions),
59           3 indexedno fixed bin(15),
60           3 min fixed bin(15),
61           3 max fixed bin(15),
62           3 struclength fixed bin(15),
63           3 cswdx fixed bin(15),
64           3 csws fixed bin(31);
65 dcl 1 obj_rec based(com2_ptr),
66      2 qual char(5),
67      2 line fixed bin(15),
68      2 column fixed bin(15),
69      2 repl fixed bin(15),
70      2 size fixed bin(7),
71      2 name char(30);
72 dcl 1  linage_name_rec based(com2_ptr),     /* 1st record is pointed by linage_info */
73      2 next char(5),
74      2 line fixed bin(15),
75      2 column fixed bin(15),
76      2 fileno fixed bin(7),
77      2 desc fixed bin(7),     /* body=1, footing=2, top=3, bottom=4 */
78      2 unused fixed bin(15),
79      2 size fixed bin(7),
80      2 name char(30);
81 
82 /* END INCLUDE FILE ...   cobol_com2.incl.pl1 */
83