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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.