例題
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C5783. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF16 FOR NATIONAL IS UTF16. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 DATA1 PIC S9(9) DISPLAY ENCODING UTF16. 000010 END PROGRAM C5783.
c5783.cob 9: JMN5783I-S ENCODING句はFDまたはSD記述項,データ記述項の集団項目,または,基本項目かつ項類が英数字,英数字編集,日本語または日本語編集の項目に指定できます.ENCODING句は無効になります.