# 1 "prog.cob"
       
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       


# 1 "copy.inc"
       
       01 SECOND-MATCH  PIC X(12) VALUE "REPLACING OK".
# 8 "prog.cob"

       PROCEDURE        DIVISION.
           DISPLAY  FIRST-MATCH  NO ADVANCING.
           STOP RUN.