%let k=;/*insert number of numeric variables of your data set*/
data your_data(drop=i);
set your_data;
array num_all[*] _numeric_;
array char_all[*] $ char1 - char&k.;
do I=1 to DIM(num_all);
char_all[i]=put(num_all[i], $12.);
end;
run;
%let k=;/*insert number of numeric variables of your data set*/
data your_data(drop=i);
set your_data;
array num_all[*] _numeric_;
array char_all[*] char1 - char&k.;
do I=1 to DIM(num_all);