引数の説明
一意名(集団項目) |
例
000001 PROGRAM-ID. C3510.
000002 ENVIRONMENT DIVISION.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 X20 PIC X(20).
000006 01 NGRP.
000007 02 N10 PIC N(10).
000008 PROCEDURE DIVISION.
000009 IF X20 > NGRP THEN
000010 DISPLAY "X20 BIGGER"
000011 ELSE
000012 DISPLAY "X20 SMALLER"
000013 END-IF
000014 END PROGRAM C3510.
C3510.cob (9) : JMN3510I-W 翻訳オプションRCS(UTF8-UCS2)またはRCS(SJIS-UCS2)指定の場合,日本語項目を含む集団項目'NGRP'の日本語部分は,日本語として大小比較されません.
詳細な説明
日本語項目は,UCS-2のリトルエンディアン形式でデータを保持しています.日本語項目同士の大小比較では,リトルエンディアンをビッグエンディアンに変換してから比較が行われます.しかし集団項目の場合には,その内部に日本語項目が存在していても,リトルエンディアン形式のまま比較されてしまうことになります.