RE: Qualified vs Unqualified calls (Was: Database server jobs and SQL tuning)

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

Want another great performance fix?  Try changing 10000.01 mult mmddyy
yymmdd 6s0 to a series of moves using a data structure, or better yet in
RPGIV using a date field.  Back before the date field was available to me, I
set up a data structure with the following fields
 1  8 0dtcymd
 3  8 0dtymd 
 1  2 0dtcc
 3  4 0dtyyb
 5 10 0dtmdy
 5  6 0dtmm
 7  8 0dtdd
 9 10 0dtyye

move mmddyy  dtmdy
move dtyye   dtyyb
move dtymd   yymmdd

6 date fields per record, 10,000,000 records = over 24 hours reduction in
run time and others were able to get some processor time.



Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000


-----Original Message-----
From: Bob Larkin [mailto:blarkin@wt.net]
Sent: Monday, May 22, 2000 9:19 PM
To: MIDRANGE-L@midrange.com
Subject: Re: Qualified vs Unqualified calls (Was: Database server jobs
and SQL tuning)


John,
Great work. Now for some real fun, have your program open a file, read a
record, then
return. After that, try leaving LR *OFF.
The only reason I mention that is that there can be great savings there. I
ran into a
situation where program A was calling Program "Tax Calc" several times for
each
transaction. The transactions were telephone calls, so there were many
millions per
cycle.  A minor change to keep the "Tax Calc" from closing the files and
going away
resulted in a reduction from 11 HOURS to 17 Minutes!!!

take care, and get well.
Bob
+---
| 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
+---