Re: %LookUp BIF...

JMoore=UWyKbL8KXUw@public.gmane.org wrote:

Has anyone noticed any strange results with using the %LookUp Built In
Function under V5R1?  I have an  array (defined as ErrorCodes      S
1    Dim(11) Inz Ascend) which I am loading with various codes for error
reporting purposes.  If the array is empty no errors were found on the
input record, and I want to process that record.
I originally used the following logic to determine if the ErrorCodes array
was empty...

If          %LookUpGt(' ':ErrorCodes) > 0
Write       Error
Eval        ErrorCount = ErrorCount + 1
EndIf

I found that sometimes this logic would work and other times it would
not...

I tried changing the code as follows:

Eval        Index = %LookUpGt(' ':ErrorCodes)

If          Index > 0
Write       Error
Eval        ErrorCount = ErrorCount + 1
EndIf

Again, sometimes this worked, sometimes it didn't...

I also tried changing the BIF like so %LookUpGt(' ':ErrorCodes:1:11) to
start the search from the 1st array element through the 11th.  It didn't
solve my problem...

I have even stepped through a debug session and watched the array being
loaded, yet an error report record was never written...  In the first
example I stepped from the If to the EndIf.  In the second example Index
was zero...

Is it just my code or does the %LookUp BIF have a "bug" in it???

I assume you have an "ErrorCodes" array initially with all blank
elements, and then you are adding error codes at some point by
looking for available blank elements. Since you're using %LOOKUPGT,
you've defined the array as sorted in some sequence using either
ASCEND or DESCEND. Thus, you are making a promise to the compiler
that the array is sorted in a particular order. Are you ensuring
that the data in the array is always in the declared sequence? If
the data is NOT in the promised sequence, it is very likely that the
lookup will fail to find the element you're looking for.

Cheers!  Hans