>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 >