Compaq COBOL AAQ2G1FTK - Manual (Page 282)

Using the SORT and MERGE Statements
9.1 Sorting Data with the SORT Statement
RETURN statement to transfer records from the sort. For example, you can use
the RETURN statement to retrieve the sorted records for printing a report.
Example 9–1 shows a sample sort using the INPUT and OUTPUT procedures.
Example 9–1 INPUT and OUTPUT PROCEDURE Phrases
IDENTIFICATION DIVISION.
PROGRAM-ID.
EX0901.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "input.dat".
SELECT OUTPUT-FILE ASSIGN TO "output.dat".
SELECT SORT-FILE ASSIGN TO "sort.dat".
DATA DIVISION.
FILE SECTION.
FD
INPUT-FILE.
01 INPUT-RECORD PIC X(100).
FD OUTPUT-FILE.
01 OUTPUT-RECORD PIC X(100).
SD SORT-FILE.
01 SORT-RECORD PIC X(100).
01 SORT-KEY-1 PIC XXX.
01 SORT-KEY-2 PIC XXX.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
000-SORT SECTION.
010-DO-THE-SORT.
SORT SORT-FILE ON ASCENDING KEY SORT-KEY-1
ON DESCENDING KEY SORT-KEY-2
INPUT PROCEDURE IS 050-RETRIEVE-INPUT
THRU 100-DONE-INPUT
OUTPUT PROCEDURE IS 200-WRITE-OUTPUT
THRU 230-DONE-OUTPUT.
DISPLAY "END OF SORT".
STOP RUN.
050-RETRIEVE-INPUT SECTION.
060-OPEN-INPUT.
OPEN INPUT INPUT-FILE.
070-READ-INPUT.
READ INPUT-FILE AT END
CLOSE INPUT-FILE
GO TO 100-DONE-INPUT.
MOVE INPUT-RECORD TO SORT-RECORD.
(continued on next page)
9–4 Using the SORT and MERGE Statements