data a;
   input x1 x2 x3 x4;
cards;
1 2 3 .
. 2 5 3
2 . 6 4
4 3 2 5
;
run;

data b;
   set a;
   y=catx('.',of x1-x4);
   array x[*] x1-x4;
   do i=1 to dim(x);
      x[i]=input(scan(y,i),best12.);
   end;
   keep x1-x4;
run;

为了20个论坛币，写一段：

变量数少的话，用retain也行。代码啰嗦，但好理解。并且可以并进一步。

data a(drop = x1-x4);
retain y1 y2 y3 y4 .;
  input x1 x2 x3 x4 ;
  if x1 ne . then y1=x1;
  if x2 ne . then y2=x2;
  if x3 ne . then y3=x3;
  if x4 ne . then y4=x4;
  cards;
  1 2 3 .
  .  2 5 3
  2 .  6 4
  4 3  2 5
  ;
run;