COBOL program to copy first 5 records

       ID DIVISION.
       PROGRAM-ID. P5REC.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO DD1.
           SELECT OUTFILE ASSIGN TO DD2.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE.
       01 IN-REC PIC X(80).
       FD OUTFILE.
       01 OUT-REC PIC X(80).
       WORKING-STORAGE SECTION.
       01 EOF PIC X(10) VALUE 'N'.
       01 CNT PIC 9(1) VALUE 0.
       PROCEDURE DIVISION.
           OPEN INPUT INFILE
           OPEN OUTPUT OUTFILE
           PERFORM UNTIL EOF ='Y'
           READ INFILE
           AT END
           MOVE 'Y' TO EOF
           NOT AT END
           ADD+1 TO CNT
           IF CNT<=5
           MOVE IN-REC TO OUT-REC
           WRITE OUT-REC
           ELSE
           MOVE 'Y' TO EOF
           END-IF
           END-READ
           END-PERFORM.
             CLOSE INFILE
             CLOSE OUTFILE
             STOP RUN.