埋め込みの説明
@1@ : "RCS(SJIS)"、"RCS(UTF16)"、"ENCODE(SJIS)"または"ENCODE(UTF8)"
@2@ : "SJIS"、"UTF8またはUTF16"または"UTF8, UTF16またはUTF32"
例題
[c1856.cob] 000001 @OPTIONS RCS(SJIS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1856. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET UTF16 FOR NATIONAL IS UTF16. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 DATA1 PIC N ENCODING UTF16. 000011 END PROGRAM C1856.
c1856.cob 10: JMN1856I-S RCS(SJIS)が有効な場合,ENCODING句にはエンコード方式SJISに付けた符号系名が指定できます.ENCODING句は無効になります.