例題
[C3191.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3191. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 PROCEDURE DIVISION. 000008 INSPECT ID1 REPLACING ALL "0" BY "11". 000009 END PROGRAM C3191.
C3191.cob 8: JMN3191I-S INSPECT文にREPLACING指定を記述する場合，置換文字と被置換文字の項目長は，同じでなければなりません．
