Re: RNF0571 The second parameter of LOOKUP is not valid

Now just get rid of those ugly Evals Bill and you’re good to go!

/Free is your friend.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Nov 6, 2014, at 2:44 PM, Bill Howie <blhowie66@xxxxxxxxx> wrote:

Jon,

That did the trick! I just referenced the subfield with the array index.
Thanks so much for the help!

Everyone else,

Thank you also for the suggestions! All good bits of knowledge to have!

So here's how the code looks now:

HCADs ds
HCAGroup dim(100)
HCAID 3 0 overlay(HCAGroup)
HCAHarms 360 overlay(HCAGroup:*next)

eval IndexF = %lookup(workharms:HCAHarms)
if IndexF = 0
eval IndexA = IndexA + 1
eval HCAID(IndexA) = IndexA
eval HCAHarms(IndexA) = workharms
endif

Bill
--
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.

--
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.