按列替换缺省值为非零值

Question

数据：

A B C D E
2 3 4 . .
2 3 0 0 .
0 3 4 1 1
0 . 4 0 1
2 0 0 0 1

理想输出：

A B C D E
2 3 4 1 1
2 3 0 0 1
0 3 4 1 1
0 3 4 0 1
2 0 0 0 1

对于每列，只有3个可能的值：任意整数，零和缺失值。

我想用相应列中的非零值替换缺失值。

如果任意整数为零，则缺失值应替换为零。

对于实际问题，行数和列数不小。

Answer 1

创建两个数组 - 一个包含列名，另一个包含变量以保存任意整数。循环遍历数据集一次以获取整数（循环遍历数组中的列），然后再次输出值，在必要时替换（再次循环遍历数组中的列）。

data want(drop=i int1-int5);
  do until (eof);
    set have end=eof;
    array _col a--e;
    array _int int1-int5;
    do i = 1 to dim(_col);
      if _col(i) not in (.,0) then _int(i)=_col(i);
    end;
  end;
  do until (_eof);
    set have end=_eof;
    do i = 1 to dim(_col);
      if missing(_col(i)) then _col(i)=_int(i);
    end;
    output;
  end;
run;