>hi all,
>i need help to mdify at this code under ,
>my filed name is(code) have numbers form 1 to 14
>

>for i= 1 to 3
>1.i need to get 900 records randomly for every code
>2.for i=4, i need 750 records randomly
>3.for i=5 to 14, i need 450 records randomly for every code

>

>CLOSE all
>USE RIS_SEG_2
>
>total = "450"
>*total = (THISFORM.TEXT1.VALUE)
>RAND(-1)
>INDEX ON RAND() TO SYS(2023)+'\RANDOM'
>*COPY TO \SELECTION NEXT &total
>COPY TO rf2 NEXT &total
>brow
>SET INDEX TO
>ERASE SYS(2023)+'\RANDOM'
>      CLEAR EVENTS
>

> thanks

Nice idea of indexing on RAND(), hopefully it is random enough.
If I understand correctly your question, then how about:

use RIS_SEG_2
copy stru to RIS_RANDOMS
use RIS_RANDOMS in 0
nNextAmt=900
for i = 1 to 15
   if i = 4
     loop
   endif
   if i =5
     nNextAmt=450
   endif 
   index on rand() to \random for fieldcode=i
   set order to random
   copy to \temprand next &nNextAmt
   sele RIS_RANDOMS
   appe from \temprand
   sele RIS_SEG_2
   set order to
next
index on rand() to \random for fieldcode=4
set order to random
copy to \temprand next 750
sele RIS_RANDOMS
appe from \temprand
sele RIS_SEG_2
set order to
erase \temprand.dbf
erase \random.idx