data test;    set test(keep=var1 var2 var3);
  array var var1-var3;  ** char      version;
  array col  col1-col3;  ** numeric version;
  do over test;
      if test ne '' then test="1";
     else test="0";
      col=input(test,best.);
  end;
  drop var:;
run;