Re: Delete Interactive Call

Gary,

Thanks for your suggestion. I my case PGM C could be called by multiple
different callers(Like PGMA, PGM1, PGM2 etc.). Further sending the escape
message causes all the call stack entries up to but not including the call
stack entry receiving the escape message to end.  In our case if we send
escape directly to PGMA, then only PGMB & PGMC end. But PGMA remains. How
do we end PGMA?

Regards
Neeraj



                                                                                
               
                    Gary Guthrie                                                
               
                    <garyguthrie@home       To:     RPG400-L@midrange.com       
               
                    .com>                   cc:                                 
               
                    Sent by:                Subject:     Re: Delete Interactive 
Call           
                    owner-rpg400-l@mi                                           
               
                    drange.com                                                  
               
                                                                                
               
                                                                                
               
                    07/31/2001 11:29                                            
               
                    AM                                                          
               
                    Please respond to                                           
               
                    RPG400-L                                                    
               
                                                                                
               
                                                                                
               




Why go to all that trouble if the other programs need do nothing else?
Just send the escape directly to PGMA and be done with it.

Gary Guthrie
Senior Technical Editor, NEWS/400


JIM LANGSTON wrote:
>
> The way this should be done, IMO, is to have PGMC and PGMB return a
result
> indicator or some other method of communicating with PGMA (LDA, Return
> Value, whatever).
>
> After PGMA calls PGMB it should look at the result indicator, and if an
> error is indicated it should RETURN.  PGMB should do the same thing when
> calling PGMC, look at the result, and if an error RETURN.  PGMC should
> handle any errors and any critical errors (can't be resumed) should set
on
> the error indicator and return.  Then you at least get a semi-graceful
exit.
>
> Actually, this is not really a strange requirement but is used a lot in
> programs.
>
> Regards,
>
> Jim Langston
>
> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
+---
| 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 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
+---