Re: Popup temporary window

Paul,

Thanks for the response. I tried it with DFRWRT(*NO), and with DFRWRT(*YES) and it appeared to function the same (window shows up a fraction of a second before the subfile).

But John McKay came up with the winning lottery ticket (or Boardwalk, if you like McD's). I've responded to it for the archive.

Thanks again to all who responded. This is why I love this list!

~TA~


BTW, I had a Pastor at my church for 26 years whose name was Paul Morgan. Every time I see your name, I think of him.






"Morgan, Paul" <Paul.Morgan@xxxxxxxxxxx> wrote in message news:mailman.4892.1318951056.2520.rpg400-l@xxxxxxxxxxxx...

Timothy,

Look at the DFRWRT parameter on the CRTDSPF command.

Paul Morgan

Principal Programmer Analyst
IT Supply Chain/Replenishment

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Timothy Adair
Sent: Tuesday, October 18, 2011 10:44 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Popup temporary window

In an RPG pgm, I want to temporarily pop up a small window and then have it
go away with no user interaction. It's a subfile inquiry program and the
subfile takes about 5-10 seconds to load. I want to pop up a window that
says "LOADING..." during this 5-10 seconds. If I do a WRITE it doesn't show
up until the next EXFMT. If instead I do an EXFMT, it waits until the user
presses Enter and then takes 5-10 seconds to load the sfl.

I tried the KEEP keyword and it seems to make no difference.

SNDPGMMSG is not really an option, as I want a window to pop up in the
middle of the screen.

Any ideas? Am I missing something obvious?

As always, I welcome any and all responses.

TIA,

~TA~

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.