RE: EXFMT with a timer

["Chris Beck" <CBeck@xxxxxxxxxxxx>]

Hi Scott, thanks for taking the time to help.

Could you send me a example I am struggling.
I am in RPG/400 and need to use the status=1331 method. 

thanks 

>>> Scott Mildenberger <Smildenber@Washcorp.com> 01/12/00 03:10PM >>>
You can do this.  Steps are: 
Code the invite keyword at the record level in the display file.
Either create the display file with waitrcd(30) for the 30 second timeout,
or use ovrdspf to accomplish, we use the ovrdspf so as not to worry about
display file being recreated without the waitrcd(30).
On the f spec in the RPG put maxdev(*file) for RPG IV or for RPG400
FCC8000D1CF  E                    WORKSTN      KNUM        1 
                                                 KINFDS  INFDS

For RPG400 you need the INFDS data structure to get the *status subfield.

Then in the program, replace the exfmt with a write and a read.  For RPGIV
do a read(e) then after the read if %error is set and %status = 1331 then
the display timed out.  For RPG400 put the Lo indicator on the read to
detect the error.  If this indicator is *on and the status subfield from the
INFDS is 1331 then the display timed out.

Once you do this once it is pretty simple.  If you need more help, send me
an e-mail.  I can dig up some working examples, just don't have handy at the
moment.

Scott Mildenberger

> -----Original Message-----
> From: Chris Beck [SMTP:CBeck@good-sam.com] 
> Sent: Wednesday, January 12, 2000 1:28 PM
> To:   Rpg400-l@midrange.com 
> Subject:      EXFMT  with a timer
> 
> I have a program that when a user presses F10 a Window pops up asking for
> data.  Which is done by a  exfmt.   Then they want the window to disappear
> after 30 seconds if they don't put in any information.
> 
> 
> Is This even possible, because a EXFMT waits for you do something?
> 
> 
> Thanks
> 
> 
> +---
> | 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 
+---

+---
| 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
+---