例題
[P5159.cob] 000001 @OPTIONS RCS(UCS2) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P5159. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT SQFILE1 ASSIGN TO SYS001 000008 ORGANIZATION IS LINE SEQUENTIAL 000009 FILE STATUS IS WFS1. 000010 I-O-CONTROL. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC1. 000015 02 PIC X(80). 000016 01 SQF1REC2. 000017 02 PIC N(40). 000018 WORKING-STORAGE SECTION. 000019 01 WFS1 PIC X(2). 000020 PROCEDURE DIVISION. 000021 END PROGRAM P5159.
P5159.cob 13: JMN5159I-S 日本語データの実行時コード系がUNICODEの場合,行順ファイルのレコードは日本語項目とその他の項目を同時に含むことはできません.
詳細な説明
NetCOBOLでUnicodeデータを扱う場合,日本語項目の表現形式はUCS-2です.英数字項目の表現形式はASCII(UTF-8)です.
データをレコード単位で扱う場合,表現形式の異なるデータを1つのレコード内で同時に扱うことはできません.