IDENTIFICATION DIVISION.
       PROGRAM-ID. RDIFAND3.
       AUTHOR. GROCER
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT PAY-FILE
               ASSIGN TO "A:\PAY.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD  PAY-FILE
           DATA RECORD IS PAY-REC.
       01  PAY-REC.
           05  PAY-ID               PIC 9999.
           05  PAY-NAME             PIC X(20).
           05  PAY-TYPE             PIC X.
           05  PAY-RATE             PIC 999V99.
           05  PAY-HOURS            PIC 99.
       WORKING-STORAGE SECTION.
       01  WORK-AREA.
           05  EOF-IND              PIC X          VALUE "N".
           05  CONTINUE-ANS         PIC X          VALUE SPACES.
       01  OUTPUT-AREA.
           05  PAY-RATE-SC          PIC ZZZ.99.
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM A-100-STARTUP.
           PERFORM B-100-PROCESS.
           PERFORM C-100-WRAPUP.
           STOP RUN.
       A-100-STARTUP.
           OPEN INPUT PAY-FILE.
       B-100-PROCESS.
           READ PAY-FILE
               AT END
                  MOVE "Y" TO EOF-IND.
           PERFORM B-200-LOOP
               UNTIL EOF-IND = "Y".
       B-200-LOOP.
           DISPLAY "THE ID IS " PAY-ID
           IF PAY-TYPE = "F" AND PAY-RATE > 40
               DISPLAY "THE NAME IS " PAY-NAME
               DISPLAY "THE PAY TYPE IS " PAY-TYPE
               MOVE PAY-RATE TO PAY-RATE-SC
               DISPLAY "THE PAY RATE IS " PAY-RATE-SC
               DISPLAY "THE HOURS WORKED IS " PAY-HOURS
               DISPLAY " "
           ELSE
               DISPLAY "DOES NOT MEET CRITERIA"
           END-IF
           DISPLAY "PRESS ENTER TO CONTINUE".
           ACCEPT CONTINUE-ANS.
           READ PAY-FILE
               AT END
                  MOVE "Y" TO EOF-IND.
       C-100-WRAPUP.
           CLOSE PAY-FILE.