Re: Automatic Update of Display Window

a different approach.
call the following pgm to display a msg on line 24 of the display:

   PGM        PARM(&MSG)
   DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)
   SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
                TOPGMQ(*EXT) MSGTYPE(*STATUS)
   ENDPGM


-----Original Message-----
From: Falconberry, Ron G. <PGRGF@mail.directins.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Tuesday, May 15, 2001 4:38 PM
Subject: Automatic Update of Display Window


>Is there a way to display a window in an interactive job where the window
>data is automatically updated without the user having to press any keys?
>
>We have converted a submitted RPGLE program to run interactively.  To
>indicate to the user that the program is functioning and not just locked
up,
>I wanted to display a popup window which automatically displays some data
>from the transaction being currently processed.  When the program ends, the
>window also closes and the previous screen is redisplayed.  Unfortunately,
>everything I have tried either forces the user to press Enter before the
>program continues or the program runs to completion without any window
being
>displayed at all.
>
>Is there a way to do this using a window - or even a regular screen - or am
>I running down a dead-end street?  I am open to alternative ideas.
>
>Ron Falconberry
>pgrgf@mail.directins.com
>(615) 360-4527
>
>+---
>| 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
+---