RE: recursion calls

["Fisher, Don" <DRF@xxxxxxxxxxxxxxxx>]

This may not be relevant, but way back when I was writing my first
multi-subfile program in COBOL, I had two subroutines that could execute
each other when the user pressed a function key.

As I recall, if the subroutines executed each other more than three times,
the program lost the original execution of the subroutine.

For example, subroutine 1 is a prompt screen and subroutines 2 and 3
represent additional detail.  Subroutine 1 would execute subroutine 2, which
would execute 3, then 2, then 3, then 2, then 3.  When the "previous" key
was pressed, the program never returned control to subroutine 1.  I had to
add logic to the program to disallow the recursion so the "previous"
function would work correctly.

Yes, there are other ways I could have done it, but I was young and foolish.

Donald R. Fisher, III 
Project Manager 
Heilig-Meyers Furniture Company 
(804) 784-7500 ext. 2124 
Don.Fisher@HeiligMeyers.com 

<clip>
Cobol 400 (NOT ILE COBOL) does support recursive calls.
 
Here enclosed you may find an example.
Sincerely 
Domenico Finucci 
Fiditalia , Milano, 02- 4301-2494 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---