proc transpose data=m out=n prefix=x_;
by y;
id x;
var c;
run;
data n;
retain y x_1-x_6;
set n;
drop _name_;
run;[/code:2y7oqcdt]作者: shiyiming 时间: 2009-12-17 12:41 标题: Re: 关于'array'用法 赠品: array版本的
[code:y7qs04hm]%let n=6;
data n2(drop=x c);
retain y;
array arr{&n} x_1-x_&n;
do _n_=1 by 1 until(last.y);
set m;
by y;
arr(x)=c;
end;
run;[/code:y7qs04hm]