高手进！！宏循环 调用问题 亟待解决

我编辑了一段宏循环：（中间代码省略了）
%macro mypaid(time=,data1=,data2=);
。。。。。。
%mend;                                                                                                                                                                                                                                                   
  %mypaid(time="2010Q4",data1=ht.wj_10Q4,data2=ht.yj_10Q4) ;

日期是从 07Q1 到10Q4的季度时点，，相应的宏可能调用调用数据集我也生成了。。。
我现在跑一次会生成一个我要的结果，但是下次就又要 修改一次%mypad 时间点的参数，次数太多太麻烦

请高手如何用一个循环解决  我一次次重复 修改 参数的问题？
我想到的方法是把需要修改的的参数做成一个专门的数据集，比如
data a;
input  time $  wj $  yj $ ;cards;
10Q4  ht.wj_10Q4  ht.yj_10Q4  
10Q3  ht.wj_10Q3  ht.yj_10Q3  
.......
07Q1  ht.wj_07Q1  ht.yj_07Q1  
;
run;
然后通过一个循环调用出来放进%mypaid，但是不懂如何编程用循环调用数据集~

或者有高手能通过别的方法实现这个循环也可以，
请高手赐教！

call execute 实现数据步与宏的交互；
data _null_;
set a;
call execute(compress('%mypaid(time='||time||',data1='||wj||',data2='||yj||')'));
run;

不过下面数据集a有问题
$默认8个字符长度， 下面数据长度超过8，数据会截断，改一下长度。

1. %macro test(low=,high=);
   
2.     %let _low=%sysfunc(inputn(%substr(&low.,1,2),best.));   /*最小年份*/
   
3.     %let _high=%sysfunc(inputn(%substr(&high.,1,2),best.)); /*最大年份*/
   
4. 
   
5.     %do i=&_low. %to &_high.;   /*根据年份做循环*/
   
6.         %let ic=%sysfunc(putn(&i.,z2.));    /*将个位数补足2位*/
   
7.         %do j=1 %to 4;      /*季度循环*/
   
8. 
   
9.         %if &ic.&j.<%sysfunc(compress(&low.,,kd)) or &ic.&j.>%sysfunc(compress(&high.,,kd))  %then %goto exit;  /*季度小于定义的最小值或大于最大值则跳出*/
   
10.         %else %do;
    
11.             %let time=20&ic.Q&j.;         /*定义time*/
    
12.             %let date1=ht.wj_&ic.Q&j.;      /*定义date1*/
    
13.             %let date2=ht.yj_&ic.Q&j.;      /*定义date2*/
    
14.             %put &time.;
    
15.             %put &date1.;
    
16.             %put &date2.;
    
17. 
    
18. 
    
19.         %end;
    
20.         %exit:
    
21.         %end;
    
22.     %end;
    
23. %mend;
    
24. %test(low=07Q2, high=10Q1);

复制代码

学习

个人认为还是 call execute 比较好。我比较喜欢用cats，不用写那些||了 呵呵～

data a;
input  time $  wj $  yj $ ;cards;
10Q4  ht.wj_10Q4  ht.yj_10Q4  
10Q3  ht.wj_10Q3  ht.yj_10Q3  
.......
07Q1  ht.wj_07Q1  ht.yj_07Q1  
;
run;

data a2;
  set a;
  num=_n_;
run;

if max num is n then

%global par1 par2 par3;
%let par1=;
%let par2=;
%let par3=;

%macro get_par(count=);
proc sql;
  select time, wj,  yj into :par1, :par2, :par3
  from a2
  where num=&count;
quit;
%mend;

%macro rerun(total=);
  %do i=1 % to $total;
  %get_par(count=&i);
  %mypaid(time=&par1;,data1=&par2,data2=&par3) ;
%end;
%Mend;

%re_run(total=n);