NetCOBOL V11.1 メッセージ集

2.4.415 JMN2689I-W

MERGE文のUSING指定に記述されたファイル名の個数は，2個以上でなければなりません． ファイル名は，有効とみなします．

例題

[P2689.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2689.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02 KEYREC    PIC X(8).
000015   02           PIC X(72).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02 KEYREC    PIC X(8).
000019   02           PIC X(72).
000020 SD SRTFILE.
000021 01 SRTREC.
000022   02 KEYREC    PIC X(8).
000023   02           PIC X(72).
000024 WORKING-STORAGE SECTION.
000025 PROCEDURE      DIVISION.
000026     MERGE SRTFILE
000027        ASCENDING KEY KEYREC OF SRTFILE
000028        USING  SQFILE1
000029        GIVING SQFILE2
000030 END PROGRAM    P2689.

P2689.cob 28: JMN2689I-W MERGE文のUSING指定に記述されたファイル名の個数は，2個以上でなければなりません．ファイル名は，有効とみなします．

詳細な説明

MERGE文は，USING指定に指定されたファイルを併合します．USING指定には，併合の対象とするファイル名を少なくとも2個指定してください．