data a;
do i=1 to 100;
x=rannor(10);
output;
end;
run;
proc transpose data=a out=b;
var _all_;
run;
data b;
set b;
array col col1-col100;
do i=1 to 100;
col(i)=col(1);
end;
run;
proc transpose data=b out=b(drop=_name_ i);
var col1-col100;
run;

data a;
do i=1 to 100;
x=rannor(10);
output;
end;
run;
data c(drop=i x);
if _n_=1 then set a(drop=i rename=(x=b));
set a;
run;

good, thanks

3# sopching 已解决，十分感谢！！