Send Message to Job log

H BNDDIR('QC2LE')
H OPTION(*SRCSTMT) DFTACTGRP(*NO)
D PGMDS SDS
D User overlay(pgmds : 254)
D SndJlogMsg PR 10I 0 ExtProc('Qp0zLprintf')
D logMsg * Value OPTIONS(*STRING)
D s1 * Value OPTIONS(*STRING:*NOPASS)
D s2 * Value OPTIONS(*STRING:*NOPASS)
D s3 * Value OPTIONS(*STRING:*NOPASS)
D s4 * Value OPTIONS(*STRING:*NOPASS)
D s5 * Value OPTIONS(*STRING:*NOPASS)
D s6 * Value OPTIONS(*STRING:*NOPASS)
D s7 * Value OPTIONS(*STRING:*NOPASS)
D s8 * Value OPTIONS(*STRING:*NOPASS)
D s9 * Value OPTIONS(*STRING:*NOPASS)
D s10 * Value OPTIONS(*STRING:*NOPASS)

/free
SndJlogMsg('Hello. This is a test message to Job log by User and date %s %s' :
user :
%CHAR(%date()));
SndJlogMsg(X'25');

*INLR = *ON;
/end-free