SAS循环问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我想在宏中进行双重循环，第一重循环是id从1到32，第二重循环是num，但每个id的num不同，类似于如下格式：

id_new	rep_gain_new
1	5
2	230
3	14
4	23
5	4
6	22
7	0
8	9
9	34
10	13
11	11
12	135
13	58
14	10
15	100
16	29
17	64
18	18
19	33
20	12
21	0
22	327
23	5
24	20
25	12
26	0
27	0
28	1
29	111
30	43
31	5
32	19

相当于id=1的人循环5次，id=2的人循环230次，如此类推。这次数据保存在loopnum文件中。那么在macro中应该怎么写双循环语句呢？

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：Macro loop 数据保存 Gain 循环语句

we need no macro here.

data data1;
infile datalines;
input id_new  rep_gain_new ;
do n = 1 to rep_gain_new;
        put '*'@@;
end;
put;
drop n;
datalines;
1    5
2  230
3   14
4   23
;

davil2000 发表于 2012-12-3 14:22
we need no macro here.

data data1;

如果中间的循环体比较复杂，就不能放在data步里了吧

我的做法是：
%do i=1 %to N;

proc sql noprint;
select rep_gain_new into :rep_times
from data
where id_new=&i;
quit;

%do j=1 %to &rep_times;
    ......
%end;

%end;

playmore 发表于 2012-12-3 14:37
如果中间的循环体比较复杂，就不能放在data步里了吧

我的做法是：

3楼好棒!

playmore 发表于 2012-12-3 14:37
如果中间的循环体比较复杂，就不能放在data步里了吧

我的做法是：

SAS提示在 PROC SQL 中不支持此 SAS 全局语句。已被忽略。怎么回事呢？

jianke22 发表于 2012-12-3 16:30
SAS提示在 PROC SQL 中不支持此 SAS 全局语句。已被忽略。怎么回事呢？

%do循环必须在宏里用，你用宏了吗？

playmore 发表于 2012-12-3 16:41
%do循环必须在宏里用，你用宏了吗？

用了。
%macro split_gain;
%do i=2 %to 32;

proc sql noprint;
select rep_gain_new into :rep_times
from Maxnum_gain_final;
where id_new=&i;
quit;

%do j=1 %to &rep_times;

data temp;set Repurchase_3;
where id_new=&i and rep_gain_new<=&j-1 and rep_gain_new ne .;run;
/*
proc sort data=temp;by descending date;run;

data temp;set temp;
tlag=date-lag(date);
retain t;
t+tlag;
run;

proc sort data=temp;by date;run;

data temp;set temp;
if t<-365 then delete;
if remark="证券买入" then delete;
run;

proc univariate data=temp noprint;
var gain;
by id_new;
output out=sum_sellgain sum=sell_gain;
run;

proc append base=sum_sellgain_all data=sum_sellgain force;run;
*/
%end;
%end;
%mend;
%split_gain;

jianke22 发表于 2012-12-3 20:20
用了。
%macro split_gain;
%do i=2 %to 32;

把SQL中from那句最后的分号去掉

proc sql noprint;
select rep_gain_new into :rep_times
from Maxnum_gain_final
where id_new=&i;
quit;

很厉害