RE: Recursive Calls--what I use

Here is the little CL program I use to tell if a program is already in 
the call stack.  Pass it a 1 character result field and the program 
name.  If it is NOT in the call stack, the a blank will be returned. 
 If it IS in the stack, then 'A' is returned.

Regards,
Bob Crothers

PGM        PARM(&RESULT &PGMNAME)
 
             DCL        VAR(&RESULT) TYPE(*CHAR) LEN(1) 
             DCL        VAR(&PGMNAME) TYPE(*CHAR) LEN(10) 
 
             CHGVAR     VAR(&RESULT) VALUE(' ') 
 
             SNDPGMMSG  MSG(XXXX) TOPGMQ(*PRV (&PGMNAME)) 
             MONMSG     MSGID(CPF0000) EXEC(RETURN) /* Program is + 
                          NOT in the call stack */ 
 
             CHGVAR     VAR(&RESULT) VALUE('A') /* Program IS in the + 
                          call stack */ 
 
             ENDPGM



-----Original Message-----
From:   zylka.marc@westpoint-stevens.com 
[SMTP:zylka.marc@westpoint-stevens.com]
Sent:   Friday, July 09, 1999 7:36 AM
To:     MIDRANGE-L@midrange.com
Subject:        Re:Recursive Calls



Tim, I'd love to have a copy of that command.  That should be the 
easiest way to
limit
someone from calling program B again.

Thanks,
Marc Zylka, 228-5267


____________________Reply Separator____________________
Subject:    RE: RE: Recursive Calls
Author: <MIDRANGE-L@midrange.com>
Date:       7/8/99 6:08 PM

Hey, I have a little command that can check to see whether a given
program is in the current jobs stack. I used to use it to prevent
recursion for a menuing system I had once. Anyone want a copy?
Tim




+---
| 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
+---

+---
| 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
+---