Re: Cannot RCVMSG a SQL0204 *DIAG message

Simon,

I get the impression that what David wants is a clean joblog.  Basically 
if the DROP TABLE is unsuccessful because the file did not exist, then he 
does not want the message to appear in the joblog.  If he was to use 
SQLSTATE to derive the message id, or the api QMHLJOBL, then how would he 
remove the message from the joblog based on these two tools?  RCVMSG has 
the RMV(*YES).  Wait a minute, didn't David specify *NO on that?  Maybe 
I'm all wet.

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




Simon Coulter <shc@xxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/05/2004 03:49 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Re: Cannot RCVMSG a SQL0204 *DIAG message







On Tuesday, January 6, 2004, at 05:30  AM, David Gibbs wrote:

>  From module . . . . . . . . :   QSQPROC
>  From procedure  . . . . . . :   CLEANUP
>  Statement . . . . . . . . . :   12551
>  To module . . . . . . . . . :   QSQPROC
>  To procedure  . . . . . . . :   CLEANUP
>  Statement . . . . . . . . . :   12551

Hello David,

The message has been sent from QSQPROC to itself. Since your program 
invokes QSQPROC to perform the DROP the message is on a call stack 
queue lower than your program. You can try to set the PGMQ values 
PGMQ(CLEANUP QSQPROC QSQPROC) but I've never been successful receiving 
messages from call stack queues lower in the stack unless I also knew 
the message key.

Why not have the RPG program return the SQLSTATE from which you can 
derive the message ID?

Failing that you could use the QMHLJOBL API to list the job log 
messages and scan for the one you want.

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