|
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 +---
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
