例題
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1852. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ENC1 IS EBCDIC. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 DATA1 PIC X ENCODING ENC1. 000010 END PROGRAM C1852.
c1852.cob 9: JMN1852I-S ENCODING句にはエンコード方式に付けた符号系名が指定できます．ENCODING句は無効になります．
