        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
            SELECT INPUT1-FILE ASSIGN TO INPUT1.

        IDMS-CONTROL SECTION.
        PROTOCOL.    MODE IS BATCH DEBUG
                     IDMS-RECORDS MANUAL.
