例題
[C3190.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3190. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 PROCEDURE DIVISION. 000008 INSPECT ID1 REPLACING CHARACTERS BY "01". 000009 END PROGRAM C3190.
C3190.cob 8: JMN3190I-S INSPECT文にCHARACTERS指定を記述する場合,被置換文字および範囲指定文字の長さは1字でなければなりません.文は,無効になります.