• Subject: Re: Ideas on cutting run time
  • From: "Kathleen Kostuck" <kkostuck@xxxxxxxxxx>
  • Date: Fri, 24 Jul 1998 14:16:24 -0500

Mark,

Patrick has some good pointers that should help if you aren't using them
already. I only have one other suggestion.  If you have a high percentage
of records that you are testing and skipping in the RPG, include an OPNQRYF
with QRYSLT on those condition in your jobstream preceding this program.

HTH,

Kathleen Kostuck
___________________
pager (414) 402-0820       fax (414) 495-4986
kkostuck@execpc.com
AS400 Solutions
Secretary - Wisconsin Midrange Computer Professionals Association   
___________________

----------
> From: Patrick Townsend <townsend@patownsend.com>
> To: MIDRANGE-L@midrange.com
> Subject: Re: Ideas on cutting run time
> Date: Friday, July 24, 1998 11:11 AM
> 
> Mark,
> 
> Is the program overriding the input file to increase the number of
> records on a read? You can use the OVRDBF to do this. Since its a batch
> run in the middle of the night you don't need to worry about using too
> much memory.
> 
> Also, are you giving the batch subsystem all of the available memory?
> Many people change the batch subsystem to give it more memory before
> doing nightly batch runs so that they have more resources, and then
> change them back for daily operations.
> 
> My 2 cents....
> Patrick
> 
> Allen, Mark wrote:
> > 
> > We have a program that runs each night that is the majority of our
> > nightly processing time.  This job ran for about an 70 minutes last
> > night.  There are no users or other batch jobs on the system while this
> > job is running.
> > 
> > Any ideas on making this run faster:  Last night MU7TRANS had 410,663
> > records for that 70 minute run.  The L1 fields are the key to the file
> > and the select criteria is used so only records we want are in the file
> > (all need processed).
> > 
> >      FMU7TRANSUP  E           K        DISK                      A
> >      FMUTTRNSVO   E                    DISK                      A
> > SAM01****FQSYSPRT O   F     132     OF     PRINTER
> >       *
> >      IRLPTRANS
> >      I                                              CMPYTCL1
> >      I                                              TCODTCL1
> >      I                                              FACLTCL1
> >      I                                              TOYNTCL1
> >      I                                              PARTTCL1
> >      I                                              PATYTCL1
> >      I                                              PAPTTCL1
> >      I                                              TDATTCL1
> >      I                                              SHIFTCL1
> >      I                                              WIP1TCL1
> >      I                                              WIP2TCL1
> >      I                                              RCDCTCL1
> > HL   I                                              FRTOTCL1
> >       *
> >      C           *ENTRY    PLIST
> >      C                     PARM           CMPYDS  4
> >       *
> >      C*****************************************************************
> >       *
> > SAM01C**         *IN20     IFEQ *OFF
> >      C**                   TIME           UTIME   60
> >      C**                   EXCPTHEAD
> >      C**                   SETON                     20
> > SAM01C**                   END
> >       *
> >       * ZERO WORK FIELDS
> >       *
> >      C           *INL1     IFEQ *ON
> >      C                     Z-ADD0         TOTQTY 112
> >      C                     Z-ADD0         PATQTY 112
> >      C                     Z-ADD0         CNT1    50
> >      C                     SETOF                     22
> >      C                     END
> >       *
> >       * BYPASS SUMMARY TRANSACTIONS ALREADY WRITTEN
> >       *
> > SAM01C                     MOVELDOC#TC    WORKCK  2
> > SAM01C           WORKCK    CABEQ'SM'      ENDDET
> >       *
> > SAM02 *
> > SAM02 * DO NOT SUMMARIZE NEGATIVE QTYS
> > SAM02 *
> > SAM02C           TQTYTC    CABLT0         ENDDET
> >       * SUMMARIZE TRANSACTIONS
> >       *
> >      C                     SETON                       22
> >       C                     ADD  TQTYTC    TOTQTY 112
> >       C                     ADD  COSATC    PATQTY 112
> >       C                     ADD  1         CNT1
> >  SAM01C** OF                EXCPTHEAD
> >  SAM01C** OF                SETOF                     OF
> >  SAM01C**                   EXCPTDTL1
> >  SAM01C           CMPYTC    IFEQ 'MURY'
> >  SAM01C                     MOVE 'MSAV'    CMPYTC
> >  SAM01C                     ELSE
> >  SAM01C           CMPYTC    IFEQ 'JSCC'
> >  SAM01C                     MOVE 'JSAV'    CMPYTC
> >  SAM01C                     ENDIF
> >  SAM01C                     ENDIF
> >       C                     MOVE 'P'       RP01TC
> >       C                     WRITERLPTRNSV
> >       C                     DELETRLPTRANS
> >        *
> >       *
> >       * END OF DETAIL CALCULATIONS
> >       *
> >      C           ENDDET    TAG
> >       *
> >      CL1 22                EXSR WTRSUM
> > SAM01C**LR                   EXCPTTAIL
> >       ****************************************************************
> >       *                                                              *
> >       * WTRSUM - WRITE SUMMARY TRANSACTION                           *
> >       *                                                              *
> >       ****************************************************************
> >      C           WTRSUM    BEGSR
> >       *
> >      C                     MOVE CMPYDS    CMPYTC
> >      C                     MOVE TDATTC    WORK02  2
> >      C                     MOVEL'SM'      WORK07  7
> >       C                     MOVE CNT1      WORK07
> > 
> >       C                     MOVELWORK07    DOC#TC
> > 
> >       C                     MOVE WORK02    DOC#TC
> > 
> >       C                     Z-ADDTOTQTY    TQTYTC
> > 
> >       C                     Z-ADDPATQTY    COSATC
> > 
> >       C                     MOVE *BLANKS   PGIDTC
> > 
> >       C                     MOVE *BLANKS   RP01TC
> > 
> >       C                     SETON                     60
> > 
> >  SAM01C** OF                EXCPTHEAD
> > 
> >  SAM01C** OF                SETOF                     OF
> > 
> >  SAM01C**                   EXCPTDTL1
> > 
> >  SAM01C**                   EXCPTDTL2
> > 
> >       C                     SETOF                     60
> > 
> >       C                     WRITERLPTRANS
> > 
> >        *
> > 
> >       C                     ENDSR
> > 
> >        *
> > 
> > Mark Allen
> > MIS Manager
> > Mattel-Murray
> > allenma1@mattel.com
> > 502 767 1377
> > 
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
david@midrange.com
> > +---
> 
> -- 
> 
> Patrick Townsend                       mailto:townsend@patownsend.com
> Patrick Townsend & Associates, Inc.    http://www.patownsend.com
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...


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

This mailing list archive is Copyright 1997-2019 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].