NetCOBOL V11.1 メッセージ集

2.4.353 JMN2574I-S

SORT文またはMERGE文は，ASCENDING指定またはDESCENDING指定が記述されていなければなりません． ASCENDING指定があったものとみなします．

例題

[P2574.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2574.
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           PIC X(80).
000015 FD SQFILE2.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 SD SRTFILE.
000019 01 SRTREC.
000020   02 SRTKEY    PIC X(8).
000021   02           PIC X(72).
000022 WORKING-STORAGE SECTION.
000023 PROCEDURE      DIVISION.
000024     SORT SRTFILE
000025        ON KEY SRTKEY
000026        USING  SQFILE1
000027        GIVING SQFILE2
000028 END PROGRAM    P2574.

P2574.cob 25: JMN2574I-S SORT文またはMERGE文は，ASCENDING指定またはDESCENDING指定が記述されていなければなりません．ASCENDING指定があったものとみなします．

詳細な説明

レコードの整列・併合を，キー項目の昇順(ASCENDING)に行うか，あるいはキー項目の降順(DESCENDING)に行うかを指定します．