Below a way how you could implement what @Tom suggests.
data have(drop=_:);
array var {10} $10;
do _k=1 to 100;
do _i=1 to dim(var);
var[_i]=put(_n_,z9.);
if ceil(ranuni(1)*1000)>990 then var[_i]=cats('A',var[_i]);
end;
output;
end;
run;
filename extfile temp;
proc export
data=have
file=extfile
dbms=csv
replace
;
run;
proc import
out=want
file=extfile
dbms=csv
replace
;
guessingrows=max;
run;
filename extfile clear;
title 'Variable Types Before and After';
proc sql;
select libname, memname, name, type
from dictionary.columns
where
libname='WORK' and
memname in ('HAVE','WANT')
order by memname, varnum
;
quit;
title;
... View more
