求助高手:宏的一些疑惑

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

现想做一个宏,然后对宏中的参数实现一个特定序列的循环.请问能否实现?
就是类似%macro 宏名 (&1,&2,....)对&1的参数实现循环.
如果不行的话,只能在宏内部进行循环,那样就得修改程序.
现在问题就是宏外部能否实现我开始说的循环,还有就是宏中引用另外的宏能否实现,谢谢高手了.(感谢此问题已经由hopewell解决)
高手越活跃对我们这些菜鸟越好,我现在又有一个问题请教高手们,就是:
粗略描述如下:
%macro 宏名(m,lag(m))  /*m来自一个数据集的字符型变量,lag(m)也就是引用m的上一个滞后*/
这样通过循环使得这个宏依次取编整个数据集m的观测值.
请高手不吝赐教!

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：求助高手 hopewell Macro 字符型变量 请教高手 程序

嗯，替你顶一下，等待高手！

1. %macro a(arg1, arg2);
   
2.     %do i=1 %to &arg1;
   
3.         %b(&i, &arg2)
   
4.     %end;
   
5. %mend a;
   
6. %macro b(arg1, arg2);
   
7.     %put NOTE: *** %nrstr(%A)(&arg1, &arg2) executed ! ***;
   
8. %mend b;
   
9. %a(3,argument)

复制代码

3# hopewell

非常感激高手的大力相助,真是厉害!思维非常严谨!让小弟茅塞顿开

HOPEWELL又开始活跃在论坛上了

HOPEWELL又开始活跃在论坛上了

顶!!!!!!!!!!!!!!!!!!

1. data raw;
   
2.     input m @@;
   
3. datalines;
   
4. 1 2 3
   
5. ;
   
6. 
   
7. /*method 1*/
   
8. %macro a(m, lag_m);
   
9.     %put NOTE: *** %nrstr(%A)(&m, &lag_m) executed ! ***;
   
10. %mend;
    
11. data _null_;
    
12.     set raw;
    
13.     call execute(cats('%a(',m,',',lag(m),')'));
    
14. run;
    
15. 
    
16. /*method 2*/
    
17. %macro a(m, lag_m);
    
18.     %if &lag_m eq %then %let lag_m=.;
    
19.     %put NOTE: *** %nrstr(%A)(&m, &lag_m) executed ! ***;
    
20. %mend;
    
21. %macro b(inds);
    
22.     %let lag_m=;
    
23.     %let dsid=%sysfunc(open(&inds,i));
    
24.     %syscall set(dsid);
    
25.     %do i=1 %to %sysfunc(attrn(&dsid,nlobs));
    
26.         %let rc=%sysfunc(fetchobs(&dsid,&i));
    
27.         %a(&m,&lag_m)
    
28.         %let lag_m=&m;
    
29.     %end;
    
30.     %let rc=%sysfunc(close(&dsid));
    
31. %mend;
    
32. %b(work.raw)

复制代码

8# hopewell
多谢hopewell的点拨,够我消化好几天了.