Re: DDS timeout

[Mark Lazarus <mlazarus@xxxxxxxx>]

Loyd,

At 03:54 AM 12/13/97 GMT, you wrote:
>On Fri, 12 Dec 1997 14:12:32 -0600, Vern Hamberg
><hambergv@goldengate.net> wrote:
>>>>>      FLVWEDGEDCF  E                    WORKSTN  
>>>>       F                                           KNUM    1
>...
>>>>       C                     REQD LVWEDGED           9999
>
>>>This worked the first time! So, having not done this, what does the
>>>KNUM 1 do??
>
>>Maximum number of devices this file can acquire.
>
>So... it won't work unless K NUM 1 is used... AND I must READ the
>actual display file... 
>
>OK, this is pretty neat. (Considering I've only been doing RPG for a
>few years.) Is there a way to change the WAITRCD parameter from within
>RPG, or is that at CL-only function. For instance, a patron runs their
>card through the machine, and the account is still on the system. (We
>merge accounts periodically and mail the patron new cards, but
>sometimes the old one gets used.) If the account is valid, I want the
>screen to time out after 10 seconds. But if the account number is
>invalid, I'd like a timeout of say, 5 seconds... 
>
>Can this be accomplished within RPG, or do I need to call a CL program
>from RPG with the # of seconds as a paramter, let the CL do the
>OVRDSPF, then call a second small RPG program to read the display?

 There is another method that you can use which uses the $$TIMER function
in ICF.  There was some code published in NEWS 3X/400 years ago that used
that method.  It was actually a S/36 function.

 Another method (by Pete?) that was posted to this board is the dataq method.

 Both allow you to dynamically change the wait time.

 -mark

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---