引数の説明
SORT/MERGE |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3265.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 ALPHABET ABN-1 IS "A" THRU "Z".
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009 SELECT US-FILE ASSIGN TO SYS001-DA-S-SYS001.
000010 SELECT GV-FILE ASSIGN TO SYS002-DA-S-SYS002.
000011 SELECT SD-FILE ASSIGN TO SYS003-DA-S-SYS003.
000012 DATA DIVISION.
000013 FILE SECTION.
000014 FD US-FILE.
000015 01 US-REC1 PIC X(80).
000016 FD GV-FILE.
000017 01 GV-REC1 PIC X(80).
000018 SD SD-FILE.
000019 01 SD-REC1.
000020 02 SD-KEY1 PIC NN.
000021 02 FILLER PIC X(76).
000022 PROCEDURE DIVISION.
000023 SORT SD-FILE ASCENDING KEY SD-KEY1
000024 COLLATING SEQUENCE IS ABN-1
000025 USING US-FILE
000026 GIVING GV-FILE.
000027 STOP RUN.
C3265.cob (23) : JMN3265I-S SORT文のKEY指定に日本語または日本語編集項目を指定したとき,COLLATING SEQUENCE指定を記述してはなりません.