ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.307 JMN3471I-W

翻訳オプションRCS(UTF16)またはENCODE指定の場合,日本語項目を含む集団項目@1@の日本語部分は日本語として大小比較されません.

埋め込みの説明

@1@ : 一意名(集団項目)

例題

[JMN3471I-W.cob]
000001 @OPTIONS RCS(UTF16)
000002 PROGRAM-ID. JMN3471I-W.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT SMFILE ASSIGN SM1F.
000007     SELECT USFILE ASSIGN SEQ1F.
000008     SELECT GVFILE ASSIGN SEQ2F.
000009 DATA DIVISION.
000010 FILE SECTION.
000011   SD SMFILE.
000012   01 R1.
000013     02 KEY-1 PIC X(4).
000014     02 KEY-2.
000015       03 KEY-1-1 PIC X(2).
000016       03 KEY-1-2 PIC N(1).
000017     02 R1-1  PIC X(72).
000018   FD USFILE.
000019   01 USR01 PIC X(80).
000020   FD GVFILE.
000021   01 GIV01 PIC X(80).
000022 WORKING-STORAGE SECTION.
000023 PROCEDURE DIVISION.
000024     SORT   SMFILE   ON ASCENDING KEY KEY-2
000025            USING    USFILE
000026            GIVING   GVFILE
000027 END PROGRAM JMN3471I-W.

JMN3471I-W.cob 24: JMN3471I-W 翻訳オプションRCS(UTF16)またはENCODE指定の場合,日本語項目を含む集団項目'KEY-2'の日本語部分は日本語として大小比較されません.