Re: Lookup with Array

On 2015-01-16 01:31, Booth Martin wrote:

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)

Better to code it so that the arrays are coded as overlays to another array. That way, it's clear that all the arrays are related, and as a bonus, if you sort any one of the overlaying arrays, they will all stay in synch.

D Info Dim(50)
D EarnTypeS 3 Overlay(Info)
D HoursSum 12 2 Overlay(Info:*next)
D PaySum 12 2 Overlay(Info:*next)

You can use the same LOOKUP as in your example.

C EarnTypeL Lookup EarnTypeS(x) 30

If you do this, sorting by one of the arrays:
C Sorta PaySum

then using the overlay mechanism, it will sort the Info array using PaySum as a key. But with the three separate arrays in your example, it would just sort the PaySum array, and the EarnTypes and HoursSum arrays would still be in their original order, so the three arrays would be out of synch.