Date ticker data
20010103 AA 101
20010104 AA 102
20010105 AA 103
20010103 BB 201
20010104 BB 202
20010105 BB 203
20010103 CC 301
20010104 CC 302
20010105 CC 303
请大家帮忙，谢谢。作者: shiyiming 时间: 2010-12-9 21:14 标题: Re: 求助：Datastream 资料整理问题 [code:2yx2ppd2]data raw;
input Date yymmdd8. data1 data2 data3;
label data1='AA'
data2='BB'
data3='CC';
format date yymmdd10.;
datalines;
20010103 100 200 300
20010104 101 201 301
20010105 102 202 302
;
data out1(drop=i);
length ticker $10;
set raw;
array out{*} data1-data3;
do i=1 to dim(out);
data=out(i);
ticker=label(out(i));
output;
end;
drop data1-data3;
run;
proc sql;
create table out2 as
select date, data1 as data, 'AA' as ticker length=10
from raw
union all
select date, data2 as data, 'BB' as ticker length=10
from raw
union all
select date, data3 as data, 'CC' as ticker length=10
from raw;
quit;
proc transpose data=raw out=out3(drop=_name_ rename=(col1=data)) label=ticker;
by date;
var data1-data3;
run;[/code:2yx2ppd2]作者: shiyiming 时间: 2010-12-12 18:04 标题: Re: 求助：Datastream 资料整理问题 测试成功了，谢谢。作者: shiyiming 时间: 2010-12-12 18:36 标题: Re: 求助：Datastream 资料整理问题 凑个热闹～～
[code:2o7sw9jf]
data a;
format date yymmddn8.;
input date yymmdd8. @;
%macro b(tk);
ticker="&tk";
input data @;
output;
%mend;
%b(AA);
%b(BB);
%b(CC);
input;
datalines;
20010103 100 200 300
20010104 101 201 301
20010105 102 202 302
;
run;
proc sort data=a; by ticker data;run;
[/code:2o7sw9jf]