引数の説明
SORT/MERGE |
USING/GIVING |
ファイル名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3259. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT US-FILE ASSIGN TO SYS001-DA-S-SYS001. 000007 SELECT GV-FILE ASSIGN TO SYS002-DA-S-SYS002. 000008 SELECT SD-FILE ASSIGN TO SYS003-DA-S-SYS003. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD US-FILE. 000012 01 US-REC1 PIC X(80). 000013 FD GV-FILE. 000014 01 GV-REC1 PIC X(75). 000015 SD SD-FILE. 000016 01 SD-REC. 000017 02 SD-KEY1 PIC X(5). 000018 02 FILLER PIC X(75). 000019 PROCEDURE DIVISION. 000020 SORT SD-FILE ASCENDING KEY SD-KEY1 000021 USING US-FILE 000022 GIVING GV-FILE. 000023 STOP RUN.
C3259.cob (20) : JMN3259I-S SORT文に指定された整列併合用ファイルのレコード長は,GIVING指定に記述されたファイル'GV-FILE'の最大レコード長以下であり,かつ最小レコード長以上でなければなりません.