1 
 2 /* BEGIN INCLUDE FILE ...   cobol_xref.incl.pl1 */
 3 
 4 dcl       mcobol              bit(1);
 5 dcl       mcobol_xref         bit(1);
 6 
 7 dcl       1 token_area        based(  cobol_$xref_token_ptr),
 8            2 token_count      fixed bin(35),
 9            2 element(10000),
10             3 token_ptr       ptr,
11             3 name_ptr        ptr;
12 
13 dcl       1 chain_area        based(  cobol_$xref_chain_ptr),
14            2 chain_count      fixed bin(35),
15            2 element(80000),
16             3 ref_line        fixed bin(17) unaligned,
17             3 next            fixed bin(17) unaligned;
18 
19 dcl       xref_ptr            ptr;
20 
21 dcl       1 xref_chain        based(xref_ptr),
22            2 first            fixed bin(17) unaligned,
23            2 last             fixed bin(17) unaligned;
24 
25 /* END INCLUDE FILE ...   cobol_xref.incl.pl1 */
26