Re: DDS Timeout

Mr. Scott Klement

Thank you for your information, it sounds close to what I want to do.
I just have one more question that I would like to ask you.

If I compile the DSPF with WAITRCD of one minute, (that would be out generic 
timeout). Then inside the program lets say that I have a certain user is 
allowed five minutes(passed in parm). The program would read the data queue 
and after one minute my DSPF would send a timeout value to the data queue. 
Except that my certain user is allowed five minutes. Would I have to go into 
a loop and re-read the data queue, and would I write the record format or 
read the DSPF until my five minutes are up? I would not prefer to keep 
writing the record format, because of causing a screen flicker. I cant use 
the
CHGDSPF command, because I would be affecting the object for all of the 
users.

Any help would be appreciated.
Could you send me some of your example code, maybe that would clear things 
up better.
Thank you,
Richard Hartman
Email: richard.hartman@brctsg.com


>From: "Scott Klement" <infosys@klements.com>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: Re: DDS Timeout
>Date: 23 Nov 1999 14:47:21 -0600
>
>The ability to "time out" on a screen isn't actually a feature of RPG
>but is rather a feature of the display files.  The same concepts for
>timeouts will work in RPG III or CL or (afaik) any HLL.
>
>To change the WAITRCD parameter, you can do:
>      CHGDSPF FILE(xxx) WAITRCD(xxx)
>  or  OVRDSPF FILE(xxx) WAITRCD(xxx)
>
>These are CL commands, so you can do them from a seperate CL program,
>or you can use QCMDEXC (or whatever else you prefer) to do them in
>your RPG.
>
>The more versatile way of doing it is to use data queues, INSTEAD of
>the WAITRCD parameter.   This works very well, and allows you to
>adjust the timeout value on-the-fly.
>
>If you're running several copies of the same program, and want to keep
>each data queue seperate, the easiest way is to put the data queue in
>the QTEMP library (QTEMP is different for every job)
>
>Your program would do something like this:
>         1) Create a data queue in QTEMP for this job.
>         2) OVRDSPF FILE(xxx) DTAQ(QTEMP/xxx)
>         3) Open the display file
>         4) Write a record to the display file with FRCDTA and INVITE
>               DDS keywords.
>         5) Wait for an entry to appear on the data queue, with a
>               timeout value.
>         6) If an entry appears before the timeout, read the screen,
>               and process the input.
>         7) And so on...
>
>Or did you mean that you want the program to control multiple
>terminals and to be able to determine which of the terminals
>pressed enter?
>
>If you need more info, just reply and ask questions...  I could even
>give you example code if you need it.
>
>HTH
>
>
>"Richard Hartman" <r_hartman@hotmail.com> wrote:
> > I was searching through the Midrange Archives looking for informatio
> >  on
> > RPG's "Timeout" feature. When I found Pete Hall's thread, dated Sat,
> >  13 Dec
> > 1997, with the title "DDS Timeout", where he describes how to use a
> >  data
> > queue to change the WAITRCD parameter.
> >
> > I would like to find out how to change the WAITRCD parameter, but I
> >  weary
> > about using the data queue method described. If multiple users were
> >  running
> > the program that use's the data queue, and one of them timed out, ho
> >  can
> > you tell which program timed out?
> >
> > If anybody has any information about the above questions, or any
> >  information
> > at all about the "Timeout" feature with RPG IV, it would be greatly
> > apreciated.
> >
> > Richard Hartman
> > Email:  richard.hartman@brctsg.com
> >
> > ______________________________________________________
> > Get Your Private, Free Email at http://www.hotmail.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
>+---

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.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
+---