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 EVENTSthanks