例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3194.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 77 ID1 PIC X(20).
000007 77 REP-CHAR PIC N.
000008 PROCEDURE DIVISION.
000009 INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR.
000010 END PROGRAM C3194.
C3194.cob (9) : JMN3194I-S INSPECT文内のTALLYING指定の項目を除く項目と検査対象項目の組合せは,両方とも日本語項目または日本語編集項目か,あるいは両方とも日本語項目および日本語編集項目以外でなければなりません.