COBOL LESSON 121 - THE SORT COMMAND

THE SORT COMMAND IN COBOL:

Environment Division.
SELECT SORTIN ASSIGN TO DISK "name of the input file"
ORGANIZATION IS LINE SEQUENTIAL.

SELECT SORTWORK ASSIGN TO DISK "name of the work file".

SELECT SORTOUT ASSIGN TO DISK "name of the output file"
ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FD SORTIN
DATA RECORD IS SORTIN-REC.
01 SORTIN-REC.
05 SORT1 PIC X(10).
05 SORT2 PIC X(10).
05 SHTUFFRT PIC X(60).

FD SORTOUT
DATA RECORD IS SORTOUT-REC.
01 SORTOUT-REC.
05 SORT1 PIC X(10).
05 SORT2 PIC X(10).
05 SHTUFFRT PIC X(60).

SD SORTWORK
DATA RECORD IS SORT-REC.
01 SORT-REC.
05 SORT1 PIC X(10).
05 SORT2 PIC X(10).
05 SHTUFFRT PIC X(60).

Procedure Division.
SORT SORTWORK
ON ASCENDING KEY SORT1
ON ASCENDING KEY SORT2
USING SORTIN
GIVING SORTOUT.
STOP RUN.
 


SORT SORTWORK
ON ASCENDING KEY SORT1
ON ASCENDING KEY SORT2
INPUT PROCEDURE IS 1000-SORTIN
OUTPUT PROCEDURE IS 2000-SORTOUT.

1000-SORTIN SECTION.
1001-SORTIN.

RETURN SORTWORK RECORD
AT END GO TO 1999-EXIT.

CHANGE ALL SPACES TO ZEROES OR WHATEVER...

1999-EXIT.
EXIT.

2000-SORTOUT SECTION.
2001-SORTOUT.
IF XX = "A" THEN MOVE "a" to XX ........
CHANGE ALL UPPERCASE TO LOWERCASE OR WHATEVER ...

RELEASE SORTWORK.