1AUTHOR input.cbl /^ AUTHOR. Darren Hiebert.$/;" p 2Begin input.cbl /^ Begin.$/;" p 3DATA input.cbl /^ DATA DIVISION.$/;" D 4DW-DAYS-IN-MONTH input.cbl /^ 05 DW-DAYS-IN-MONTH OCCURS 12 TIMES$/;" d data:Group-Name.Data-Item1.DW-DAYS-IN-MONTHS 5DW-DAYS-IN-MONTHS input.cbl /^ 03 DW-DAYS-IN-MONTHS VALUE "312831303130313130313031".$/;" d data:Group-Name.Data-Item1 6Data-Item1 input.cbl /^ 02 Data-Item1 PIC 9 VALUE ZEROS.$/;" d group:Group-Name 7ENVIRONMENT input.cbl /^ ENVIRONMENT DIVISION.$/;" D 8FILE input.cbl /^ FILE SECTION.$/;" s 9FILE-CONTROL input.cbl /^ FILE-CONTROL.$/;" p 10File-Data-Item input.cbl /^ 02 File-Data-Item PIC 9(7).$/;" d group:File-Group-Name 11File-Group-Name input.cbl /^ 01 File-Group-Name.$/;" g 12File-Name input.cbl /^ FD File-Name.$/;" f 13Group-Name input.cbl /^ 01 Group-Name.$/;" g 14IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 15INPUT-OUPUT input.cbl /^ INPUT-OUPUT SECTION.$/;" s 16PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D 17Program-Name input.cbl /^ PROGRAM-ID. Program-Name.$/;" P 18SH-WORK-MMDDYYYY input.cbl /^ 03 SH-WORK-MMDDYYYY PIC 9(08) VALUE 0.$/;" d data:Group-Name.Data-Item1 19SH-WORK-MMDDYYYY-2 input.cbl /^ 03 SH-WORK-MMDDYYYY-2 REDEFINES SH-WORK-MMDDYYYY.$/;" d data:Group-Name.Data-Item1 20Subprogram-Name input.cbl /^ Subprogram-Name.$/;" p 21WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s 22