Quelle  copytest.cob

       Identification Division.
       Program-Id. Copier.
       Data Division.
       Working-Storage Section.
         77 temp-empno   pic 9(8).
         77 temp-empname pic X(32).
        Copy OWNCA
          replacing ==SQL== by ==M==
       Procedure Division.
      * dies ist ein Nonsenseprogramm
        move 1 to temp-empno.
        perform until temp-empno > 100
          display "temp-empno is"temp-empno
          add 1 to temp-empno
        end-perform.
        display "End at temp-empno="temp-empno.
       End-Program Copier.