prfiles.cob

       PROCEDURE DIVISION.
       OPEN-ROUTINE.
           OPEN INPUT EMPLOYEE-INPUT-FILE.
           OPEN OUTPUT EMPLOYEE-OUTPUT-FILE.
       READ-ROUTINE.
           READ EMPLOYEE-INPUT-FILE 
              AT END GO TO CLOSE-ROUTINE.
           MOVE EMPLOYEE-INPUT-LASTNAME TO EMPLOYEE-OUTPUT-LASTNAME.
           MOVE EMPLOYEE-INPUT-LASTNAME TO EMPLOYEE-OUTPUT-LASTNAME.
           MOVE EMPLOYEE-INPUT-HOURLY-RATE TO EMPLOYEE-OUTPUT-HOURLY-RATE.
           ADD 1.50 TO EMPLOYEE-OUTPUT-HOURLY-RATE.
           WRITE EMPLOYEE-OUTPUT-RECORD.
           GO TO READ-ROUTINE.
       CLOSE-ROUTINE.
           CLOSE EMPLOYEE-INPUT-FILE.
           CLOSE EMPLOYEE-OUTPUT-FILE.
           STOP RUN.