求助计算连续持有期间

如图，ym 为0 是上半年  1是下半年。
以fundcode 000011持有的  stkcd000014为例   ，  2007年全年持有，半年数目为2   2009到2011连续三年持有，半年书目为6  。

是以下这个结果，还是每个stkcd只计算最大的连续半年数？

1. proc import out=fund
   
2.         datafile="C:/fund.xls"
   
3.         dbms=excel replace;
   
4. run;
   
5. 
   
6. proc sort data=fund;by fundcode stkcd year ym;run;
   
7. 
   
8. data fund1;
   
9.         set fund;
   
10.         by fundcode stkcd year ym;
    
11.         retain lastyear lastym cnt index;
    
12.         if first.stkcd then do;
    
13.                 cnt=1;
    
14.                 index=0;
    
15.                 lastyear=.;
    
16.                 lastym=.;
    
17.         end;
    
18.         else if (year-lastyear)*2+ym-lastym=1 then cnt=cnt+1;
    
19.         else cnt=1;
    
20. 
    
21.         if cnt=1 then index=index+1;
    
22.         lastyear=year;
    
23.         lastym=ym;
    
24.         drop lastyear lastym;
    
25.         proc sort;by fundcode stkcd index descending cnt;
    
26. run;
    
27. 
    
28. data fund2;
    
29.         set fund1;
    
30.         by fundcode stkcd index descending cnt;
    
31.         retain ttcnt;
    
32.         if first.index then ttcnt=cnt;
    
33.         drop index;
    
34.         proc sort;by fundcode stkcd year ym;
    
35. run;

复制代码

当然   也会有   下半年才持有的情况   请各位注意  谢谢

除了总共的半年数，也请给出累计的半年数，比如对于000011的000014   ，总共半年数为6，2009 到 2011累计持有半年数为1到6