RE: Exiting a unattended interactive application

Here is how we do it in our shop:

1) Add INVITE keyword in the record format of the display file.  

Here is the coding will looks like, assuming that the display file name is 
DSPFILE and the record format name is DSPFILEFMT:

FDSPFILE   CF   E             WORKSTN INFDS(fdsDSPFILE)  
F                                     INFSR(*PSSR)       
F                                     MAXDEV(*FILE)   

D fdsDSPFILE      DS        
D @wsStatus         *STATUS 

D @wsTimeOut      c                   const(01331)

C                   write     DSPFILEFMT               
C                   read(e)   DSPFILE

C                   if        @wsStatus = @wsTimeOut
C                   eval      *inlr = *on
C                   return
 
C                   . . . . . 


             


-----Original Message-----
From: n [mailto:nleonessa@xxxxxxxxxxxxxxxxxxx]
Sent: Thursday, May 15, 2003 8:30 PM
To: Midrange - RPG Forum
Subject: Exiting a unattended interactive application


We have users that don't signoff and leave certain applications running.

I was wondering if there was a way (within the interactive program), to exit
the program if it has been inactive for a certain period of time.

Any help as always is appreciated.

_______________________________________________
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.