CLOSE all DO WHILE .t. SELECT 1 USE ali m.char3=char3 SELECT 2 USE ali123 LOCATE for ali123.char3=m.char3 IF FOUND() DELETE SELECT 1 skip IF EOF() EXIT ENDIF endif enddo