>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!
Hmmm
May be
SET DELETED OFF
SELECT * FROM TouchTable WHERE DELETED() INTO Cursor crsTemp
lbtouchTable = (_TALLY # 0)
IF m.lbtouchTable
ELSE
ENDIF
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst