引数の説明
RECORD KEY, ALTERNATE RECORD KEY, KEY IS |
エラーの原因となったデータ名 |
例
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. P5160.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007 SELECT IXFILE1 ASSIGN TO SYS001
000008 ORGANIZATION IS INDEXED
000009 RECORD KEY IS KEY1.
000010 I-O-CONTROL.
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD IXFILE1.
000014 01 IXF1REC.
000015 02 KEY1.
000016 03 PIC N(2).
000017 02 PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 PROCEDURE DIVISION.
000020 END PROGRAM P5160.
P5160.cob (9) : JMN5160I-W RECORD KEY句のデータ名に日本語項目を含む集団項目'KEY1'が指定されています.日本語データの実行時コード系がUnicodeの場合,この項目の日本語部分の比較は日本語として行われません.
詳細な説明
NetCOBOLでUnicodeデータを扱う場合,日本語項目の表現形式はUCS-2です.一方,集団項目(字類は英数字)の表現形式はUTF-8になります.集団項目として扱う場合は,集団に従属する日本語項目の領域にもUTF-8表現形式のデータが格納されるため,日本語項目として適切なデータになりません.