hi,
this code from (Mr.Cetin) send it to me before, i hope this code help you,

use myTable exclusive
index on yourfield tag yourfield
select sys(2015) as SortOrder,* from myTable ;
 order by 1 descending ;
 into cursor crsTemp nofilter
select myTable
zap
select crsTemp
scan
 if !seek(yourfield,'myTable','yourfield')
   scatter memvar memo
   insert into myTable from memvar
 endif
endscan

>How would you use scan command to look for repeated records in a table ?