Re: Recursive Calls--what I use

["Bob Crothers" <bob@xxxxxxxxxxxxxx>]

Don,

I do not think my little program would detect individual module's of a
multi-module ILE program.

Bob

-----Original Message-----
From: Fisher, Don <DRF@HeiligMeyers.com>
To: 'MIDRANGE-L@midrange.com' <MIDRANGE-L@midrange.com>
Date: Friday, July 09, 1999 4:08 PM
Subject: RE: Recursive Calls--what I use


>Just out of curiosity, does anyone know how this program will respond
with a
>multi-module ILE program?  It seems to me that the modules within the
>program could call each other recursively and this program will not
detect
>it since the modules don't have their own "PGMQ".  Or do they?
>
>Donald R. Fisher, III
>Project Manager
>Heilig-Meyers Furniture Company
>(804) 784-7500 ext. 2124
>Don.Fisher@HeiligMeyers.com
>
>From: Bob Crothers [mailto:bob@cstoneindy.com]
>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
>+---
>| 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
+---