Re: Display a Messsage

By default, the AS/400 defers the write of a screen until the screen is
read.  So when you issue the WRITE, the screen is not sent to the terminal.
When the next EXFMT is executed, the WRITE screen is sent, then the EXFMT
screen is sent wiping out the WRITE screen, and then the screen is READ
waiting for the operator to press a key.  This is done for performance
reasons.

Specify the keyword FRCDTA in the display file DDS on the record format
containing the "Please wait" message to indicate you do not want to defer
the write of the screen until a READ is issued.  You might also want to use
the LOCK keyword to lock the keyboard as well as the OVERLAY keyword.

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


----- Original Message -----
From: "Amir Khan" <akhan@saudicement.com.sa>
To: <RPG400-L@midrange.com>
Sent: Thursday, 19 April, 2001 02:48
Subject: Display a Messsage


> Hi,
>
> I am trying to display a message through my interactive RPG program. My
RPG
> program takes input and starts continue executing when Enter key is
pressed
> by user. Since program is taking longer time to finish processing, I just
> want to display a ‘Please Wait…Processing’ message on the screen without
> erasing the input screen. I am not calling my RPG program from any CL
> program since I am using SQL in it. If I define a second record format in
> DDS with OVERLAY and use EXFMT then program displays the message but also
> wait for Enter key press again, simply WRITE statement in RPG does not.
>
> For any help many thanks in advance.
>
> Amir
> System Analyst, SCC,
> K.S.A.
> (00-966-03-8344500 X267)
>


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