例
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字でなければなりません.文は,無効になります.