Control Data Corporation 3300 Reference Manual page 146

4-66
Examples:
1. DATA DIVISION.
FILE SECTION.
FD GEN-FILE
BLOCK CONTAINS 10 RECORDS
LABEL RECORD IS OMITTED
DATA RECORD IS GEN-REC.
01 GEN-REC.
02 IDENT-A PIC 9(8).
02 IDENT-B.
03 ID-B PIC 99.
02 IDENT-C PIC X(20).
SD SORT-FILE.
DATA RECORD IS SORT-REC.
01 SORT-REC.
02 IDENT-l PIC 9(8).
02 IDENT-2.
03 ID-2A PIC 99.
02 IDENT-3 PIC X(20).
PROCEDURE DIVISION.
A-SORT SECTION.
ST-1. SORT SORT-FILE ON ASCENDING KEY IDENT-l
ON DESCENDING KEY ID-2A, IDENT-3
INPUT PROCEDURE IS INP-l
OUTPUT PROCEDURE IS OUT-I.
GO TO REST-OF-PROGRAM.
INP-l SECTION.
OPEN INPUT GEN-FILE.
I-I. READ GEN-FILE AT END GO TO 1-2.
MOVE GEN-REC TO SORT-REC.
RELEASE SORT-REC.
GO TO I-I.
1-2. CLOSE GEN-FILE.
OUT-l SECTION._
OPEN OUTPUT GEN-FILE.
0-1. RETURN SORT-FILE RECORD AT END GO TO 0-2.
MOVE SORT-REC TO GEN-REC.
WRITE GEN-REC.
GO TO 0-1.
0-2. CLOSE GEN-FILE.
REST-OF-PROGRAM SECTION.
60229400