|
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-2024 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.