NetCOBOL V11.1 メッセージ集

2.4.355 JMN2576I-S

SORT文またはMERGE文のUSING指定に記述されたファイル名の数は，16以下でなければなりません． 17番目以降のファイル名は無効になります．

例題

[P2576.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2576.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE01 ASSIGN TO SYS001.
000007     SELECT SQFILE02 ASSIGN TO SYS002.
000008     SELECT SQFILE03 ASSIGN TO SYS003.
000009     SELECT SQFILE04 ASSIGN TO SYS004.
  :
000022     SELECT SQFILE17 ASSIGN TO SYS017.
000023     SELECT SQFILE18 ASSIGN TO SYS018.
000024     SELECT SRTFILE  ASSIGN TO SYS019.
000025 I-O-CONTROL.
000026 DATA           DIVISION.
000027 FILE            SECTION.
000028 FD SQFILE01.
000029 01 SQF01REC     PIC X(80).
000030 FD SQFILE02.
000031 01 SQF02REC     PIC X(80).
000032 FD SQFILE03.
000033 01 SQF03REC     PIC X(80).
000034 FD SQFILE04.
000035 01 SQF04REC     PIC X(80).
  :
000060 FD SQFILE17.
000061 01 SQF17REC     PIC X(80).
000062 FD SQFILE18.
000063 01 SQF18REC     PIC X(80).
000064 SD SRTFILE.
000065 01 SRTREC.
000066   02 SRTKEY     PIC X(1).
000067   02            PIC X(79).
000068 WORKING-STORAGE SECTION.
000069 PROCEDURE      DIVISION.
000070     SORT SRTFILE
000071        ON ASCENDING KEY SRTKEY
000072        USING  SQFILE01 SQFILE02 SQFILE03 SQFILE04
  :
000076               SQFILE17
000077        GIVING SQFILE18
000078 END PROGRAM    P2576.

P2576.cob 76: JMN2576I-S SORT文またはMERGE文のUSING指定に記述されたファイル名の数は，16以下でなければなりません．17番目以降のファイル名は無効になります．

詳細な説明

COBOL処理系の定量制限です．