NetCOBOL V11.0 メッセージ集

2.5.89 JMN3123I-S

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

埋め込みの説明

@1@ : ファイル名

例題

[C3123.cob]
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'は，無効になります．