RE: Cannot RCVMSG a SQL0204 *DIAG message

The message is probably on some system program message queue.
Consider using QMHRCVPM api, keeping in mind that it might require some
looping back through the joblog till you hit the message you are interested
in.  You'll need to use the message key (4 byte variable) to iterate through
the loop.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of David Gibbs
Sent: Monday, January 05, 2004 12:31 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Cannot RCVMSG a SQL0204 *DIAG message

A co-worker of mine is trying to receive a diagnostic message in a CL, 
but for some reason (that is totally escaping us) we cannot.

Here's our basic logic ...

Call a bound RPGSQL program that tries to drop a table.

RCVMSG     MSGTYPE(*DIAG) RMV(*NO) MSGID(&MSGID)

if (&MSGID= 'SQL0204') then(do)
/* some stuff */
enddo

We can see the message in the joblog ... but we cannot seem to receive it.

Here's the message details...


SQL0204    Diagnostic              30    12/11/03   15:14:37   QSQPROC 
       QSYS        *STMT    QSQPROC      QSYS         *STMT
  From module . . . . . . . . :   QSQPROC 

  From procedure  . . . . . . :   CLEANUP 

  Statement . . . . . . . . . :   12551 

  To module . . . . . . . . . :   QSQPROC 

  To procedure  . . . . . . . :   CLEANUP 

  Statement . . . . . . . . . :   12551 

  Message . . . . :   TRIG2 in DEVDMGT type *N not found. 

  Cause . . . . . :   TRIG2 in DEVDMGT type *N was not found. If this is 
an
  ALTER TABLE statement and the type is *N, a constraint was not found. 
If
  this is NOT an ALTER TABLE statement and the type is *N, a function or 

  procedure was not found. Recovery  . . . :   Change the name and try 
the
  request again.  If the object is a node group, ensure that the DB2 

  Multisystem product is installed on your system and create a nodegroup 
with
  the CRTNODGRP CL command. 


Any suggestions?

Thanks!

david

_______________________________________________
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.