例題
000001 @OPTIONS ENCODE(UTF8,UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P5791. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABSET UTF32 FOR NATIONAL IS UTF32 000008 . 000009 INPUT-OUTPUT SECTION. 000010 FILE-CONTROL. 000011 SELECT SQFILE1 ASSIGN TO SYS001 000012 ORGANIZATION IS LINE SEQUENTIAL 000013 FILE STATUS IS WFS1. 000014 I-O-CONTROL. 000015 DATA DIVISION. 000016 FILE SECTION. 000017 FD SQFILE1. 000018 01 SQF1REC1. 000019 02 PIC N(80). 000020 01 SQF1REC2. 000021 02 PIC N(40) ENCODING UTF32. 000022 WORKING-STORAGE SECTION. 000023 01 WFS1 PIC X(2). 000024 PROCEDURE DIVISION. 000025 END PROGRAM P5791.
p5791.cob 17: JMN5791I-S 行順ファイルのレコードは複数のエンコード方式を同時に含むことはできません.