delete from table1 where recno() in (select RecNum from crsRand)
endscan REPORT FORM rpt1 preview use in curPercentage