Re: Delete Interactive Call

["Mike Naughton" <mnaughton@xxxxxxxxxxxx>]

Hi Neeraj,

You've probably already thought of this, but this could be handled from
within your programs. Have PGMB pass PGMC a parm whose job is to pass
PGMC's state information back to PGMB. If PGMC errors, set the parm, and
then have PGMB respond appropriately. Same thing with PGMA calling PGMB.
This is more work than some "automatic" solution (but, in my experience,
not a lot of work), but on the plus side it does allow all three programs
to do any cleanup that may be required.

hth

RPG400-L@midrange.com writes:
>Hi,
>
>I have a very strange requirement and am not sure if there is any
>solution.
>Problem is as follows:
>
>I have a call tree like PGMA-->PGMB-->PGMC. These programs can be a
>mixture
>of OPM and ILE.
>
>I have created a menu and an interactive call to PGMA is attached as a
>menu
>option. PGMA can be called either from Menu or Command line. During my
>call
>to PGMA,  suppose PGMC has some error. I want to trap the error, show user
>a relevant message, kill all the call stack programs(PGMA, PGMB & PGMC)
>with no further processing and come back to same starting place(Menu or
>Command line). Is this possible? Is there a command or API to kill the
>call
>within the job and return to same starting place? ENDRQS kills the call
>level but does not return to same starting place.
>
>Please let me know your suggestions.
>
>Thanks
>Neeraj


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---