例題
[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を指定して翻訳してください.