缺失值替代

dandan_9075 发表于 2012-3-28 11:53
多谢 高手如云啊

客气  我菜鸟一只

木子星 发表于 2012-3-27 22:27
楼主  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;
多谢哈

上边的代码都太复杂了，有非常简单的为什么不用呢？
                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;