Re: Recursive Calls--what I use

["Bob Crothers" <bob@xxxxxxxxxxxxxx>]

Tim,

Not everybody has an MI programmer handy.  Mine is but another way to
do the same thing. Yours is faster, but requires MI.  Mine is a bit
slower, but is CL only so will be maintainable.

Bob


-----Original Message-----
From: Tim McCarthy <TimM@softwarejungle.com>
To: 'MIDRANGE-L@midrange.com' <MIDRANGE-L@midrange.com>
Date: Friday, July 09, 1999 4:22 PM
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
+---