在页面上点用户中心  ---  积分与消费  ----  兑换

用经验值买 点论坛币，下载一个文件只要1个论坛币的

这个程序好像不能运行 不知是什么问题

scarfacetony 的方法很好啊，只需要把变量名数据集名改改就好了。鄙人的方法可以不用啊，用的话改成do i=1 to dim(_y)好理解些。

data a;
input y1999 y2000 y2001;
cards;
234 345 435
345 4555 3456
;
run;
proc contents data=a out=name(keep=name) noprint;
run;
data _null_;
set name;
i=_n_;
year=input(substr(name,2),8.);
call symput(compress("j"||i),year);
run;
%put _user_;
%macro merg;
data b;
set a;
array k{3}_numeric_;
%do i=1 %to 3 ;
ii=&i;
year1=&&j&i;
procduct=k{ii};
output;
%end;
keep year1 procduct;
run;
%mend;
%merg;

呵呵 有点复杂 我仔细研究一下哈 谢谢啦

看不懂

看看这个行不行