FastSort Manual

Sorting in Parallel
FastSort Manual—429834-003
6-20
Parallel Sorting From COBOL85 Programs
Example 6-2. COBOL85 Example of a Parallel Sort Run (page 1 of 3)
*------------------------------------------------------------
* FastSort Parallel Sort Run
* This program calls the COBOL85 interface routines
* COBOL85^SET^SORT^PARAM^VALUE and
* COBOL85^SET^SORT^PARAM^TEXT to start a parallel sort run.
*------------------------------------------------------------
?SYMBOLS, INSPECT
?LIBRARY $SYSTEM.SYSTEM.COBOLLIB
?LIBRARY $SYSTEM.SYSTEM.CBL85UTL
IDENTIFICATION DIVISION.
PROGRAM-ID. PARALLEL-SORT-EXAMPLE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OUTPUT-FILE
ASSIGN TO "=OUTFILE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT SORT-FILE
ASSIGN TO "SORTFILE".
DATA DIVISION.
FILE SECTION.
FD OUTPUT-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 19 CHARACTERS.
01 OUT-RECORD.
05 SORT-RECORD-NO PIC 9(4).
05 FILLER PIC X(5).
05 SORT-CODE PIC X(10).
SD SORT-FILE
RECORD CONTAINS 19 CHARACTERS.
01 SORT-RECORD.
05 SORT-RECORD-NO PIC 9(4).
05 FILLER PIC X(5).
05 SORT-CODE PIC X(10).
WORKING-STORAGE SECTION.
01 FLAGS.
05 MORE-OUTPUT-FLAG PIC X(3) VALUE "YES".
88 MORE-OUTPUT VALUE "YES".
88 NO-MORE-OUTPUT VALUE "NO".
01 RETURN-CODE PIC 99 COMP.
01 OUTPUT-COUNTER PIC 9999 COMP VALUE 0.
01 INPUT-RECORDS PIC 9999 VALUE 1000.
01 NUMBER-OF-SUBSORTS PIC 99 VALUE 2.
01 VALUE-PARAM PIC X(20).
01 SCRATCH-FILE-1 PIC X(8) VALUE "SCRATCH1".
01 SCRATCH-FILE-2 PIC X(8) VALUE "SCRATCH2".
01 WS-ORDR-CODE.
05 WS-RECORD-NO PIC 9(4) VALUE 0.
05 FILLER PIC X(5) VALUE SPACES.
05 WS-CODE.
06 WS-CODE-NBR PIC 9999 VALUE 1000.
06 WS-CODE-FIL PIC X(6).
*------------------------------------------------------------
PROCEDURE DIVISION.
MAIN SECTION.
OPEN OUTPUT OUTPUT-FILE.
DISPLAY "Starting FastSort parallel sort run..."
PERFORM SORT-RECORDS.
DISPLAY "FastSort parallel sort run completed."
STOP RUN.
SORT-RECORDS SECTION.