CLOSE all USE ali123 SELE 0 USE ali SCAN SELE ali123 LOCATE for char3= ali123 IF FOUND() DELETE ENDIF SELE ali ENDSCAN