FastSort Manual

Sorting in Parallel
FastSort Manual—429834-003
6-22
Parallel Sorting From TAL Programs
Parallel Sorting From TAL Programs
Example 6-3 on page 6-23 shows a TAL example that sets up a parallel sort run with
three subsort processes.
*------------------------------------------------------------
* Return the sorted records.
*------------------------------------------------------------
OUTPUT-SECTION SECTION.
OUTPUT-ROUTINE.
DISPLAY "Output sort procedure entered...".
SET MORE-OUTPUT TO TRUE.
PERFORM UNTIL NO-MORE-OUTPUT
RETURN SORT-FILE
AT END SET NO-MORE-OUTPUT TO TRUE
NOT AT END
MOVE CORRESPONDING SORT-RECORD TO OUT-RECORD
WRITE OUT-RECORD
ADD 1 TO OUTPUT-COUNTER
END-RETURN
END-PERFORM.
DISPLAY "Output sort records returned: " OUTPUT-COUNTER.
Example 6-2. COBOL85 Example of a Parallel Sort Run (page 3 of 3)