在SAS advance certificate 上一段程序，page 458 望指点。谢谢！！

data work. rsubset(drop =obsleft sampsize);
sampsize =10;
obsleft=totobs;
do while(sampsize>0);
      pickit +1 ;                                                /* 这样下去pickit 不就是只能取 1，2， 3， ..10 吗？ pickit 不是随机的了？*/
      if ranuni(0) < samplsize / obsleft then do;   /** 看不懂这句？**/
                set sasuser.revenue  point=pickit nobs=totobs;  
                sampsize=sampsize -1;
   end;
   obsleft = obsleft-1;
   end;
   stop;
run;