例
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つのレコード内で同時に扱うことはできません.