× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi, Brian:

Try this --

1. Run this job with a job description (*JOBD) that has LOG(4 0 *NOLIST)
specified; or, in your CL "wrapper" program (that calls the RPG program),
add this CL command at the beginning:

              CHGJOB JOB(*) LOG(4 00 *NOLIST)

2. just after each CALL to the RPG program, add this CL command:

              RMVMSG PGMQ(*SAME (*)) CLEAR(*ALL)

3. and just to be "sure," add this CL command just before the end of the CL
program:

              RMVMSG PGMQ(*SAME (*)) CLEAR(*ALL)
                ...
              RETURN
              ENDPGM

HTH,

Mark S. Waterbury

----- Original Message -----
> From: "Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>
> To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> Sent: Thursday, December 01, 2005 7:55 AM
> Subject: RE: Preventing Writes to Log file
>

> Hi Mike,
>
> Actually, the job queue that is being affected is QEZJOBLOG.
>
> What is happening is that I am calling an RPG program from a CL Batch
> program.  Can I add any additional code to either the RPG program or the
> CL program to suppress log entries?
>
> Thanks!
>
> Brian.
>
> -----Original Message-----
> From: Mike.Crump@xxxxxxxxxxxxxxxx [mailto:Mike.Crump@xxxxxxxxxxxxxxxx]
> Sent: Thursday, December 01, 2005 7:41 AM
> To: Midrange Systems Technical Discussion
> Subject: Re: Preventing Writes to Log file
>
>
> Brian,
>
> I'm assuming you are referring to the system history log?  Is this the
> job
> start and job ended message?  I'm not aware of you being able to
> suppress
> that kind of information - I might suggest that you change the job to a
> NEP
> that sleeps for 30 seconds....again, that is assuming that you are
> talking
> about the system history log (DSPLOG, QHSTXXXXXX files, etc.)
>
>
> Michael Crump
> Manager, Computing Services
> Saint-Gobain Containers
> 1509 S. Macedonia Ave.
> Muncie, IN  47302
> (765)741-7696
> (765)741-7012 f
> (800)428-8642
>
> "The probability that we may fail in the struggle ought not to deter us
> from the support of a cause we believe to be just"  Abraham Lincoln
>
>
>
>
>
> midrange-l-bounces@xxxxxxxxxxxx wrote on 12/01/2005 07:24:46 AM:
>
> > Hi All,
> >
> >
> >
> > I have a program running that hits our AS/400 for information.  This
> > program runs every 30 seconds, and every time it runs, it writes a
> > record to the job log.  As a result, our job log has grown
> horrendously
> > large.  Is there any way I can suppress the writing to the log for
> > scheduled jobs so that the job log does not become unruly?
> >
> >
> >
> > Thanks!
> >
> > Brian.
> >
> >
> >
> > -=-=-=-=-=-=-=-=-=-=-=-=-=-
> >
> > Brian Piotrowski
> >
> > Specialist - I.T.
> >
> > Simcoe Parts Service, Inc.
> >
> > PH: 705-435-7814
> >
> > FX: 705-435-6746
> >
> > -=-=-=-=-=-=-=-=-=-=-=-=-=-
> >
> >
> >
>
> --
> 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.
>
>
>
> --
> 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.
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.