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

2.4.154 JMN3265I-S

@1@文のKEY指定に日本語または日本語編集項目を指定したとき,COLLATING SEQUENCE指定を記述してはなりません.

引数の説明

@1@:

SORT/MERGE

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3265.
      000003 ENVIRONMENT DIVISION.
      000004 CONFIGURATION SECTION.
      000005 SPECIAL-NAMES.
      000006     ALPHABET ABN-1 IS "A" THRU "Z".
      000007 INPUT-OUTPUT SECTION.
      000008 FILE-CONTROL.
      000009     SELECT US-FILE   ASSIGN TO SYS001-DA-S-SYS001.
      000010     SELECT GV-FILE   ASSIGN TO SYS002-DA-S-SYS002.
      000011     SELECT SD-FILE   ASSIGN TO SYS003-DA-S-SYS003.
      000012 DATA DIVISION.
      000013 FILE SECTION.
      000014 FD   US-FILE.
      000015  01 US-REC1    PIC X(80).
      000016 FD   GV-FILE.
      000017  01 GV-REC1    PIC X(80).
      000018 SD   SD-FILE.
      000019  01 SD-REC1.
      000020     02 SD-KEY1    PIC NN.
      000021     02 FILLER     PIC X(76).
      000022 PROCEDURE DIVISION.
      000023     SORT SD-FILE ASCENDING KEY SD-KEY1
      000024          COLLATING SEQUENCE IS ABN-1
      000025          USING   US-FILE
      000026          GIVING  GV-FILE.
      000027     STOP RUN.
    

C3265.cob (23) : JMN3265I-S SORT文のKEY指定に日本語または日本語編集項目を指定したとき,COLLATING SEQUENCE指定を記述してはなりません.