Re: Delete Interactive Call

Send an escape message to PGMA's program message queue to kill
everything in the call stack, beginning with PGMA and progressing
forward.

Gary Guthrie
Senior Technical Editor, NEWS/400 magazine


Neeraj.Verma@smed.com wrote:
> 
> 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
> 
> 
>-------------------------------------------------------------------------------
> This message and any included attachments are from Siemens Medical Solutions
> Health Services Corporation and are intended only for the addressee(s).
> The information contained herein may include trade secrets or privileged or
> otherwise confidential information.  Unauthorized review, forwarding, 
>printing,
> copying, distributing, or using such information is strictly prohibited and 
>may
> be unlawful.  If you received this message in error, or have reason to believe
> you are not authorized to receive it, please promptly delete this message and
> notify the sender by e-mail with a copy to CSOffice@smed.com.  Thank you
> +---
> | 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
> +---
+---
| 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
+---