1DATA input.cbl /^ DATA DIVISION.$/;" D 2ENREG-PRINTER input.cbl /^ 01 ENREG-PRINTER PIC X(80).$/;" d 3ENVIRONMENT input.cbl /^ ENVIRONMENT DIVISION.$/;" D 4FILE input.cbl /^ FILE SECTION.$/;" s 5FILE-CONTROL input.cbl /^ FILE-CONTROL.$/;" p 6FPRINTER input.cbl /^ FD FPRINTER.$/;" f 7IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 8INPUT-OUTPUT input.cbl /^ INPUT-OUTPUT SECTION.$/;" s 9LINKAGE input.cbl /^ LINKAGE SECTION.$/;" s 10MAIN-PRINTER input.cbl /^ MAIN-PRINTER.$/;" p 11PA-BUFFER input.cbl /^ 02 PA-BUFFER PIC X(80) .$/;" d group:RECEIVED-PARAM 12PA-HOWMANY input.cbl /^ 02 PA-HOWMANY PIC 99 .$/;" d group:RECEIVED-PARAM 13PA-RESET input.cbl /^ 02 PA-RESET PIC X .$/;" d group:RECEIVED-PARAM 14PA-WHAT input.cbl /^ 02 PA-WHAT PIC X(5) .$/;" d group:RECEIVED-PARAM 15PA-WHEN input.cbl /^ 02 PA-WHEN PIC X(6) .$/;" d group:RECEIVED-PARAM 16RECEIVED-PARAM input.cbl /^ RECEIVED-PARAM.$/;" p 17RECEIVED-PARAM input.cbl /^ 01 RECEIVED-PARAM.$/;" g 18VIRTUAL-PRINTER input.cbl /^ PROGRAM-ID. VIRTUAL-PRINTER.$/;" P 19WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s 20