IDENTIFICATION DIVISION.
       PROGRAM-ID. TRAINMAKEDATA.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FLOG ASSIGN TO "fiets.dat"
               ORGANIZATION IS SEQUENTIAL.
           SELECT LLOG ASSIGN TO "loop.dat"
               ORGANIZATION IS SEQUENTIAL.
           SELECT ZLOG ASSIGN TO "zwem.dat"
               ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.

       FD  FLOG RECORD CONTAINS 23 CHARACTERS.
       01  F-REC.
           05 F-DATE     PIC X(8).
           05 F-DIST     PIC 9(2).
           05 F-TIME     PIC 9(5).
           05 F-HR       PIC 9(3).
           05 F-WEIGHT   PIC 9(3).
           05 F-FILLER   PIC X.

       FD  LLOG RECORD CONTAINS 23 CHARACTERS.
       01  L-REC.
           05 L-DATE     PIC X(8).
           05 L-DIST     PIC 9(2).
           05 L-TIME     PIC 9(5).
           05 L-HR       PIC 9(3).
           05 L-WEIGHT   PIC 9(3).
           05 L-FILLER   PIC X.

       FD  ZLOG RECORD CONTAINS 23 CHARACTERS.
       01  Z-REC.
           05 Z-DATE     PIC X(8).
           05 Z-DIST     PIC 9(2).
           05 Z-TIME     PIC 9(5).
           05 Z-HR       PIC 9(3).
           05 Z-WEIGHT   PIC 9(3).
           05 Z-FILLER   PIC X.

       WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.
       MAIN-SECTION.

      * ---------------------------------------------------------------
      * FIETS.DAT
      * ---------------------------------------------------------------
           OPEN OUTPUT FLOG

           MOVE "20260420" TO F-DATE
           MOVE "01"       TO F-DIST
           MOVE "00300"    TO F-TIME
           MOVE "120"      TO F-HR
           MOVE "075"      TO F-WEIGHT
           MOVE " "        TO F-FILLER
           WRITE F-REC

           MOVE "20260421" TO F-DATE
           MOVE "05"       TO F-DIST
           MOVE "01200"    TO F-TIME
           MOVE "130"      TO F-HR
           MOVE "076"      TO F-WEIGHT
           MOVE " "        TO F-FILLER
           WRITE F-REC

           MOVE "20260422" TO F-DATE
           MOVE "10"       TO F-DIST
           MOVE "01800"    TO F-TIME
           MOVE "125"      TO F-HR
           MOVE "075"      TO F-WEIGHT
           MOVE " "        TO F-FILLER
           WRITE F-REC

           MOVE "20260423" TO F-DATE
           MOVE "25"       TO F-DIST
           MOVE "03600"    TO F-TIME
           MOVE "118"      TO F-HR
           MOVE "074"      TO F-WEIGHT
           MOVE " "        TO F-FILLER
           WRITE F-REC

           CLOSE FLOG

      * ---------------------------------------------------------------
      * LOOP.DAT
      * ---------------------------------------------------------------
           OPEN OUTPUT LLOG

           MOVE "20260420" TO L-DATE
           MOVE "01"       TO L-DIST
           MOVE "00450"    TO L-TIME
           MOVE "140"      TO L-HR
           MOVE "075"      TO L-WEIGHT
           MOVE " "        TO L-FILLER
           WRITE L-REC

           MOVE "20260421" TO L-DATE
           MOVE "05"       TO L-DIST
           MOVE "01500"    TO L-TIME
           MOVE "150"      TO L-HR
           MOVE "076"      TO L-WEIGHT
           MOVE " "        TO L-FILLER
           WRITE L-REC

           MOVE "20260422" TO L-DATE
           MOVE "10"       TO L-DIST
           MOVE "03000"    TO L-TIME
           MOVE "148"      TO L-HR
           MOVE "075"      TO L-WEIGHT
           MOVE " "        TO L-FILLER
           WRITE L-REC

           CLOSE LLOG

      * ---------------------------------------------------------------
      * ZWEM.DAT
      * ---------------------------------------------------------------
           OPEN OUTPUT ZLOG

           MOVE "20260420" TO Z-DATE
           MOVE "20"       TO Z-DIST
           MOVE "00300"    TO Z-TIME
           MOVE "135"      TO Z-HR
           MOVE "075"      TO Z-WEIGHT
           MOVE " "        TO Z-FILLER
           WRITE Z-REC

           MOVE "20260421" TO Z-DATE
           MOVE "50"       TO Z-DIST
           MOVE "00900"    TO Z-TIME
           MOVE "138"      TO Z-HR
           MOVE "076"      TO Z-WEIGHT
           MOVE " "        TO Z-FILLER
           WRITE Z-REC

           CLOSE ZLOG

           STOP RUN.
       END-PROGRAM. TRAINMAKEDATA.