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

2.4.41 JMN3057I-S

機能名に対応付けられた符号系名は,@1@文のCOLLATING SEQUENCE指定に記述できません.

引数の説明

@1@:

SORT文またはMERGE文

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3057.
      000003 ENVIRONMENT  DIVISION.
      000004 CONFIGURATION  SECTION.
      000005 SPECIAL-NAMES.
      000006     ABN-1 IS CODE-3.
      000007 INPUT-OUTPUT SECTION.
      000008 FILE-CONTROL.
      000009     SELECT FILE-1  ASSIGN TO DA-S-SYS001.
      000010     SELECT FILE-2  ASSIGN TO DA-S-SYS002.
      000011     SELECT FILE-3  ASSIGN TO DA-S-SYS003.
      000012 DATA  DIVISION.
      000013 FILE SECTION.
      000014 SD  FILE-1 LABEL RECORD STANDARD.
      000015 01  REC-1.
      000016     02 KEY-1     PIC 9(2).
      000017     02 KEY-2     PIC 9(2).
      000018     02 KEY-3     PIC 9(2).
      000019     02 FILLER    PIC X(74).
      000020 FD  FILE-2 LABEL RECORD STANDARD.
      000021 01  REC-2    PIC X(80).
      000022 FD  FILE-3 LABEL RECORD STANDARD.
      000023 01  REC-3    PIC X(80).
      000024 PROCEDURE  DIVISION.
      000025 P-START.
      000026     SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2
      000027     COLLATING SEQUENCE ABN-1
      000028     USING FILE-2
      000029     GIVING FILE-3.
      000030     STOP RUN.
    

C3057.cob (26) : JMN3057I-S 機能名に対応付けられた符号系名は,SORT文のCOLLATING SEQUENCE指定に記述できません.