local lnRecsToCollect, lnRecs >local array arrUnique[1] > >lnRecsToCollect = 110 >lnRecs = reccount('HugeTable') > >create cursor crsCodes (rcno i, icode i) && Better would be a PK and adjust code type > >rand(-1) >do while alen(arrUnique) < lnRecsToCollect > go ceiling(rand()*lnRecs) in 'HugeTable' > if ascan(arrUnique,HugeTable.icode)=0 > dimension arrUnique[iif(type('arrUnique')='L',0,1)+alen(arrUnique)] > arrUnique[alen(arrUnique)]=HugeTable.icode > insert into crsCodes values (recno('HugeTable'),HugeTable.icode) > endif >enddo >Cetin