hangshuo652
40 lines
1.2 KiB
COBOL
40 lines
1.2 KiB
COBOL
* HINA034 - SORT処理
|
|
>>SOURCE FORMAT IS FREE
|
|
* SORT文によるファイルソート
|
|
* 期待: SORT文, INPUT/OUTPUT PROCEDURE
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. HINA034.
|
|
ENVIRONMENT DIVISION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT IN-FILE ASSIGN TO "SORTIN.DAT"
|
|
ORGANIZATION IS LINE SEQUENTIAL.
|
|
SELECT OUT-FILE ASSIGN TO "SORTOUT.DAT"
|
|
ORGANIZATION IS LINE SEQUENTIAL.
|
|
SELECT WORK-FILE ASSIGN TO "SORTWORK".
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
FD IN-FILE.
|
|
01 IN-REC.
|
|
05 IN-KEY PIC 9(05).
|
|
05 IN-DATA PIC X(20).
|
|
FD OUT-FILE.
|
|
01 OUT-REC.
|
|
05 OUT-KEY PIC 9(05).
|
|
05 OUT-DATA PIC X(20).
|
|
SD WORK-FILE.
|
|
01 WORK-REC.
|
|
05 WORK-KEY PIC 9(05).
|
|
05 WORK-DATA PIC X(20).
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-CNT PIC 9(05).
|
|
01 WS-MAX PIC 9(05).
|
|
PROCEDURE DIVISION.
|
|
0000-MAIN.
|
|
SORT WORK-FILE
|
|
ON ASCENDING KEY WORK-KEY
|
|
USING IN-FILE
|
|
GIVING OUT-FILE.
|
|
DISPLAY "SORT COMPLETE".
|
|
STOP RUN.
|