例題
[C1099.cob] 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を指定して翻訳してください．
C1099.cob 10: JMN1076I-S COPY文の書き方に誤りがあります．または，分離符の終止符で止められていません．
