非常佩服 pobel 的水平。针对太多变量的情况，我尝试编写也许可行的测试程序。欢迎阅读。京剧

http://blog.sina.com.cn/s/blog_a3a9263601016n4a.html

data aaa;
input variable$ vlabel$;
cards;
no 编号
sex 性别
;
run;

proc sql noprint;
   select catx("=",variable,quote(vlabel)) into : label separated by " "
    from aaa;
quit;


data bbb;
label &label;
input no sex;
cards;
1 1
2 2
;
run;

谢谢！ 有5000个变量需要这样，&label 长度有限制 出错啦！

data aaa;
input variable$ vlabel$;
cards;
no Number
sex Gender
;
run;

proc transpose data=aaa out=label(drop=_name_);
    id variable;
        idlabel vlabel;
run;

data bbb;
if 0 then set label;
input no sex;
cards;
1 1
2 2
;
run;

数据集aaa和bbb已存在！