Re: Display a Messsage

["Zdenko Beks" <zdenko.beks@xxxxxxxxx>]

  A          R WAIT
  A                                      FRCDTA
  A                                      OVERLAY
  A                                  4  2' '
  A                                 12 32'Please wait ...'
  A                                 23  2' '

 Try this   with WRITE WAIT intead of EXFMT.
Lines 4 and 23 are for clearing complete display from line 4 to 23.
Hope this wil help.

Zdenko



----- Original Message -----
From: Amir Khan <akhan@saudicement.com.sa>
To: <RPG400-L@midrange.com>
Sent: Thursday, April 19, 2001 8:48 AM
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
> +---
>


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