hi,
thank you for reply,

1.COPY TO \SELECTION NEXT 0? what is that mean
2.i get error message Alias Not FOUND
at this line

endCount=RECCOUNT('SELECTION')+ICASE(m._code<4,900,m._code=4,450,750)

i try to make it as
COPY STRUCTURE TO temprand, and change 'SELECTION' to temprand
same error

thanks.


>>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
>
>try
>

>CLOSE all
>
>USE RIS_SEG_2
>COPY TO \SELECTION NEXT 0
>
>RAND(-1)
>INDEX ON Code+RAND() TO SYS(2023)+'\RANDOM'
>
>FOR _code=1 to 14
> endCount=RECCOUNT('SELECTION')+ICASE(m._code<4,900,m._code=4,450,750)
> SCAN REST WHILE RECCOUNT('SELECTION') < m.endCount FOR Code=m._code && this can to be optimized
>   SCATTER MEMO NAME recBuffer
>   INSERT INTO SELECTION FROM NAME recBuffer
> ENDSCAN
>NEXT
>release recBuffer
>SET INDEX TO
>ERASE SYS(2023)+'\RANDOM'
>
>SELECT SELECTION
>brow
>