        DATA DIVISION
        FILE SECTION.
        FD  INPUT1-FILE
            LABEL RECORDS ARE STANDARD
            BLOCK CONTAINS 0 RECORDS.
        01  INPUT1-REC           PIC X(80).

        SCHEMA SECTION.
        DB DBATSS01 WITHIN DBATSC01.

        WORKING-STORAGE SECTION.

        COPY IDMS SUBSCHEMA-CONTROL.
        COPY IDMS RECORD EMPLOYEE-REC.
        COPY IDMS DB-STATISTICS.
