>CodeVal >0100 >0101 >0110X>etc.
>SET NEAR ON >LOCATE FOR upper(CodeVal) = "0102" >?recno()>
SET NEAR ON affect of SEEK and FIND and not of LOCATE.
TRY
INDEX ON CodeVal
SET ORDER to Codeval
SET NEAR ON
SEEK '0102'
? RECNO() &&& return 3
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst