1DATA input.cbl /^ DATA DIVISION.$/;" D 2EVEN input.cbl /^ 88 EVEN VALUES 2, 4, 6, 8.$/;" d data:RECORD1.ITEM2 3G1 input.cbl /^ 02 G1.$/;" g group:REC2 4IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 5ITEM1 input.cbl /^ 05 ITEM1 PICTURE X(10).$/;" d group:REC2.G1 6ITEM1 input.cbl /^ 05 ITEM1 PIC X(1).$/;" d group:RECORD1 7ITEM2 input.cbl /^ 05 ITEM2 PIC X(10).$/;" d group:REC2.G1 8ITEM2 input.cbl /^ 05 ITEM2 PIC A(1).$/;" d group:RECORD1 9ITEM3 input.cbl /^ 05 ITEM3 PIC X(6).$/;" d group:RECORD1 10MAIN-PROCEDURE input.cbl /^ MAIN-PROCEDURE.$/;" p 11ODD input.cbl /^ 88 ODD VALUES 1, 3, 5, 7, 9.$/;" d data:RECORD1.ITEM2 12OTHERNAME1 input.cbl /^ 66 OTHERNAME1 RENAMES ITEM1 IN REC2.$/;" d group:REC2 13OTHERNAME2 input.cbl /^ 66 OTHERNAME2 RENAMES G1.$/;" d group:REC2 14PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D 15RDITEM4 input.cbl /^ 66 RDITEM4 RENAMES ITEM1 THRU ITEM2.$/;" d group:RECORD1 16RDITEM5 input.cbl /^ 66 RDITEM5 RENAMES ITEM1 THROUGH ITEM3.$/;" d group:RECORD1 17REC2 input.cbl /^ 01 REC2.$/;" g 18RECORD1 input.cbl /^ 01 RECORD1.$/;" g 19STDLN1 input.cbl /^ 77 STDLN1 PIC A(4).$/;" d 20Test-Items input.cbl /^ PROGRAM-ID. Test-Items.$/;" P 21WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s 22