IDENTIFICATION DIVISION. PROGRAM-ID. READIF1. 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. 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" DISPLAY "THE NAME IS " PAY-NAME DISPLAY "THE PAY TYPE IS " PAY-TYPE DISPLAY "THE PAY RATE IS " PAY-RATE DISPLAY "THE HOURS WORKED IS " PAY-HOURS DISPLAY " " 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.