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