>Hi everybody,
>
>How can I randomly select n (110) codes from some huge table, so these codes would be unique? I'm trying to create a test case now...

Nadya,
Discard my previous msg (I really thought it was 'Friday' yesterday and didnt have time to think just wrote and left work - shouldn't do).
Table is huge so my approach would be almost same as already presented by Jay and Hilmar.

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