SAS程序求教

有一组数据，含有个体（id）、日期(date)以及是否发生某事件(happen)三个变量，表示个体发生特定事件的日期。
想获取个体发生特定事件前某段时间的样本数据，例如事件发生（happen=1）时前100行到前30行的数据，求教如何编写SAS程序。例如下面的数据a，求取个体事件发生前10行到前3行的数据（若取不到前10行，则取到第一行就截止），谢谢！数据量比较大，所以没法手工筛选，只能求助软件。

id	date	happen
1	2001/1/1	0
1	2001/1/2	0
1	2001/1/3	0
1	2001/1/4	0
1	2001/1/5	0
1	2001/1/6	0
1	2001/1/7	0
1	2001/1/8	0
1	2001/1/9	0
1	2001/1/10	0
1	2001/1/11	0
1	2001/1/12	0
1	2001/1/13	1
1	2001/1/14	0
1	2001/1/15	0
1	2001/1/16	0
1	2001/1/17	0
1	2001/1/18	0
2	2003/3/2	0
2	2003/3/3	0
2	2003/3/4	0
2	2003/3/5	0
2	2003/3/6	0
2	2003/3/7	0
2	2003/3/8	0
2	2003/3/9	0
2	2003/3/10	0
2	2003/3/11	0
2	2003/3/12	0
2	2003/3/13	1
2	2003/3/14	0
2	2003/3/15	0
3	2002/8/2	0
3	2002/8/3	0
3	2002/8/4	0
3	2002/8/5	0
3	2002/8/6	0
3	2002/8/7	0
3	2002/8/8	0
3	2002/8/9	0
3	2002/8/10	0
3	2002/8/11	0
3	2002/8/12	0
3	2002/8/13	1
3	2002/8/14	0
3	2002/8/15	0
3	2002/8/16	0

得到数据：

id	date	happen
1	2001/1/1	0
1	2001/1/2	0
1	2001/1/3	0
1	2001/1/4	0
1	2001/1/5	0
1	2001/1/6	0
1	2001/1/7	0
1	2001/1/8	0
1	2001/1/9	0
1	2001/1/10	0
2	2003/3/2	0
2	2003/3/3	0
2	2003/3/4	0
2	2003/3/5	0
2	2003/3/6	0
2	2003/3/7	0
2	2003/3/8	0
2	2003/3/9	0
2	2003/3/10	0
3	2002/8/3	0
3	2002/8/4	0
3	2002/8/5	0
3	2002/8/6	0
3	2002/8/7	0
3	2002/8/8	0
3	2002/8/9	0
3	2002/8/10	0
3	2002/8/11	0
3	2002/8/12	0

问题描述和给出的示例前后矛盾，如果是到前三，那么id 2和3的结尾错误。参考附件代码，可根据需要修改判断index

1. data raw;
   
2. length date $10;
   
3. input id date$ happen;
   
4. datalines;
   
5. 1 2001/1/1 0
   
6. 1 2001/1/2 0
   
7. 1 2001/1/3 0
   
8. 1 2001/1/4 0
   
9. 1 2001/1/5 0
   
10. 1 2001/1/6 0
    
11. 1 2001/1/7 0
    
12. 1 2001/1/8 0
    
13. 1 2001/1/9 0
    
14. 1 2001/1/10 0
    
15. 1 2001/1/11 0
    
16. 1 2001/1/12 0
    
17. 1 2001/1/13 1
    
18. 1 2001/1/14 0
    
19. 1 2001/1/15 0
    
20. 1 2001/1/16 0
    
21. 1 2001/1/17 0
    
22. 1 2001/1/18 0
    
23. 2 2003/3/2 0
    
24. 2 2003/3/3 0
    
25. 2 2003/3/4 0
    
26. 2 2003/3/5 0
    
27. 2 2003/3/6 0
    
28. 2 2003/3/7 0
    
29. 2 2003/3/8 0
    
30. 2 2003/3/9 0
    
31. 2 2003/3/10 0
    
32. 2 2003/3/11 0
    
33. 2 2003/3/12 0
    
34. 2 2003/3/13 1
    
35. 2 2003/3/14 0
    
36. 2 2003/3/15 0
    
37. 3 2002/8/2 0
    
38. 3 2002/8/3 0
    
39. 3 2002/8/4 0
    
40. 3 2002/8/5 0
    
41. 3 2002/8/6 0
    
42. 3 2002/8/7 0
    
43. 3 2002/8/8 0
    
44. 3 2002/8/9 0
    
45. 3 2002/8/10 0
    
46. 3 2002/8/11 0
    
47. 3 2002/8/12 0
    
48. 3 2002/8/13 1
    
49. 3 2002/8/14 0
    
50. 3 2002/8/15 0
    
51. 3 2002/8/16 0
    
52. ;
    
53. run;
    
54. 
    
55. data raw1;
    
56.         set raw;
    
57.         by id;
    
58.         retain _in_id;
    
59.         if first.id then _in_id=0;
    
60.         _in_id+1;
    
61. run;
    
62. 
    
63. proc sql noprint;
    
64.         create table raw2 as
    
65.         select a.*,b._in_id as index from raw1 as a
    
66.         left join (select id,min(_in_id) as _in_id from raw1 where happen=1 group by id) as b
    
67.         on a.id eq b.id
    
68.         order by id,_in_id;
    
69. quit;
    
70. 
    
71. data wanted;
    
72.         set raw2;
    
73.         if index>10 then do;
    
74.                 if _in_id<=10 and _in_id<=index-3 then output;
    
75.         end;
    
76.         else do;
    
77.                 if _in_id eq index-1 then output;
    
78.         end;
    
79. run;

复制代码