Re: MONMSG CPF2103 but still "unmonitored", causing halt -- MIDRANGE-L

On Wednesday, October 22, 2003, at 07:45 AM, G Armour wrote:

How does one "walk backwards" through messages?  Do you have to have a
point of reference via MSGKEY to do it?  Does the fact that CPF2102 is
issued from another program going to affect how to get at it?

You do not have to 'walk' the message stack. In fact that wouldn't work in this case because the message you want is sent to a call message queue that is no longer active which means you cannot receive it unless you already know the message key (4-byte magic marker).

In this case all you have to do is monitor for the CPF9999 message, receive it and check the first 7 bytes of the substitution data.

MONMSG CPF9999 *N DO
        RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) RMV(*NO)
        IF (%SST(&MSGDTA 1 7) *EQ 'CPF2102') THEN(DO)
                /* Your stuff goes here */
        ENDDO
ENDDO

Of course the real problem is the invalid object type in the underlying object.C740 is not a valid object type hence the error. DSPPGMREF gets its information from the Where-Used section of the OIR record for the object so it is possible that the information in the OIR is bad or that QWHDSPPR is incorrectly calculating offsets or that the OIR layout has changed. Either way this is an IBM program breaking in a fairly ugly manner and you should open a support call.

I'd bet that if you recompile the offending CL program you will find the problem 'goes away' because recompiling will regenerate the OIR information.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------

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.