Re: Syslog Program - Tim Bronski

I have a version implemented as a Service Program if anyone is interested.

Here is a test program that uses the service program.

h Option(*SrcStmt:*Nodebugio:*NoShowCpy:*NoUnref)
h Main(TestServiceProgram)

/copy *libl/qsrcf,cb_StdType
/copy *libl/qsrcf,cb_Std_Con

/copy *libl/qsrcf,xvsysl_pr

d TestServiceProgram...
d pr ExtPgm('TESTSYSL')

p TestServiceProgram...
p b
d pi

d Handle...
d s Like(StdInt)
d Message...
d s 4096a Varying
/Free

Handle = SYSL_Open('CRE-ORION':
514 );

Message = 'This is a test message from XVSYSL';
SYSL_Write(Handle :
cSYSL_User :
cSYSL_Warning :
'TESTSYSL' :
%Timestamp() :
Message );

SYSL_Close(Handle);

Return;

/End-Free
p e


On Tue, Jul 3, 2012 at 9:56 AM, Kirk Goins <kirkgoins@xxxxxxxxx> wrote:

Tim,
A while back you offered up the code for a syslog program for the iSeries.
I think it was you at least. If so would it still be possible to obtain a
copy?

Thanks

--
Kirk
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.