Hi Sharon
I did something similar but used dynamic SQL
I built the select statement, based upon the different choices that were made and posted the data to a work file.
This should definitely cut down on the number of logicals, but be careful. Depending upon what choices are made, the final sql select statement could end up trying to take over the system
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Sharon Strippoli
Sent: Friday, July 29, 2011 8:11 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Reduce large amount of logicals in SUBFL pgm, take in another direction
Good morning,
new job and given the assignment to revamp a screen pgm that the whole company uses to make it more efficient, less CPU.
There are 12 different fields a user can fill in to search for the info they want. Plus there are fields they can check off for other criteria. Total about 25 different fields on the screen.
Currently, there are about 80 logicals that are used for all the different combinations of fields to search on. The first SUBR of the pgm does various validations against all the possible fields, then depending on that result does a SETLL for the appropriate logical. Then a second SUBR checks the fields again and depending on that does a READ, READE or READP against the logical that was staged.
They want to select the data the first time through to a type of work file, then as more information is filled in by the user, query or read against that work file, drilling down further for each field that is populated by the user. They want to reduce CPU and the amount of logicals.
I was thinking of doing a query against the work file as it gets drilled down.
Wondering how the super users that use this forum would take this on. Any input would be appreciated.
Thanks.
Sharon
Sharon Strippoli
Pilot Freight Services
IT Dept.
Phone (610) 891-8113
sharonstrippoli@xxxxxxxxxxxxxxxxx
http://www.pilotdelivers.com
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
