       IDENTIFICATION DIVISION.
       PROGRAM-ID. 'COBTEST'.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. SIGMA-7.
       OBJECT-COMPUTER. SIGMA-7.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO    DISC.
           SELECT OUTFILE ASSIGN TO DISC.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE LABEL RECORD ARE STANDARD.
       01 IN-REC PIC X(80).
       FD OUTFILE
            LABEL RECORDS STANDARD.
       01 OUT-REC PIC X(80).
       PROCEDURE DIVISION.
       PROC-START-SECTION.
       PROC-START-UP-1.
           OPEN INPUT INFILE OUTPUT OUTFILE.
           MOVE 'TYTYTTYTYTYTYTYTYTYTYTYTY' TO OUT-REC.
           IF OUT-REC = 'FDFDFDFDFDFDF'
                WRITE OUT-REC INVALID
                      MOVE 'GGGG' TO OUT-REC
                       DISPLAY OUT-REC '= IN INVALID KEY'
                      MOVE 'HHHH' TO OUT-REC
           ELSE
                MOVE 'XXXX' TO OUT-REC
                DISPLAY OUT-REC '= IN ELSE'
                MOVE 'JJJ' TO OUT-REC.
           STOP RUN.
