请问怎么用宏来实现？

shiyiming

我有一组data：

year   q1   q2   q3   q4
1994   15  20  25  30
1995   29   94  20  29
....


我想把它变成：

quarter     Number
y1994q1      15
y1994q2      20
y1994q3     25
y1994q4     30
......


我现在用了一个很笨的办法就是把第一个数据库按照年取出来然后改了
q1-q4 变量名然后转置，最后再把十几年的数据库用data set 合并到一起。

请问，可否用宏来实现呢？请帮忙！！！！谢谢！！！！！！

shiyiming

data temp;
input year q1 q2 q3 q4;
cards;
1994 15 20 25 30
1995 29 94 20 29
;
run;
proc sort;by year;
proc transpose data=temp out=temp1 prefix=q;
  var q1-q4;
  by year;
run;
data temp2;format quarter $7.;
  set temp1 (rename=(q1=number));
  quarter=compress('y'||year||_name_);
  keep quarter number;
run;

shiyiming

其实我只是想知道用宏怎么实现。因为以后遇到的问题可能比这个复杂，我需要生成多个数据库的时候，希望能用宏来实现。

不过，谢谢你的回复。

shiyiming

楼上这句话基本上可以算是废话.
为什么呢?
因为人家只要在前面加一个%macro mac;后面加一个%mend;%mac;这个就是百分之百的宏了.
完全满足你的要求.
如果你想让人家的回答有帮助.你就要说明什么是你的关注点.多个数据库是什么意思?变化的是什么,是数据结构变化?变量多了?
本来还想写两句,仔细一看?什么条件都没得.无从下手啊.写完了一定被骂,所以放弃 <!-- s:oops: --><img src="{SMILIES_PATH}/icon_redface.gif" alt=":oops:" title="Embarassed" /><!-- s:oops: -->

shiyiming

data old;
input year q1 q2 q3 q4;
datalines;
1994 15 20 25 30
1995 29 94 20 29
;
run;

%macro test;
data new;
set old;
%do i=1 %to 4;
quarter='y'||trim(left(put(year,4.)))||"q&amp;i";
number=q&amp;i.;
output;
%end;
keep quarter number;
run;
%mend;

%test;