Is there a way more efficient than this (assuming no records are marked for deletion in normal use, and that if zero records, then there is not need for the TOUCH)?

USE XXXX
If RECC()>0
  GOTO 1
  DELETE
  RECALL
ENDIF
USE

Thanks!