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.
           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.