Re: Lookup with Array

You’re right and wrong Jonathon.

LOOKUP never changed.

%Lookup has the capability you describe of doing a binary search instead of a linear - BUT - will only do so if the array has the ascend or descend keywords in effect. In other words if you tell it that the array is in sequence it takes advantage of that to speed the process. Without the keyword, LOOKUP and %Lookup behave the same way.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jan 17, 2015, at 7:29 AM, Wilson, Jonathan <piercing_male@xxxxxxxxxxx> wrote:

On Thu, 2015-01-15 at 23:29 -0800, Gary Kuznitz wrote:

Hi Booth,

I tried your suggestion hours ago. I discovered the Lookup doesn't find the
EarnTypeS(x) unless they are loaded in sequence even though the indicator is on EQ.

I recall an article that stated that the lookup changed how it worked internally.

Instead of, in effect, a loop with test until an equal condition or end
of loop it instead tests for EQ at the mid way point, and if no match
then EQ then GT/LT and then testing the resulting subset (half of the
array) by EQ then GT/LT again, halving each time until the match, or
none, is found. There is a technical name for this type of search
(btree?) but it eludes me at the moment but it reduces the maximum
number of tests significantly... a 100 element array takes 7 steps, a
1000 element array takes 9 steps, but obviously the array must be sorted
prior to testing.

Thanks,

Gary

On 16 Jan 2015 at 0:31, Booth (Booth Martin <rpg400-l@xxxxxxxxxxxx>) commented
about Re: Lookup with Array:

At V5R3 I would probably do this:
D X 2 0
D EarnTypeS 3 Dim(50)
D HoursSum 12 2 Dim(50)
D PaySum 12 2 Dim(50)
...
C EarnTypeL Lookup EarnTypeS(x) 30
and then use arrays HoursSum(x) and PaySum(x)

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.