SCAN SELECT Invoice LOCATE FOR in_code = lnCustCode DO WHILE FOUND() do some code CONTINUE ENDDO SELECT sometable ENDSCAN