1 2 /* BEGIN INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 3 4 dcl 1 occ_key based(com2_ptr), 5 2 next char(5), 6 2 first_key char(5), 7 2 rec_no char(5), 8 2 ntble fixed bin, 9 2 lineno fixed bin, 10 2 info bit(8); 11 12 /* END INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 13