RE: STATUS mesage problem

["Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>]

Hi Antonio

>> So, the question is, hown can I "replace" OPNQRYF's status message with 
>> my own message?

The OPNQRYF uses a number of status messages which you can find by browsing
the help on the OPNQRYF command.

The message you were referring to in your post is CPI4011 in QCPFMSG and the
simplest solution would be to change the first level text of this message to
the text you want.

An alternative that was suggested by Mike Barton in another thread a couple
of weeks ago is to create your own message file with just the new message in
and then to use the OVRMSGF command to override to your new message file.
The clever thing with this solution is that if a message ID is not found in
the message file being overridden to then it takes it from the original
message file instead.

For example:

PGM

CRTMSGF    MSGF(QTEMP/QCPFMSG)                     
ADDMSGD    MSGID(CPI4011) MSGF(QTEMP/QCPFMSG) MSG('Please wait...')
OVRMSGF    MSGF(QCPFMSG) TOMSGF(QTEMP/QCPFMSG)            
                                                          
OVRDBF     RCM  FERNANAN/RCM SHARE(*YES)                   
OPNQRYF    FILE((RCM)) QRYSLT('CCUST *EQ 2089')           

CALL       PRUSTSMSGR       <--- RPG pgm that will process data 
CLOF       OPNID(RCM)                                     

DLTOVR     *ALL

ENDPGM

Hope it helps

Jonathan