IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE.
AUTHOR. YOUR NAME.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "A:\infile1.txt"
    ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUTPUT-FILE ASSIGN TO "CON"
    ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
01 INPUT-REC PIC X(50).
FD OUTPUT-FILE.
01 OUTPUT-REC PIC X(50).
WORKING-STORAGE SECTION.
01 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'.
PROCEDURE DIVISION.
100-MAIN-MODULE.
    OPEN INPUT INPUT-FILE
        OUTPUT OUTPUT-FILE
    PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
        READ INPUT-FILE
            AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
            NOT AT END PERFORM 200-PROCESS-RECORD
        END-READ
    END-PERFORM
    CLOSE INPUT-FILE OUTPUT-FILE
    STOP RUN.
200-PROCESS-RECORD.
    MOVE INPUT-REC TO OUTPUT-REC
    WRITE OUTPUT-REC.

Input Data (and Output 'Report')
  WALT BECHTEL         40750
  NELSON KERBEL        35800
  MARGOT HUMMER        42550