Re: MONMSG CPF2103 but still "unmonitored", causing halt

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

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  / \
--------------------------------------------------------------------