data a;
      do unit=1 to 20;
         if (unit <= 4) then group=1;
         else  if (unit <= 8) then  group=2;
        else  if (unit <= 12) then  group=3;
        else  if (unit <= 16) then  group=4;
        else   group=5;
         output;
      end;
   run;
  
   proc plan seed=0710;
      factors unit=20;
      output data=a out=b;
   run;
quit;

data RV;
do i = 1 to 17;
c=rannor(0);
output;end;
run;
proc sort data=rv;by c;run;
data _null_;
set rv end=a;
if a then call symput('total',ceil(_n_/5));
run;
data rvv;
set rv;
do i=1 to &total;
if ceil(_n_/5)=i then p=i;
end;
run;

proc plan对于做这一次够了，但有些试验程序需要多次随即调用值的
这个plan结果每次相同，不合要求

先谢谢LS两位~再问一下~如果用surveyselect呢？

换种子。。。