Re: RNF0571 The second parameter of LOOKUP is not valid

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

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.