RE: STATUS mesage problem -- MIDRANGE-L

I've made a couple of changes to your code. I have tagged it with G. You
will be able to see your status message through out your program.

Thanks,
Ganesh

Exel GFM CM Team,
Wipro Technologies, Chennai
PH: +91 044 30691771
MB: +91 09841289431
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Antonio
Fernandez-Vicenti
Sent: Wednesday, January 25, 2006 5:14 PM
To: Midrange Systems Technical Discussion
Subject: STATUS mesage problem

Problem: OPNQRYF  will send Status a message telling how many records it

is reading and selecting...
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                                               
G:     CHGJOB     STSMSG(*NORMAL)     
      
        SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG)                  +
                         MSGDTA('Please, wait...') TOPGMQ(*EXT) +
                         MSGTYPE(*STATUS)                            

G:     CHGJOB     STSMSG(*NONE)     

A:     OVRDBF     RCM  FERNANAN/RCM SHARE(*YES)                  
        OPNQRYF    FILE((RCM)) QRYSLT('CCUST *EQ 2089')          

                  

        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

--
Antonio Fernandez-Vicenti
afvaiv@xxxxxxxxxxxxxx

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



The information contained in this electronic message and any attachments to 
this message are intended for the exclusive use of the addressee(s) and may 
contain proprietary, confidential or privileged information. If you are not the 
intended recipient, you should not disseminate, distribute or copy this e-mail. 
Please notify the sender immediately and destroy all copies of this message and 
any attachments.

WARNING: Computer viruses can be transmitted via email. The recipient should 
check this email and any attachments for the presence of viruses. The company 
accepts no liability for any damage caused by any virus transmitted by this 
email.

www.wipro.com