RE: Recursive Calls--what I use

Do you have an example

-----Original Message-----
From: Tim McCarthy [mailto:TimM@softwarejungle.com]
Sent: Friday, July 09, 1999 10:24 PM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: Recursive Calls--what I use


Yes but:  ((new_solution = overhead++) &&
!(get_rid_of_joblog_exceptions));
An MI program that uses the MATINVS is cleaner and much faster. 

> -----Original Message-----
> From: Ken Sims at SWS Nevada [SMTP:ken.sws@ke9nr.org]
> Sent: Friday, July 09, 1999 12:01 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      RE: Recursive Calls--what I use
> 
> Hi Tim -
> 
> It would be easy to make the program more sophisticated
> so that it would:
> 1. If the SNDPGMMSG is successful, remove from the
>    program's stack the message that was sent, and
> 2. If the SNDPGMMSG is not successful, remove the error
>    message(s) returned.
> 
> Ken
> 
> >Date: Fri, 9 Jul 1999 12:03:34 -0400
> >From: Tim McCarthy <TimM@softwarejungle.com>
> >Subject: RE: Recursive Calls--what I use
> >
> >This will work but handling exceptions adds overhead - a
> consideration
> >if this is to be widely implemented - plus you get a lot of extra
> &*&%
> >in your job log. It also doesn't cater for situations where the
> called
> >program is library qualified (not a big deal I admit). I'll take Carl
> up
> >on his offer to post it on his BBS.
> >
> >> -----Original Message-----
> >> From: Bob Crothers [SMTP:bob@cstoneindy.com]
> >> Sent: Friday, July 09, 1999 2:10 AM
> >> To: 'MIDRANGE-L@midrange.com'
> >> Subject: 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
> >>
> 
> 
> +---
> | 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
+---
+---
| 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
+---