|
The way I do that, and it works pretty well for me, is to create a display file that has two record formats in it. One is the message you want to display (Processing...busy...whatever...) and which has the OVERLAY keyword at the record level. Let's call it S1 A R S1 A OVERLAY A B 2 60 'PROCESSING' The second record format looks like this: A DSPATR(HI) A R DUMMY A KEEP A ASSUME A OVERLAY A DUMFLD 1A O 13 79 *************** End of data ************************ In your RPG program, wherever you want to display your "processing" message, simply do this: C Write S1 Then do any other processing you want. When your subfile is built, you can then write it out like you normally do and continue on. The S1 format will disappear, (be overwritten) by the subfile control record and subfile record formats. BTW...you can find this tip and about 900 others just like it here: "The MC Press Desktop Encylopedia for iSeries and AS/400" http://www.mc-store.com/5027.html HTH -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson Sent: Thursday, May 26, 2005 11:41 AM To: RPG programming on the AS400 / iSeries Subject: Processing... Please Wait... But with a subfile I just read the thread about informing the user that processing is occurring. My options include sndpgmmsg or issuing a Write (w/FrcDta keyword on record format). I want to go with the latter, and I'm looking to do a little bit more. I'd like to display a subfile as it's being built w/o waiting for the user. Essentially the user would see the 'processing...' message above the subfile column headings, but would also see any exception messages pop up at the same time. At the end, the window footer would display command keys appropriate to the result of the processing. My window is as such: * subfile A R WdwSfl * subfile control (header) A R WdwCtl SflCtl( WdwSfl ) A Window(Wdw) A FrcDta A 96 SflDsp A N98 SflDspCtl A 98 SflClr A 96 SflEnd( *ScrBar ) * window definition (footer) A R Wdw In the code: // build record to write to subfile SflClr = *Off (in98) WdwSflDsp = *On; (in96) WdwRRN += 1; Write WdwSfl; Write WdwCtl; <------- error Write Wdw; If I remove the error statement, I only get a window (subfile is not displayed). Thanks, Kurt Anderson Application Developer Highsmith Inc. W5527 State Road 106, P.O. Box 800 Fort Atkinson, WI 53538-0800 TEL (920) 563-9571 FAX (920) 563-7395 EMAIL kjanderson@xxxxxxxxxxxxx
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 copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.