Actual this is how I fixed it according to Jim's Post

use invfl in 0 shared order orderno
use orderfl in 0 sharer order orderno

set relation to orderno into orderfl

sele invfl

Scan for shipdate=date() and empty(invfl.invno) and lines=1
lcCusnum=invfl.cuskey
lnOrdernum=invfl.orderno
lcCatkey=orderfl.catkey
If lcCatkey="CON" and orderfl.orderno=lnOrdernum
Replace hold with .T.
Wait window "Replaced Hold with True as Requested for Customer # "+lcCusnum at 15,115 timeout 0.75
Endif
Endscan

I remove the the while !eof() and the while statement that was with replace(). The replace while was what was moving my record pointer.

Thank you all for your replies.



>If I understand what you are doing, wouldn't this work?
>
>
>select orderfl
>Scan for lines=1and Catkey="CON"
> Replace invfl.hold with .T. for invfl.orderno = orderfl.orderno
> Wait window;
> "Replaced Hold with True as Requested for Customer # "+Cusnum;
> at 15,115 timeout 0.75
>Endscan