RE: automatic refresh

[Buck Calabro <buck.calabro@xxxxxxxxxxxxxxxxx>]

Leif Svalgaard wrote:

>I'm having a problem with automatic refresh of a display.
>The standard way of doing this is to use the INVITE keyword
>on the DDS (testinvd) for the display file:

-snip-

>Second problem:
>an RPG/400 version of the above.

It's not your specific example but it's close.  Instead of EVAL use ADD 1
COUNT for your counter.

H        1                                                  
FCLOCKFM CF  E                    WORKSTN                   
F                                              KNUM        2
F                                              KID    PGMDEV
C* PUTOVR                                                   
C                     SETOF                     40          
C           *IN03     DOWEQ*OFF                             
C                     TIME           TIME                   
C                     WRITECLOCK                            
C                     SETON                     40          
C                     READ CLOCKFM                8081      
C   03                LEAVE                                 
C                     ENDDO                                 
C                     SETON                     LR          

>Third problem:
>How to avoid the erasure of the screen when the
>RPG program returns.

KEEP might help but not in the way you probably want.  If you use KEEP in
the DDS, the screen won't be erased by THIS program, but it probably will be
erased by the NEXT program that runs.  For instance, if you call this from
the command line, it puts up the count, you press F3 and the program exits,
leaving the display intact.  The command line will re-send it's display and
wipe out your count.  KEEP works in cases where the caller is designed to
re-display it's screen when it "needs to."  There aren't too many AS/400
programmers who use RSTDSP, OVERLAY, PUTOVR and KEEP the way CCP intended
them to be used.  <grin>

Buck Calabro
Aptis; Albany, NY
"Nothing is so firmly believed as
 that which we least know" -- Michel Montaigne
Visit the Midrange archives at http://www.midrange.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---