|
Rob, Would you happen to have the PR and PI for the QMHRTVM api? rob@dekko.com wrote: > > Have you thought of using the message line? Then you could use the > following: > > ... > * Send a program message. > D qmhsndpm PR EXTPGM('QMHSNDPM') > D MessageId 7A CONST > D MessageFile 20A CONST > D MsgDataOrText 300A CONST OPTIONS(*VARSIZE) > D MsgDataLen 10I 0 CONST > D MessageType 10A CONST > D CallStackEnt 30A CONST OPTIONS(*VARSIZE) > D CallStackCtr 10I 0 CONST > D MessageKey 4A CONST > D qmhsndpmErr LIKE(ErrorCodeP) > ... > D ErrorCode DS > D BytesProvided 10I 0 > D BytesAvail 10I 0 > D ExceptionId 7A > D Reserved1 1A > D ExceptData 256A > D ErrorCodeP S LIKE(ErrorCode) > D based(pErrorCode) > D pErrorCode S * inz(%addr(ErrorCode)) > ... > * IErrorCode is used internally. > D IErrorCode DS > D IBytesProvide 10I 0 > D IBytesAvail 10I 0 > D IExceptionId 7A > D IReserved1 1A > D IExceptData 256A > D IErrorCodeP S LIKE(IErrorCode) > D based(pIErrorCode) > D pIErrorCode S * inz(%addr(IErrorCode)) > ... > C Eval IExceptionId='CPF9898' > C Eval IExceptData='Now processing record ' + > C %trim(%editc(x:'Z')) + ' of ' + > C %trim(%editc(y:'Z')) > ... > C CallP qmhsndpm(IExceptionId: > C 'QCPFMSG *LIBL ': > C %trim(IExceptData): > C %len(%trim(IExceptData)): > C '*STATUS ': > C '*': > C 0: > C MsgKey: > C ErrorCodeP) > ... > And the program is multimode. Meaning this logic should work batch, > interactive, or whatever. Granted the 'record x of y' example is a little > extreme, but you can tailor it to follow the logic of your own program. > And I would put all of the above lines except the C specs into a /COPY > member. You'll find yourself using it a whole lot. > > Rob Berendt > > ================== > Remember the Cole! > > > Amir Khan > <akhan@saudicemen To: >"'RPG400-L@midrange.com'" <RPG400-L@midrange.com> > t.com.sa> cc: > Sent by: Subject: Display a Messsage > owner-rpg400-l@mi > drange.com > > > 04/19/01 01:48 AM > Please respond to > RPG400-L > > > > 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 > +--- +--- | 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 +---
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.