例題
000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3199. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 77 ID1 PIC N ENCODING U16L. 000013 77 REP-CHAR PIC N ENCODING U32L. 000014 PROCEDURE DIVISION. 000015 INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR. 000016 END PROGRAM C3199.
C3199.cob 15: JMN3199I-S INSPECT文内のTALLYING指定の項目を除く項目と検査対象項目のエンコードは,一致していなければなりません.