IDENTIFICATION DIVISION. PROGRAM-ID. SCR1FROM. AUTHOR. GROCER. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE ASSIGN TO "C:\PCOBWIN\CIS12FST\SCR1.DAT". DATA DIVISION. FILE SECTION. FD INPUT-FILE DATA RECORD IS INPUT-REC. 01 INPUT-REC PIC X(24). WORKING-STORAGE SECTION. 01 INDICATORS. 05 EOF-IND PIC XXX VALUE "NO ". 01 RESPONSES. 05 RESPONSE-IN-WS PIC X VALUE SPACES. 01 DATA-FOR-SCREEN. 05 ID-IN-WS PIC XXXX VALUE SPACES. 05 NAME-IN-WS PIC X(20) VALUE SPACES. SCREEN SECTION. 01 DATA-SCREEN BACKGROUND-COLOR IS 3. 05 VALUE "DATA SCREEN" BLANK SCREEN LINE 01 COL 30. 05 VALUE "ID #: " LINE 05 COL 05. 05 ID-ON-SCR-IN LINE 05 COL 15 PIC XXXX FROM ID-IN-WS. 05 VALUE "NAME:" LINE 07 COL 05. 05 NAME-ON-SCR-IN LINE 07 COL 15 PIC X(20) FROM NAME-IN-WS. 05 VALUE "C - TO CONTINUE" LINE 16 COL 30. 05 VALUE "Q - TO QUIT" LINE 17 COL 30. 05 VALUE "ENTER CHOICE:" LINE 19 COL 30. 05 RESPONSE-SCR LINE 19 COL 45 PIC X TO RESPONSE-IN-WS. PROCEDURE DIVISION. MAINLINE. PERFORM A-100-INITIALIZE. PERFORM B-100-PROCESS. PERFORM C-100-TERMINATE. STOP RUN. A-100-INITIALIZE. OPEN INPUT INPUT-FILE. B-100-PROCESS. READ INPUT-FILE INTO DATA-FOR-SCREEN AT END MOVE "YES" TO EOF-IND. PERFORM B-200-LOOP UNTIL EOF-IND = "YES" OR RESPONSE-IN-WS = "Q". B-200-LOOP. DISPLAY DATA-SCREEN. ACCEPT DATA-SCREEN. READ INPUT-FILE INTO DATA-FOR-SCREEN AT END MOVE "YES" TO EOF-IND. C-100-TERMINATE. CLOSE INPUT-FILE.