这样的PROC SQL 到底错在了哪里？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

DATASET如下，
id        dat4
1        10/1/1999
1        11/1/1999
1        12/1/1999
1        1/1/2000
1        2/1/2000
1        3/1/2000
1        4/1/2000
1        5/1/2000
1        6/1/2000
2        10/1/1999
2        11/1/1999
2        12/1/1999
2        1/1/2000
2        2/1/2000
2        3/1/2000
2        4/1/2000
2        5/1/2000
2        6/1/2000
3        7/1/2002
3        8/1/2002
3        9/1/2002
3        10/1/2002
3        11/1/2002
3        12/1/2002
3        4/1/2007
3        5/1/2007
3        6/1/2007

我现在想PROC SQL 执行操作把ID=3的记录全部删除，因为ID=3时,月份是不连续的，但是程序怎么也不出结果，
不知道哪里出错了，请大家帮忙看看，

%macro delFun( );
%do i =1 %to 3;
proc sql noprint;
select id, count(*), intck('month',min(dat4),max(dat4))+1 into :id, bsCount, :monthDiff
from mydata
group by id;
%put id= &id numObs =&obsCount month diff = &monthDiff;

/* delete the dataset which has the discontinous month */

%let a = %eval(&obsCount);
%let b = %eval(&monthDiff);

%if &a ^= &b %then %do;
proc sql;
delete from mydata
where id = &id;
run;
%end;
%put id =&id a=%eval(&obsCount) b=%eval(&monthDiff);

%end;
%mend;
options symbolgen mprint mlogic;
%delFun();

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：proc sql ROC sql continous dataset 记录

data mydata;
input id : 3.   dat4 : mmddyy10.;
format dat4 mmddyy10.;
datalines;
1        10/1/1999
1        11/1/1999
1        12/1/1999
1        1/1/2000
1        2/1/2000
1        3/1/2000
1        4/1/2000
1        5/1/2000
1        6/1/2000
2        10/1/1999
2        11/1/1999
2        12/1/1999
2        1/1/2000
2        2/1/2000
2        3/1/2000
2        4/1/2000
2        5/1/2000
2        6/1/2000
3        7/1/2002
3        8/1/2002
3        9/1/2002
3        10/1/2002
3        11/1/2002
3        12/1/2002
3        4/1/2007
3        5/1/2007
3        6/1/2007
;

%macro delFun( );
%do i =1 %to 3;
proc sql noprint;
select id, count(*), intck('month',min(dat4),max(dat4))+1 into :id,: obsCount, :monthDiff
from mydata
where id=&i
group by id;
quit;

%put id= &id numObs =&obsCount month diff = &monthDiff;

/* delete the dataset which has the discontinous month */

%let a = %eval(&obsCount);
%let b = %eval(&monthDiff);

%if &a ^= &b %then %do;
proc sql;
delete from mydata
where id = &id;
quit;
%end;
%put id =&id a=%eval(&obsCount) b=%eval(&monthDiff);

%end;
%mend;
options mprint nosymbolgen nomlogic;
%delFun()

非常感谢，漏了个 ID =&i;