data a(drop=i j);
array a{10} x1-x10;
do i=1 to 50;
  do j=1 to 10;
  a(j)=rannor(0);
  end;
  output;
end;
run;

%macro test(dsin=,dsout=,seed=,vars=, rate=,b=1);
data &dsin;
        set &dsin;
seq=_n_;
run;
%let n=%sysfunc(countw(&vars,%str( )));
%do i=1 %to &n;
%let var = %scan(&vars,&i,%str( ));
%syscall ranuni(seed,b);
proc surveyselect data=&dsin(keep=seq &var) out=temp&i method=srs samprate=&rate seed=&seed;
run;
data temp&i;
        set temp&i;
        call missing(&var);
run;
%end;
data &dsout(drop=seq);
        merge &dsin %do i=1 %to &n; temp&i %end;;
        by seq;
run;
proc datasets;
   delete %do i=1 %to &n; temp&i %end;;
%mend;
%test(dsin=a,dsout=want,seed=123456,vars=%str(x1 x3 x4 x7 x8),rate=0.1);

都挺好
回去消化下，手头就个400M的简约版 稍微复杂的语句和函数就不认

/* 不用宏和 surveyselect，只用数据步的方法。*/


data test;
  array x{10};
   do n = 1 to 50;
      do j = 1 to 10;
       x[j] = ceil(ranuni(12345)*100);
    end;
  output;
  end; drop j;
run;

data want;
  array x{10} x1-x10;
  array y{50, 10};
  if _n_ = 1 then do;
       p = 1;
     do until (last);
      set test end=last ;
        do j = 1 to 10;
         y[p, j] = x[j];
        end;
      p+1;
     end;
  
   do k = 1 to 10;
      seed = k+1000;
      nmiss = 0;
      do until (nmiss=5);
         n1 = ceil(ranuni(seed)*50);
         if ^missing(y[n1, k]) then do;
          call missing(y[n1, k]);
          nmiss+1;   end;
      end;
   end;
   
   do n = 1 to 50;
      do k1 = 1 to 10;
        x[k1] =y[n, k1];
      end;
      output;
   end;
  end;
keep n x1-x10;  
run;

研究半天，终于看懂了。大神确实厉害。
我觉得if 1=0这句就是只把变量带进来，但是不带进来数据，这样写比较严谨。
试了一下(proc compare)，写不写其实结果是一样的。

原来如此，受教了。

谢谢大神的回复 可是有些地方我还是不太懂，能不能麻烦你给我解释一下15 16 21   29~32这几句，跪谢

首先将所有变量生成宏变量，然后确定缺失比例，r表示去掉缺失比例之后的选中比例，接下来是产生包含缺失值的变量。

Thank you for all.
"if 1=0 then set a;" is to make the variables' positions in new dataset same as the original data set a.

JingJu

谢谢  热心的大神

你好 我还有个问题 想请教你 我用 这个程序处理另一个数据  选择了其中14个变量（第32~45个变量）处理成缺失变量   为什么只有前9个变量生成了 缺失值   后4个变量没有变

需要改动一下，这下可以了：

谢谢分享

关注一下。。。。。。。。。。。。。

是执行的，引用另外一个数据集的变量

大佬你好，我想问一下重复100次 怎么在外面加宏循环