把30个变量分别赋给一组宏变量序列，再编写一个宏，分别判断每个宏变量是否有.或者空值，再赋值，这样会简便一些~~~~

这个貌似很高深，我是初学者，还没接触过宏~~~~~

楼主  30个变量全是数值型的？
我写了一个
不知道你能用不？  缺失为点的变量是数值型对待的
                  缺失为空格的变量是字符型对待的
%macro trans(i);
data oringal;
set oringal;*原始数据集;
if var&i eq . then var&i=0;
else if var&i=' ' then var&i='0';
run;
%mend trans;
%macro main;
%let j=1;
%do i=1 to 30;
  %trans(&j);
  %let j=%eval(&j+1);
%end;
%mend main;
%main;

多谢 高手如云啊

客气  我菜鸟一只

没接触过宏，这两天恶补了下以上程序少了个%，应该为
%macro trans(i);
data oringal;
set oringal;*原始数据集;
if var&i eq . then var&i=0;
else if var&i=' ' then var&i='0';
run;
%mend trans;
%macro main;
%let j=1;
%do i=1 %to 30;
  %trans(&j);
  %let j=%eval(&j+1);
%end;
%mend main;
%main;
多谢哈

上边的代码都太复杂了，有非常简单的为什么不用呢？
                data b;
                set a;
                array char _character_;
                array numr _numeric_;
                do over char;
                if char eq "" then char="0";
                end;
                do over numr;
                if numr eq . then numr=0;
                if numr<0 then numr=0;
                end;
                run;

var_name=var_name*1;/*变字符变量为数值型*/
if var_name=. then var_name=0;