例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3193.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 77 ID1 PIC X(20).
000007 77 CV-CHAR1 PIC XX.
000008 77 CV-CHAR2 PIC X.
000009 PROCEDURE DIVISION.
000010 INSPECT ID1 CONVERTING CV-CHAR1 TO CV-CHAR2.
000011 END PROGRAM C3193.
C3193.cob (10) : JMN3193I-S INSPECT文にCONVERTING指定を記述する場合,変換文字と被変換文字の項目長は等しくなければなりません.