批量获取变量名，然后批量rename 使用宏变量来实现
1.get namelist
2. generate the rename code such as
proc datasets lib=lib;
modify table;
rename
%let i=1;
%let name=%scan(&namelist.,&i.);
  %do %while(%length(&name.));
     &name.=&name._N
%let i=%eval(&i+1);
%let name=%scan(&namelist.,&i.);
  %end;
;
quit;

非常感谢你的回复。但是，因为我SAS学的没那么深入，所以试了一下还是有些疑问。
我的数据保存在名a1的临时数据集中，变量名是V1-V50，那么，namelist是怎么获取的呢？
proc datasets lib=lib （这个是固定的表述么？）
modify table（这个table是特指某个数据集或文档么）
还有后面的&namelist，是不是第一步获取的文档或列表？

不好意思，因为学的不深但又想找点省事，所以问题这么多。我想着能直接套用，结果发现log窗口跳出来很多问题。

再次感谢！

Try the contents procedure, and I provided an example here.

data test01;
        format id v1 8. v2 $10. v3 date9.;
        id = 1;
        v1 = 2;
        v2 = 'a';
        v3 = "01Jan2012"d;
run;
proc contents data = test01 out = test02(keep = name) noprint; run;
proc sql noprint;
        select compress(name||'='||name||'_n') into:renames separated by ' '
                from test02
                where lowcase(name) ne 'id';
quit;
data test03;
        set test01(rename=(&renames.));
run;

你可以查询proc datasets的相关帮助 table是数据集名，lib=后面应该填逻辑库名
namelist需要获取，用proc sql 语句获取
楼上这位的代码也是不错，对于小数据集而言都一样

楼上两位的代码都不错哈