Re: automatic refresh

["Leif Svalgaard" <leif@xxxxxxxx>]

The first problem has been resolved (not solved)
as it does not happen all the time.
Somebody, please help with the second.
Thanks
Leif

----- Original Message -----
From: Leif Svalgaard <leif@leif.org>
To: List Midrange <MIDRANGE-L@midrange.com>
Sent: Wednesday, December 27, 2000 11:10 AM
Subject: automatic refresh


> Folks,
>
> 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:
>
>      A                                      DSPSIZ(24 80)
>      A                                      CA03
>      A          R DUMMY                     ASSUME
>      A                                  1  2 ' '
>      A          R SCREEN       OVERLAY
>      A                                      INVITE
>      A                                  1 17' JCR- TEST REFRESH WAIT'
>      A            COUNT          3S 0B  4  4
>      A                                 10 13'Compile this dspf with the
> WAITRCD-
>      A                                       value set to the number'
>      A                                 11 13'of seconds you wish to delay.'
>
> then the following RPG ILE program counts up the COUNT with automatic
> refresh of the display every WAITRCD seconds until you hit PFKEY 3:
>
>      Ftestinvd  cf   e             workstn
>      F                                     maxdev(*file)
>      F                                     devid(pgmdev)
>      C                   dow       not *inkc
>      C                   add       1             count
>      C                   write     screen
>      C                   read      testinvd
9999
>      C   kc              leave
>      C                   enddo
>      C                   eval      *inlr=*on
>
>
> this works fine for a "normal" display, but does NOT work for
> the async console. Probably because the maxdev parm
> having no effect for the console or some such stupid thing.
>
> Second problem:
> an RPG/400 version of the above.
>
> Third problem:
> How to avoid the erasure of the screen when the
> RPG program returns.
>
> TIA
> Leif Svalgaard
>
> +---
> | 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
> +---

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