Re: %Lookup???

[RPower@xxxxxxxxxx]

Thanks Scott.  That did it.  Figured I was doing something stupid... lol.
Merry Christmas, happy holidays everyone.  I've done my work for today ;) 
vbg.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/12/22 04:37 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: %Lookup???







My guess is that you told %lookup that your array in ascending order 
(by coding the ASCEND keyword on the array) but failed to actually sort 
the array in ascending order.

Either sort the array prior to the lookup

or remove the ASCEND keyword.

---
Scott Klement  http://www.scottklement.com

On Thu, 22 Dec 2005, RPower@xxxxxxxxxx wrote:

> I'm trying to use %Lookup the way I thought it's supposed to go but it
> ain't working.
>
>      * lookup this leave code totals, if found accumlate if not insert
> new
>     c                   Eval      x = %Lookup(edleav:eltot_lcode:1)
>     c                   If        x > 0
>     c                   Eval      eltot_lamnt(x) = eltot_lamnt(x) +
> edlamt
>     c                   Else
>      * load up our values for this particular leave code and date for
> accumulation
>     c                   Eval      x = %Lookup(*blanks:eltot_lcode:1)
>     c                   Eval      emp_lve_count = x
>     c                   Eval      eltot_lcode(x) = edleav
>     c                   Eval      eltot_ldesc(x) = emp_ldesc(w)
>     c                   Eval      eltot_lfmt(x) = edlfmt
>     c                   Eval      eltot_lamnt(x) = edlamt
>     c                   EndIf
>
> definitions of the fields:
>      * Employee leave code totals
>     d                 ds
>     demp_ltotals                          dim(999) ascend
>     d eltot_lcode                    2    overlay(emp_ltotals:1)
>     d eltot_ldesc                   15    overlay(emp_ltotals:*next)
>     d eltot_lfmt                     5    overlay(emp_ltotals:*next)
>     d eltot_lamnt                   10s 4 overlay(emp_ltotals:*next)
>
> edleav is off the file, it's 2 positions long.  Am I missing something
> here?  Or have it totally screwed up?
>