|
I want to send, instead, my own message of 'Please, wait...'Searching thru the archives I came to one that explained how to avoid OPNQRYF message, by issuing a
CHGJOB STSMSG(*NONE) My test program looks like :PGM SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
midrange.com
MSGDTA('Please, wait...') TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
A: OVRDBF RCM FERNANAN/RCM SHARE(*YES)
OPNQRYF FILE((RCM)) QRYSLT('CCUST *EQ 2089')
B: CHGJOB STSMSG(*NONE)
CALL PRUSTSMSGR <--- RPG pgm that will process data
CLOF OPNID(RCM)
C: CHGJOB STSMSG(*NORMAL)
ENDPGM
So, I'm trying to send my "Please wait..." message, then do the OPNQRYF
* If I leave the B-tag line as shown, then NO-status messages,
neither mine, nor OPNQRY's, will be shown. This seems normal,
although not what I want, of course.
* If I remove that same line, then my message shows for a moment,
then OPNQRYF's message overlaps mine. Normal also...
But
* In this same case, even if I move my own SNPPGMMSG just before the
RPG program, i.e. below the OPNQRYF line, the same happens (my
message shows first for a moment, then OPNQRYF's message) since (I
guess) the real Open of the OPNQRYF does not take place really
until RPG really opens it.
So, the question is, hown can I "replace" OPNQRYF's status message with
my own message?
TIA
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.
