RE: Receiving *DIAG messages

I haven't tested the code, but it might be a start.

DCL        VAR(&KEYVAR) TYPE(*CHAR) LEN(4)             
DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)              
DCL        VAR(&SEV)    TYPE(*DEC) LEN(2 0)            
DCL        VAR(&RTNTYP) TYPE(*CHAR) LEN(2)             
                                                                     
MSG:        RCVMSG     MSGQ(SOMEMSGQ) MSGTYPE(*DIAG) RMV(*NO) +     
                       KEYVAR(&KEYVAR) MSGID(&MSGID) SEV(&SEV) + 
                       RTNTYPE(&RTNTYP)                          
            IF         COND(&MSGID *EQ 'CPD32E7') THEN(DO SOMETHING) 
                                                                     
  

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Guthrie G
Sent: Friday, May 05, 2006 9:05 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Receiving *DIAG messages

I'm trying to receive a diagnostic message (CPD32E7, "The trigger
operation
failed") in a CLLE program with RCVMSG but I haven't been able to find a
published example.  I'd be grateful for a snippnet of code or a link.

Thanks,
GP