Re: Syslog Program - Tim Bronski

[Alan Campin <alan0307d@xxxxxxxxx>]

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.