Re: Receiving *DIAG messages

[Reeve <rfritchman@xxxxxxxxx>]

G, this code works fine for *EXCP messages when you use MSGQ(*PGMQ)
MSGTYPE(*EXCP) (and *COMP messages too).  But those pesky *DIAG's are just
out of my reach.

-G


On 5/5/06, Grizzly Malchow <grizzlym@xxxxxxxxxxxxxxxxxxxxx> wrote:
> 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
> --
> 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.
>
>
> --
> 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.