Re: DDS Timeout -- RPG400-L

"Richard Hartman" <r_hartman@hotmail.com> wrote:
> 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 form 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.

Okay, given this type of scenario, just forget about the WAITRCD
parameter on the display file...  Leave it at *NOMAX, we won't even
use WAITRCD at all, we'll do it entirely with data queues!

The record format will use the DDS keyword "FRCDTA" to make it display
immediately when we WRITE it from our RPG program.   Then, we'll also
use the INVITE keyword.  This allows the user to type into the
record format -- even though we havent issued a "READ" to the screen
yet.

When the user finally does hit enter or a function key, an entry will
be placed into the data queue.   We'll simply do our timeout by
waiting for an entry to appear in the data queue for a certain number
of seconds (which could be supplied as a variable) and not read the
screen unless we actually DID see a function key or ENTER pressed.

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

Okay, at the bottom of the message, will be some example code.
There will be 2 source members...  DDS for the display file, and
RPG for the actual program logic.

To run the example, compile the display with:
   CRTDSPF FILE(MYDSPF) SRCFILE(xxx/xxx)
 compile the RPG with:
   CRTBNDRPG PGM(MYPGM) SRCFILE(xxx/xxx) DFTACTGRP(*NO) ACTGRP(*NEW)
 and then just call the program.

Heres the example DDS:

A                                      DSPSIZ(24 80 *DS3)
A          R SCREEN1
A                                      INVITE
A                                      FRCDTA
A                                  9 17'There is a timeout on this-
A                                        screen.  Press ENTER'
A                                 10 27'or wait for it to time out.'
A            MSG           50   O 14 16



Here's the example RPG:

FMYDSPF    CF   E             WORKSTN USROPN

D RunCmd          PR                  EXTPGM('QCMDEXC')
D  Cmd                         200A   CONST
D  Len                          15P 5 CONST

D RcvDtaQ         PR                  EXTPGM('QRCVDTAQ')
D  dqname                       10A   CONST
D  dqLib                        10A   CONST
D  dqLen                         5P 0
D  dqData                       80A
D  dqWait                        5P 0 CONST

D DQLen           S              5P 0
D TimeOut         S              5P 0
D DQData          S             80A

C* create a data queue in QTEMP.
c                   callp     RunCmd('CRTDTAQ DTAQ(QTEMP/TESTDQ) -
c                             MAXLEN(80) SEQ(*FIFO)': 200)

C* Make the display file use the new data queue
c                   callp     RunCmd('OVRDSPF FILE(MYDSPF) DTAQ(' +
c                              'QTEMP/TESTDQ)': 200)

C* open the display file.
c                   open      MYDSPF

C* Show the screen the user.  This format has the
C* "FRCDTA" keyword so the screen will show up immediately, and the
C* "INVITE" keyword so the keyboard isn't locked.
c                   write     Screen1

C* Wait for one of two conditions...
C*    1) an entry to appear on the data queue or
C*    2) A timeout while waiting for the data queue.
c                   eval      DQLen = 80
c                   eval      Timeout = 10
c                   callp     RcvDtaQ('TESTDQ':'QTEMP': DQLen: DQData:
c                                 Timeout)

C* Show the results...  (if Len=0, no data was received...)
c                   if        dqLen = 0
c                   eval      Msg = 'TIMEOUT!  Press ENTER to quit.'
C                   else
c                   read      SCREEN1                              999
c                   eval      Msg = 'ENTER!  Press ENTER again to quit
c                   endif
c                   write     SCREEN1

C* Wait "forever" for enter to be pressed, this time.
C*    (Timeout=-1 means that it'll never timeout)
c                   eval      Timeout = -1
c                   callp     RcvDtaQ('TESTDQ':'QTEMP': DQLen: DQData:
c                                 Timeout)
c                   read      SCREEN1                              999

C* Do some cleanup and end...
c                   close     MYDSPF
c                   callp     RunCmd('DLTOVR FILE(MYDSPF)':200)
c                   callp     RunCmd('DLTDTAQ DTAQ(QTEMP/TESTDQ)':200)

c                   eval      *inlr = *on

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