如何将其他变量变为缺失

复制代码

data bbb;
input var x1$   y2$   x3$   var1$@@;
cards;
1 a b m f   
2 c d n m
;
run;



如何用宏实现将其他变量变为缺失
%macro aaa(ds=bbb,column=);



%mend;

column指定1(表示第1列) 时，除第1列外，其他变量变为缺失；
            数据集bbb为
            var x1 y2 x3 var1
              1
              2
           指定2(表示前2列) 时，除前2列外，其他变量变为缺失；
            数据集bbb为
            var x1 y2 x3 var1
              1  a
              2  c

           指定3(表示前3列) 时，除前3列外，其他变量变为缺失；
           数据集bbb为
            var x1 y2 x3 var1
              1  a   b
              2  c   d

%let libname=work;
%let ds=bbb;
%let column=2;

proc sql noprint;
   select distinct name into :var separated by ","
     from dictionary.columns
         where  libname=upcase("&libname") and memname=upcase("&ds") and varnum>&column;
quit;

   
data &ds;
    set &ds;
        call missing(&var);
run;