Design
simrecur.txt
Associated article: Simulated Recursion
Tags: Design
Published source code accompanying the article by Earl Augusta in which he shows how to simulate recursion in languages (like COBOL) which don't support it.
Simulated Recursion
by Earl Augusta
Listing One
01 TABLE-TO-BE-SORTED.
02 TABLE-ENTRY PIC X(100) OCCURS 32000 TIMES.
*
01 SWAP-ELEMENT PIC X(100).
01 PIVOT-VALUE PIC X(100).
*
01 WORKING-INDEXES.
02 FURST PIC 9(5) USAGE BINARY.
02 LAAST PIC 9(5) USAGE BINARY.
02 PIVOT PIC 9(5) USAGE BINARY.
02 HOW-RETURN PIC 9(5) USAGE BINARY.
*
01 TABLE-OF-INDEXES.
02 CURRENT-INDEXES OCCURS 100 TIMES.
03 ...


