1 
 2 /* BEGIN INCLUDE FILE ...   cobol_rename_rec.incl.pl1 */
 3 dcl 1 rename_rec based(com2_ptr),
 4    2 repl_ptr ptr,
 5      2 next char(5),
 6      2 obj1 char(5),
 7      2 obj2 char(5),
 8      2 lineno_01 fixed bin,
 9      2 lineno_66 fixed bin,
10      2 rec_no_66 char(5),
11      2 info bit(8),
12      2 size fixed bin,
13      2 name char(31);
14 /* END INCLUDE FILE ...   cobol_rename_rec.incl.pl1 */
15