2.4.86 JMN3123I-S

MERGE文のUSING指定またはGIVING指定に，同じファイルを2回以上指定できません．
ファイル@1@は，無効になります．

引数の説明

@1@:

ファイル名

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3123.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1  ASSIGN TO  DA-S-SYS001.
      000007     SELECT FILE-2  ASSIGN TO  DA-S-SYS002.
      000008     SELECT FILE-3  ASSIGN TO  DA-S-SYS003.
      000009     SELECT FILE-4  ASSIGN TO  DA-S-SYS004.
      000010 DATA  DIVISION.
      000011 FILE SECTION.
      000012 SD  FILE-1.
      000013    01 REC-1.
      000014     02 KEY-1  PIC XX.
      000015     02 FILLER PIC X(78).
      000016 FD  FILE-2 LABEL RECORD STANDARD.
      000017    01 REC-2 PIC X(80).
      000018 FD  FILE-3 LABEL RECORD STANDARD.
      000019    01 REC-3 PIC X(80).
      000020 FD  FILE-4 LABEL RECORD STANDARD.
      000021    01 REC-4 PIC X(80).
      000022 PROCEDURE  DIVISION.
      000023     MERGE FILE-1 ON ASCENDING KEY KEY-1
      000024       USING  FILE-2 FILE-2
      000025       GIVING FILE-4.
      000026     STOP RUN.

C3123.cob (24) : JMN3123I-S MERGE文のUSING指定またはGIVING指定に，同じファイルを2回以上指定できません．ファイル'FILE-2'は，無効になります．