Control Data Corporation 3300 Reference Manual page 146

Computer systems usasi cobol/ master
Table of Contents

Advertisement

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

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents