例題
000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3563. 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 01 A PIC N(8) ENCODING U16L. 000013 01 B PIC N(8) ENCODING U32L. 000014 PROCEDURE DIVISION. 000015 IF A = B THEN 000016 DISPLAY "OK" 000017 END-IF. 000018 END PROGRAM C3563.
C3563.cob 15: JMN3563I-S エンコード方式が異なるデータ項目の比較は記述できません．
