例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1099.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 DATA-SS PIC X(3) VALUE "NG!".
000006 01 DATA-DD PIC X(3) VALUE "OK!".
000007 PROCEDURE DIVISION.
000008 REPLACE ==DATA-SS== BY ==DATA-DD==.
000009 COPY "C1099C.CBL"
000010 REPLACE OFF
000011 .
000012 END PROGRAM C1099.
C1099.cob (8) : JMN1099I-I 翻訳オプションNONUMBERの場合,COPY文そのものに対する診断メッセージの行番号は,REPLACE文の行番号となります.誤りのあるCOPY文の行番号を表示するためには,翻訳オプションNUMBERを指定して翻訳してください.