[debug] proc sql 和 %Marco 的结合程序

我现在要用proc sql 指令批量处理数据，BAS01，BAS02， BAS03...... BAS85 (可见数据有顺序) 。生成的数据叫out01， out02，out03.....out85。

我现在的指令是正确的，如下

1. proc sql;
   
2. create table  out01  as
   
3. select
   
4.   h._ric,
   
5.   h.date_l_,
   
6.   h.rbas,
   
7.   h.basdp,
   
8.   ( select std(s.rbas)
   
9.     from  BAS01 s
   
10.     where h.gdate between s.gdate-15 and s.gdate+15) as stddev_rbas
    
11. from  BAS01 h;
    
12. 
    
13.   ( select mean(s.rbas)
    
14.     from  BAS01 s
    
15.     where h.gdate between s.gdate-15 and s.gdate+15) as mean_rbas
    
16. from  BAS01 h;
    
17. 
    
18. quit;

复制代码

但是我这里想用 %Macro 和 %Do 自动处理数据然后生成新的数据， 我的code是：

1. 
   
2. %macro input_data(inname,outname);
   
3. %do i=1 %to 85;
   
4. 
   
5. data _null_;
   
6. if &i<10 then call symput("k","0"||"&i.");
   
7. else if &i>=10  then call symput("k","&i.");
   
8. run;
   
9. 
   
10. proc sql;
    
11. create table  &outname.&k.  as
    
12. select
    
13.   h._ric,
    
14.   h.date_l_,
    
15.   h.rbas,
    
16.   h.basdp,
    
17.   ( select std(s.rbas)
    
18.     from  &inname.&k. s
    
19.     where h.gdate between s.gdate-15 and s.gdate+15) as stddev_rbas
    
20. from  &inname.&k. h;
    
21. 
    
22.   ( select mean(s.rbas)
    
23.     from  &inname.&k. s
    
24.     where h.gdate between s.gdate-15 and s.gdate+15) as mean_rbas
    
25. from  &inname.&k. h;
    
26. 
    
27. ( select std(s.basdp)
    
28.     from  &inname.&k. s
    
29.     where h.gdate between s.gdate-15 and s.gdate+15) as stddev_basdp
    
30. from  &inname.&k. h;
    
31. 
    
32.   ( select mean(s.basdp)
    
33.     from  &inname.&k. s
    
34.     where h.gdate between s.gdate-15 and s.gdate+15) as mean_basdp
    
35. from  &inname.&k. h;
    
36. 
    
37. quit;
    
38. 
    
39. %end;
    
40. %mend;
    
41. %input_data(BAS,out);
    
42. 
    

复制代码

但是这个code 提示 ‘ as’  那里有错误。 在一般情况下，proc sql 里的where， as， from 等指令都会被加深为蓝色， 可是我的code下面这些都是普通的黑色字体。 实在搞不懂那里出错了。

请大神们指教。

%macro input_data(inname,outname);
%do i=1 %to 85;

data _null_;
if &i<10 then call symput("k","0"||"&i.");
else if &i>=10  then call symput("k","&i.");
run;

proc sql;
create table  &outname.&k.  as
select
  h._ric,
  h.date_l_,
  h.rbas,
  h.basdp,
  ( select std(s.rbas)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as stddev_rbas,
  ( select mean(s.rbas)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as mean_rbas,
( select std(s.basdp)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as stddev_basdp,
  ( select mean(s.basdp)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as mean_basdp
from  &inname.&k. h;

quit;

%end;
%mend;

%input_data(BAS,out);

先看看。{:2_26:}