data SAMPLE; do i = 1 to total; if ranuni(0) <= 0.25 then do; set POP point=i nobs=total; output; end; end; stop; run;