求助！数据转置问题！

shiyiming

ID Qtr1 Qtr2 Qtr3 Qtr4;
E00224 12 33 22 .
E00367 35 48 40 30
将上面数据转成下面这种：
ID Qtr　amount;
E00224    Qtr1       12
E00224    Qtr2       33
E00224    Qtr3       22
E00224    Qtr4        .
E00367    Qtr1       35
E00367    Qtr2       48
E00367    Qtr3       40
E00367    Qtr4       30
用transpose语句我会，我想请教大家用output 语句怎么实现？
谢谢大家！

shiyiming

how about:

data out;
set in;
array qt(4) qtr1-qtr4;
array nmq(4) $ ('Qtr1' 'Qtr2' 'Qtr3' 'Qtr4');
do i=1 to 4;
QTR=nmq(i);
Amount=qt(i);
output;
end;
drop i nmq: qtr1-qtr4;
run;

shiyiming

lz 能否展示一下用transpose的做法？

shiyiming

data in;
input ID $  Qtr1 Qtr2 Qtr3 Qtr4;
cards;
E00224 12 33 22 .
E00367 35 48 40 30
;
run;

proc transpose data=in out=out(rename=(_NAME_=qtr COL1=amount));
by id;
var qtr1 qtr2 qtr3 qtr4;
run;