IDENTIFICATION DIVISION.
       PROGRAM-ID. WRITE3.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FIETS-FILE ASSIGN TO "fiets.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT LOOP-FILE ASSIGN TO "loop.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT 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).
           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-TIME       PIC 9(4).
           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-TIME       PIC 9(4).
           05 Z-HR         PIC 9(3).
           05 Z-WGT        PIC 9(3).

       WORKING-STORAGE SECTION.
       01  WS-CHOICE       PIC X VALUE SPACE.
       01  WS-MORE         PIC X VALUE "J".

       01  WS-DATE         PIC X(8).
       01  WS-DIST         PIC 9(5).
       01  WS-TIME         PIC 9(4).
       01  WS-HR           PIC 9(3).
       01  WS-WGT          PIC 9(3).

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "SCHRIJFPROGRAMMA".
           DISPLAY "----------------------------------------".

           DISPLAY "Kies bestand (F/L/Z):"
           ACCEPT WS-CHOICE

           IF WS-CHOICE = "F" OR WS-CHOICE = "f"
              OPEN OUTPUT FIETS-FILE
           END-IF

           IF WS-CHOICE = "L" OR WS-CHOICE = "l"
              OPEN OUTPUT LOOP-FILE
           END-IF

           IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
              OPEN OUTPUT ZWEM-FILE
           END-IF

           PERFORM UNTIL WS-MORE NOT = "J"
              AND WS-MORE NOT = "j"

              DISPLAY "Datum (YYYYMMDD):"
              ACCEPT WS-DATE

              DISPLAY "Afstand meters:"
              ACCEPT WS-DIST

              DISPLAY "Tijd minuten:"
              ACCEPT WS-TIME

              DISPLAY "Hartslag:"
              ACCEPT WS-HR

              DISPLAY "Gewicht:"
              ACCEPT WS-WGT

              IF WS-CHOICE = "F" OR WS-CHOICE = "f"
                 MOVE WS-DATE TO F-DATE
                 MOVE WS-DIST TO F-DIST
                 MOVE WS-TIME TO F-TIME
                 MOVE WS-HR   TO F-HR
                 MOVE WS-WGT  TO F-WGT
                 WRITE FIETS-REC
              END-IF

              IF WS-CHOICE = "L" OR WS-CHOICE = "l"
                 MOVE WS-DATE TO L-DATE
                 MOVE WS-DIST TO L-DIST
                 MOVE WS-TIME TO L-TIME
                 MOVE WS-HR   TO L-HR
                 MOVE WS-WGT  TO L-WGT
                 WRITE LOOP-REC
              END-IF

              IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
                 MOVE WS-DATE TO Z-DATE
                 MOVE WS-DIST TO Z-DIST
                 MOVE WS-TIME TO Z-TIME
                 MOVE WS-HR   TO Z-HR
                 MOVE WS-WGT  TO Z-WGT
                 WRITE ZWEM-REC
              END-IF

              DISPLAY "Nog een record? (J/N)"
              ACCEPT WS-MORE

           END-PERFORM

           IF WS-CHOICE = "F" OR WS-CHOICE = "f"
              CLOSE FIETS-FILE
           END-IF

           IF WS-CHOICE = "L" OR WS-CHOICE = "l"
              CLOSE LOOP-FILE
           END-IF

           IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
              CLOSE ZWEM-FILE
           END-IF

           STOP RUN.