例題
[C1855.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1855. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF16 FOR NATIONAL IS UTF16. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 COPY C1855CP ENCODING UTF16. 000010 END PROGRAM C1855.
[C185CP.cbl] 000001 01 GRP01. 000002 02 DATA1 PIC N.
C1855.cob 9: JMN1855I-S ENCODING句は画面帳票定義体名を指定したCOPY文に指定できます．ENCODING句は無効になります．
