Re: Write status msg to Job Log

an alternate way to write messages is to use the API
Qp0zLprintf()--Print Formatted Job Log Data
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/p0zlog.htm?lang=en

very simple example

D JobLog_r Pr
D msg 1024A

D JobLog_r Pi
D msg 1024A

D JobLog PR 10I 0 ExtProc( 'Qp0zLprintf' )
D Msg2Send * Value Options( *String )
D String1 * Value Options( *String: *Nopass )
D String2 * Value Options( *String: *Nopass )

/free
*inlr = *on;
JobLog( '» %s' : %trim(Msg) + x'25' );
// JobLog( %trim(Msg) + '%s' : x'25' );
/end-free


Bryan




T. Adair wrote on 5/19/2016 3:38 PM:

Bingo! The light bulb finally came on. (Sorry - sometimes I need the
assistance of a slight nudge from a 2x4 over the noggin.)

Thanks for the help (and patience).

~TA~



On 5/19/2016 2:04 PM, dlclark@xxxxxxxxxxxxxxxx wrote:

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 05/19/2016
03:01:16 PM:

I've tried SNDPGMMSG but apparently I'm not holding my mouth right. I
have been unable to get it to write to the batch job's joblog.

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
TOPGMQ(*EXT) MSGTYPE(*STATUS)

As I said, status messages are never written tot he joblog. You
would have to make that an informational message to get it into the
joblog.


Sincerely,

Dave Clark