引数の説明
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'の最大レコード長以下であり,かつ最小レコード長以上でなければなりません.