IDENTIFICATION DIVISION.
       PROGRAM-ID. READ3.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT OPTIONAL FIETS-FILE ASSIGN TO "fiets.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT OPTIONAL LOOP-FILE ASSIGN TO "loop.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT OPTIONAL ZWEM-FILE ASSIGN TO "zwem.dat"
                   ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.

       FD  FIETS-FILE.
       01  FIETS-REC.
           05 F-DATE       PIC X(8).
           05 F-DIST       PIC 9(5).
           05 F-TIME       PIC 9(4).
           05 F-HR         PIC 9(3).

       FD  LOOP-FILE.
       01  LOOP-REC.
           05 L-DATE       PIC X(8).
           05 L-DIST       PIC 9(5).
           05 L-TIME       PIC 9(4).
           05 L-HR         PIC 9(3).

       FD  ZWEM-FILE.
       01  ZWEM-REC.
           05 Z-DATE       PIC X(8).
           05 Z-DIST       PIC 9(5).
           05 Z-TIME       PIC 9(4).
           05 Z-HR         PIC 9(3).

       WORKING-STORAGE SECTION.
       01  EOF-FIETS       PIC X VALUE "N".
       01  EOF-LOOP        PIC X VALUE "N".
       01  EOF-ZWEM        PIC X VALUE "N".

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "   LEZEN VAN 3 OPTIONAL SEQ FILES".
           DISPLAY "----------------------------------------".

           OPEN INPUT FIETS-FILE
           OPEN INPUT LOOP-FILE
           OPEN INPUT ZWEM-FILE

           PERFORM READ-FIETS
           PERFORM READ-LOOP
           PERFORM READ-ZWEM

           PERFORM UNTIL EOF-FIETS = "Y"
              DISPLAY "FIETS:"
              DISPLAY F-DATE
              DISPLAY F-DIST
              DISPLAY F-TIME
              DISPLAY F-HR
              PERFORM READ-FIETS
           END-PERFORM

           PERFORM UNTIL EOF-LOOP = "Y"
              DISPLAY "LOPEN:"
              DISPLAY L-DATE
              DISPLAY L-DIST
              DISPLAY L-TIME
              DISPLAY L-HR
              PERFORM READ-LOOP
           END-PERFORM

           PERFORM UNTIL EOF-ZWEM = "Y"
              DISPLAY "ZWEMMEN:"
              DISPLAY Z-DATE
              DISPLAY Z-DIST
              DISPLAY Z-TIME
              DISPLAY Z-HR
              PERFORM READ-ZWEM
           END-PERFORM

           CLOSE FIETS-FILE
           CLOSE LOOP-FILE
           CLOSE ZWEM-FILE

           STOP RUN.

       READ-FIETS.
           READ FIETS-FILE
              AT END MOVE "Y" TO EOF-FIETS.
           EXIT.

       READ-LOOP.
           READ LOOP-FILE
              AT END MOVE "Y" TO EOF-LOOP.
           EXIT.

       READ-ZWEM.
           READ ZWEM-FILE
              AT END MOVE "Y" TO EOF-ZWEM.
           EXIT.