RE: Emulator Closing Event

I believe the API CEERTX will work for us for this problem.

Thanks for all your suggestions.
Chris Bougher



                                                                                
                                                         
                      "Shannon ODonnell"                                        
                                                         
                      <sodonnell@janojus        To:       "'RPG programming on 
the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>             
                      tice.com>                 cc:                             
                                                         
                      Sent by:                  Subject:  RE: Emulator Closing 
Event                                                     
                      rpg400-l-bounces@m                                        
                                                         
                      idrange.com                                               
                                                         
                                                                                
                                                         
                                                                                
                                                         
                      06/15/2005 12:15                                          
                                                         
                      PM                                                        
                                                         
                      Please respond to                                         
                                                         
                      RPG programming on                                        
                                                         
                      the AS400 /                                               
                                                         
                      iSeries                                                   
                                                         
                                                                                
                                                         
                                                                                
                                                         




We have this same problem. We solved it by using an exit program on the
Telnet Device Termination exit point. When that device ends, the exit point
is called. Of course, this could be awhile, depending on the value of
QDSCJOBITV (Disconneted Jobs system value).



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Klement
Sent: Wednesday, June 15, 2005 11:00 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Emulator Closing Event


> How can I tell within my program if the user has closed their emulator
> session? We have situations where a record is locked and the users are
> closing their emulators and this is causing data integrity issues.

What is the QDEVRCYACN sysval set to?

If a message is sent to the program, you can trap it it by putting a
MONITOR/ON-ERROR around the EXFMT statement. There's a particular status
code (I think it's 1251, but don't quote me on that) that will come up.


               MONITOR;
                  exfmt MYSCREEN;
               ON-ERROR 1251;
                  exsr Recovery;
               ENDMON;

Though, I can't seem to visualize why this would cause an integrity issue,
unless it's in the middle of updating something and getting cut off at
that point? But that shouldn't happen, the error should occur when it
tries to work with the screen.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.