0001.00        PROGRAM-ID.  READRACE.
0002.00        ENVIRONMENT DIVISION.
0003.00        CONFIGURATION SECTION.
0004.00        SOURCE-COMPUTER. IBM-ISERIES.
0005.00        OBJECT-COMPUTER. IBM-ISERIES.
0006.00        INPUT-OUTPUT SECTION.
0007.00        FILE-CONTROL.
0008.00            SELECT RACEFILE ASSIGN TO DISK-RACE
0009.00            ORGANIZATION IS SEQUENTIAL
0010.00            FILE STATUS IS RACEFILE-STATUS.
0011.00        DATA DIVISION.
0012.00        FILE SECTION.
0013.00        FD  RACEFILE
0014.00            BLOCK CONTAINS 1 RECORDS
0015.00            LABEL RECORDS ARE OMITTED.
0016.00        01  RACE-RECORD          PIC X(138).
0017.00       *01  RACE-DATA.
0018.00       *    05 NAME              PIC X(30).
0019.00       *    05 CLASS-RESTRICT    PIC X(10).
0010.00            FILE STATUS IS RACEFILE-STATUS.
0011.00        DATA DIVISION.
0012.00        FILE SECTION.
0013.00        FD  RACEFILE
0014.00            BLOCK CONTAINS 1 RECORDS
0015.00            LABEL RECORDS ARE OMITTED.
0016.00        01  RACE-RECORD          PIC X(138).
0017.00       *01  RACE-DATA.
0018.00       *    05 NAME              PIC X(30).
0019.00       *    05 CLASS-RESTRICT    PIC X(10).
0020.00       *    05 RACE-ABIL-FLAGS   PIC X(40).
0021.00       *    05 LEVEL-CAP         PIC X(12).
0022.00       *    05 ABILITY-FLAG      PIC X(40).
0023.00       *    05 STAT-BONUS        PIC X(6).
0024.00        WORKING-STORAGE SECTION.
0025.00        01  RACEFILE-STATUS      PIC XX.
0026.00        01  DUMMY                PIC X.
0027.00        01  RACE-DATA.
0028.00            02 NAME              PIC X(30).
0029.00            02 CLASS-RESTRICT    PIC X(10).
0020.00       *    05 RACE-ABIL-FLAGS   PIC X(40).
0021.00       *    05 LEVEL-CAP         PIC X(12).
0022.00       *    05 ABILITY-FLAG      PIC X(40).
0023.00       *    05 STAT-BONUS        PIC X(6).
0024.00        WORKING-STORAGE SECTION.
0025.00        01  RACEFILE-STATUS      PIC XX.
0026.00        01  DUMMY                PIC X.
0027.00        01  RACE-DATA.
0028.00            02 NAME              PIC X(30).
0029.00            02 CLASS-RESTRICT    PIC X(10).
0030.00            02 RACE-ABIL-FLAGS   PIC X(40).
0031.00            02 LEVEL-CAP         PIC X(12).
0032.00            02 ABILITY-FLAG      PIC X(40).
0033.00            02 STAT-BONUS        PIC X(6).
0034.00        PROCEDURE DIVISION.
0035.00        BEGIN.
0036.00            OPEN INPUT RACEFILE
0037.00            READ RACEFILE INTO RACE-DATA
0038.00            AT END MOVE RACE-RECORD TO RACE-DATA
0039.00            END-READ