问题求助

请看看示例文件，写的还算清楚，不清楚的请留言

1. data test;
   
2. input id code date: yymmdd10.        x y xvalue;
   
3. format date yymmdd10.;
   
4. cards;
   
5. 1        1        1998-3-22        .        1        .
   
6. 1        1        1999-5-6        1        .        4
   
7. 1        1        1999-9-8        1        .        5
   
8. 1        1        1999-10-21        1        .        6
   
9. 1        1        2001-9-8        .        1        .
   
10. 1        2        1996-5-1        1        .        8
    
11. 1        2        1997-5-1        .        1        .
    
12. 1        2        1997-9-6        1        .        10
    
13. 1        2        1998-3-2        1        .        11
    
14. 1        2        1998-4-26        1        .        12
    
15. 1        2        1998-9-19        .        1        .
    
16. 1        2        1998-10-26        .        1        .
    
17. 1        2        1998-11-3        1        .        .
    
18. 1        2        1998-12-9        .        1        .
    
19. ;
    
20. run;
    
21. 
    
22. data test1;
    
23. set test;
    
24. tag+1;
    
25. retain uni1 0;
    
26. retain uni2 0;
    
27. if (id^=uni1 or code^=uni2) and id=lag(id) and code=lag(code) and y=1 and lag(x)=1 and  date-lag(date)<180 then do;
    
28. ydummy=1;
    
29. uni1=id;
    
30. uni2=code;
    
31. end;
    
32. if missing(lag(x)) then do;
    
33. tag=0;
    
34. end;
    
35. run;
    
36. 
    
37. proc sql noprint;
    
38.   select max(tag) into: maxtag from test1;
    
39. quit;
    
40. 
    
41. %macro temp;
    
42. data test2;
    
43. set test1;
    
44.         if &maxtag.>2 then do;
    
45.                 temp1=lag(xvalue);
    
46.                 date1=lag(date);
    
47.                 %do i=2 %to &maxtag.;
    
48.                 temp&i.=lag(temp%left(%eval(&i-1)));
    
49.                 date&i.=lag(date%left(%eval(&i-1)));
    
50.                 %end;
    
51.         end;
    
52.         if &maxtag.=2 then do;
    
53.                 temp1=lag(xvalue);
    
54.                 temp2=lag(temp1);
    
55.                 date1=lag(date);
    
56.                 date2=lag(date1);
    
57.         end;
    
58. run;
    
59. 
    
60. data test3;
    
61. set test2;
    
62. array tempx temp1-temp%left(&maxtag.);
    
63. xlianxusumvalue=.;
    
64. xgudingsumvalue=.;
    
65. if ydummy=1 then do;
    
66.         do i=1 to tag;
    
67.                 xlianxusumvalue+tempx[i];
    
68.         end;
    
69.         xgudingsumvalue=temp1;
    
70.         if tag>=2 then do;
    
71.         %do i=2 %to &maxtag.;
    
72.                 if date1-date%left(%eval(&i))<180 then
    
73.                 xgudingsumvalue=xgudingsumvalue+temp%left(%eval(&i));
    
74.         %end;
    
75.         end;
    
76. end;
    
77. keep id code date x y xvalue ydummy xlianxusumvalue xgudingsumvalue;
    
78. run;
    
79. %mend;
    
80. %temp;

复制代码