local lcWasDel, lnDeletedRecords
local array laJunk[1]

lcWasDel = set("DELETED")
set deleted OFF

select ;
 count(*) from <Alias> ;
  where DELETED() ; 
   into array laJunk

set deleted &lcWasDel

lnDeletedRecords = iif(_tally > 0, laJunk[1], 0)
 ? There are "+ trans(lnDeletedRecords) +" Records"