Как мне пронумеровать 1000 полей по порядку в столбце numeric

Уменя только получилось все выставить цифру 1 командой
update rm.dbf set unicum = 1


Что не так в коде

use rm.dbf in 0 alias rm;
Num=1;
select rm;
go top;
scan for unicum = 1;
replace unicum with 1+alltrim(str(Num));
Num=Num+1;
endscan

Dima T, Спасибо большое