1BUF-NB-LIGNES-PAR-PAGE input.cbl /^ 01 BUF-NB-LIGNES-PAR-PAGE PIC 99 VALUE 10.$/;" d 2DATA input.cbl /^ DATA DIVISION.$/;" D 3ENVIRONMENT input.cbl /^ ENVIRONMENT DIVISION.$/;" D 4FILE input.cbl /^ FILE SECTION.$/;" s 5HELLO-WORLD input.cbl /^ HELLO-WORLD.$/;" p 6IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 7INPUT-OUTPUT input.cbl /^ INPUT-OUTPUT SECTION.$/;" s 8MAIN-PROCEDURE input.cbl /^ MAIN-PROCEDURE.$/;" p 9PA-BUFFER input.cbl /^ 02 PA-BUFFER PIC X(80) VALUE SPACES .$/;" d group:PRINTER-PARAM 10PA-HOWMANY input.cbl /^ 02 PA-HOWMANY PIC 99 VALUE 1 .$/;" d group:PRINTER-PARAM 11PA-RESET input.cbl /^ 02 PA-RESET PIC X VALUE "N" .$/;" d group:PRINTER-PARAM 12PA-WHAT input.cbl /^ 02 PA-WHAT PIC X(5) VALUE "LINES" .$/;" d group:PRINTER-PARAM 13PA-WHEN input.cbl /^ 02 PA-WHEN PIC X(6) VALUE "AFTER" .$/;" d group:PRINTER-PARAM 14PRINTER-PARAM input.cbl /^ 01 PRINTER-PARAM.$/;" g 15PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D 16TEST-PRINTER input.cbl /^ PROGRAM-ID. TEST-PRINTER.$/;" P 17WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s 18