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