例題
000001 @OPTIONS MAIN,ENCODE(UTF8,UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P5596. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET SJIS IS SJIS 000008 . 000009 DATA DIVISION. 000010 LINKAGE SECTION. 000011 01 WPRM1. 000012 02 WPRM1L PIC 9(4) COMP-5. 000013 02 WPRM1X PIC X(100) ENCODING SJIS. 000014 PROCEDURE DIVISION USING WPRM1 . 000015 DISPLAY WPRM1(1:WPRM1L) 000016 END PROGRAM P5596.
p5596.cob 13: JMN5596I-S 主プログラムの手続き部見出しのUSING指定に記述したパラメタにENCODING句を指定する場合、翻訳オプションENCODEの英数字項目と同じエンコード方式でなければなりません.指定されたパラメタは無効になります.