谢谢！！作者: shiyiming 时间: 2008-11-6 22:03 标题: Re: 在线等！急问！！谢谢！！ my level is low as i have to create a macro symbol first.
[code:25rpt7fk]
proc sql noprint;
select x into :y separated by '' from source;
quit;
data mydata;
y="&y";
run;
[/code:25rpt7fk]
or i'll have to use more steps
[code:25rpt7fk]
data source;
input x $;
datalines;
tom
xx
a
ff
;
proc transpose data=source out=source1(drop=_name_);
var x;
data mydata(keep=x);
set source1;
x = cats(of _char_);
run;
[/code:25rpt7fk]
or manually
[code:25rpt7fk]
data source;
input x $;
datalines;
tom
xx
a
ff
;
data mydata(keep=y);
if 0 then set source nobs=nobs;
y = repeat(' ', vlength(x)*nobs);
do until(eof);
set source end=eof;
y = cats(y,x);
end;
run;
[/code:25rpt7fk]作者: shiyiming 时间: 2008-11-7 00:01 标题: Re: 在线等！急问！！谢谢！！ Thanks！ Great Help！