Re: SNDPGMMSG

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On 18/12/2008, at 8:19 PM, David FOXWELL wrote:

> First, how on earth did you translate the message?!

Because I'm brilliant ... but it's not really that hard. DSPMSGD  
SQL0206 QSQLMSG then option 1 tells me "Column &1 not in specified  
tables", option 2 tells me there are three substitution values each  
of which is a varying length character string. The hexadecimal data  
shown in the MSGDTA part of your job log gives me those three components

	0006		- length of data for &1
	C1C1C1F0F0E2	- value of data for &1: AAA00S
	0002		- length of data for &2
	5CD5		- value of data for &2: *N
	0002		- length of data for &3
	5CD5		- value of data for &3: *N

Simple!

> Second, I don't understand why you suggest disableing LOGCLPGM. I  
> need to see the message in the log.

LOGCLPGM is what is causing the occurrence of the CL commands  
themselves to be logged in the job log. That is, the various  
instances of:

	Message . . . . : nnnn - ACLCMD PARM1() PARM2() etc. etc. etc.

are present in the job log ONLY because LOGCLPGM is active.

> I've now tried
> RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID)
> SNDPGMMSG  MSGID(&MSGID) MSGF(QSQLMSG) MSGDTA(&MSGDTA)
>
> If I call the program interactively, I get a readable message on  
> the bottom of the screen.
> If I submit the call I get this in the log :
> Message . . . . :    12100 - RCVMSG MSGTYPE(*EXCP) MSGDTA 
> (&MSGDTA)   MSGID(&MSGID)
>
> Message . . . . :     9100 - SNDPGMMSG MSGID(SQL0204) MSGF 
> (QSQLMSG)  MSGDTA(X'0006C3C4C6D9C5E200055CD3C9C2D30004C6C9D3C5')

The job log should show the result of the SNDPGMMSG at this point  
i.e., after the command is logged it is run and the formatted message  
should be in the job log too. If it's not present then check the LOG  
level of the batch job. Perhaps it's being filtered out?

Now the message says: "Column CDFRES not in specified tables".  The  
table in question is FILE in *LIBL which seems peculiar to me.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         OS/400, i5/OS Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
   Fax:   +61 2 6657 8251                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------