%Lookup???

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?

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