PMS Information Systems
Welcome to PMS Information Systems - IBM i (AS/400) Forum !!!

Get Answers for all your queries on IBM i (AS/400).

Send Message to Job log

View previous topic View next topic Go down

Send Message to Job log

Post  maran on Mon May 20, 2013 12:24 pm

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

maran
Admin

Posts : 442
Join date : 2009-07-24

View user profile http://pmsinformationsystem.forumotion.net

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum