IDENTIFICATION DIVISION.
       PROGRAM-ID. PS2200-TEST.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-F   ASSIGN TO DISC "TEST.DATA".
           SELECT OUT-F  ASSIGN TO PRINTER.
       DATA DIVISION.
       FILE SECTION.
       FD  IN-F.
       01  IN-REC       PIC X(80).
       FD  OUT-F.
       01  OUT-REC.
           02  OUT-NUM  PIC ZZ9.
           02  OUT-FIL  PIC X(2).
           02  OUT-DATA PIC X(80).
       WORKING-STORAGE SECTION.
       01  REC-CNT      PIC 9(3) VALUE ZERO.
       01  IN-EOF-FLAG  PIC X VALUE SPACE.
           88  IN-EOF   VALUE "E".
       PROCEDURE DIVISION.
       MAIN-PROC.
           OPEN INPUT IN-F OUTPUT OUT-F.
           PERFORM UNTIL IN-EOF
             READ IN-F AT END SET IN-EOF TO TRUE
                       NOT AT END PERFORM PRINT-PROC
             END-READ
           END-PERFORM.
           CLOSE IN-F OUT-F.
           STOP RUN.
       PRINT-PROC.
           ADD 1 TO REC-CNT.
           MOVE REC-CNT TO OUT-NUM.
           MOVE SPACE   TO OUT-FIL.
           MOVE IN-REC  TO OUT-DATA.
           WRITE OUT-REC.