如果想要解决问题，但不需要解决的漂亮
可以先把数据集导出至外部的txt或csv文件
然后再导入至SAS
导入的时候设置所有变量都是字符型就好了

Not macro.

proc format;
value yf 1="m"
         2="f";
run;

data aaa;
input x z$ y b$ a;
label y="sex";
format y yf.;
attrib a format=MMDDYY10.;
cards;
1 b 1 c 1
2 e 2 d 2
;
run;


proc sql;
  select name into:varslist separated by ' ' from sashelp.vcolumn where libname='WORK' and memname='AAA';

data _null_;
   set sashelp.vcolumn;
   where libname='WORK' and memname='AAA';
   if type='num' then do;
      if not missing(format) then call symput("fmt",trim(left(format)));
                else call symput("fmt",'8.');
                call symput("lab",trim(left(label)));
             call execute(
'data aaa;
retain &varslist;
set aaa ;
   _'||name||'=put( '||strip(name)||',&fmt);
drop '||name||';
label _'||strip(name)||'="&lab  ";

rename _'||strip(name)||'='||strip(name)||';
run;');
      end;
  run;

good！

NOTE: 逻辑库“MAPSGFK”中的映射数据集基于 GfK GeoMarketing
      中的数字映射，且要受其版权控制。有关详细信息，请参见
      http://support.sas.com/mapsonline/gfklicense。
NOTE: 从数据集 SASHELP.VCOLUMN. 读取了 5 个观测
      WHERE (libname='WORK') and (memname='AAA');
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          11.37 秒
      CPU 时间          1.35 秒

能否不用SASHELP.VCOLUMN？ 谢谢！

Try to create a view then replace sashelp.vcolumn with view. (not tested)

proc sql;
create view columns as
select * from dictionary.columns;
quit;


data _null_;
   set columns;
......

run;

这种改变变量属性不是用sql检索最快么