IDENTIFICATION DIVISION.
       PROGRAM-ID. READ3SEC.

       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-TIMESEC    PIC 9(5).
           05 F-HR         PIC 9(3).
           05 F-WGT        PIC 9(3).

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

       FD  ZWEM-FILE.
       01  ZWEM-REC.
           05 Z-DATE       PIC X(8).
           05 Z-DIST       PIC 9(5).
           05 Z-TIMESEC    PIC 9(5).
           05 Z-HR         PIC 9(3).
           05 Z-WGT        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".

       01  WS-MIN          PIC 9(3).
       01  WS-SEC          PIC 9(2).

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "LEESPROGRAMMA".
           DISPLAY "----------------------------------------".

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

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

           DISPLAY " "
           DISPLAY "---- FIETS ----"

           PERFORM UNTIL EOF-FIETS = "Y"
              COMPUTE WS-MIN = F-TIMESEC / 60
              COMPUTE WS-SEC = F-TIMESEC - (WS-MIN * 60)

              DISPLAY "Datum:   " F-DATE
              DISPLAY "Afstand: " F-DIST
              DISPLAY "Minuten: " WS-MIN
              DISPLAY "Seconden:" WS-SEC
              DISPLAY "Hartslag:" F-HR
              DISPLAY "Gewicht: " F-WGT
              DISPLAY " "

              PERFORM READ-FIETS
           END-PERFORM

           DISPLAY " "
           DISPLAY "---- LOOP ----"

           PERFORM UNTIL EOF-LOOP = "Y"
              COMPUTE WS-MIN = L-TIMESEC / 60
              COMPUTE WS-SEC = L-TIMESEC - (WS-MIN * 60)

              DISPLAY "Datum:   " L-DATE
              DISPLAY "Afstand: " L-DIST
              DISPLAY "Minuten: " WS-MIN
              DISPLAY "Seconden:" WS-SEC
              DISPLAY "Hartslag:" L-HR
              DISPLAY "Gewicht: " L-WGT
              DISPLAY " "

              PERFORM READ-LOOP
           END-PERFORM

           DISPLAY " "
           DISPLAY "---- ZWEM ----"

           PERFORM UNTIL EOF-ZWEM = "Y"
              COMPUTE WS-MIN = Z-TIMESEC / 60
              COMPUTE WS-SEC = Z-TIMESEC - (WS-MIN * 60)

              DISPLAY "Datum:   " Z-DATE
              DISPLAY "Afstand: " Z-DIST
              DISPLAY "Minuten: " WS-MIN
              DISPLAY "Seconden:" WS-SEC
              DISPLAY "Hartslag:" Z-HR
              DISPLAY "Gewicht: " Z-WGT
              DISPLAY " "

              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.