埋め込みの説明
@1@ : RCS(SJIS), RCS(UTF16)
@2@ : SJIS, UTF8またはUTF16
例題
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句は無効になります.