|
I have another option for you to consider.
I have found that if you compile your DSPF with the defer write option set
to *NO (it defaults to *YES), that you can send a message to the user's
screen immediately when you issue a WRITE command from within your program.
Fill in whatever you want the message to say in the field MSGTXT from
within your program before you write the message record. Here's how I coded
the message record line in the DSPF to display a 1-line message at the
bottom of the users screen...just make sure to display the message on a
line that isn't being used for anything else.
A*
A* Processing Message
A*
A R MSG CLRL(*NO)
A MSGTXT 79A 22 1DSPATR(PC)
Thanks,
Renee Leach
Information Technology
Covenant Healthcare
515 N. Michigan Ave.
Saginaw, MI 48602
(989) 583-6304 ... Phone
(989) 583-2834 ... Fax
rleach@xxxxxxxxxx
"Fleming, Greg
\(ED\)"
<GFLEMING@evergla To
desdirect.com> <rpg400-l@xxxxxxxxxxxx>
Sent by: cc
rpg400-l-bounces@
midrange.com Subject
Processing ....please wait
04/27/2005 10:24
AM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
I'm trying to figure out how to display a screen without requiring the
program to wait for a response.
The idea is to display "Processing...please wait" while a program is
called to process data, then returns a few seconds later with results to
display.
I found something on this topic in the archives, but unfortunately it
was only a discussion of whether it would be better to use SNDPGMMSG or
display a whole screen. I would prefer the latter, but don't know how
to go about it.
Any suggestions ?
Greg Fleming
Programmer/Analyst
Everglades Direct, Inc.
720 International Parkway
Sunrise, FL 33325
954.514.2258
954.851.1201 Fax
gfleming@xxxxxxxxxxxxxxxxxxxx
--
This is the RPG programming on the AS400 / iSeries (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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.