求助个问题

希望有简洁一些的代码   thanks

1. data have;
   
2.   input id stk year qtr va;
   
3.   year_qtr = year * 4 + qtr;
   
4.   cards;
   
5. 1        2        1996        3        18
   
6. 1        2        1996        4        15
   
7. 1        2        1997        1        15
   
8. 1        2        1998        2        20
   
9. 1        2        1998        4        20
   
10. 1        5        1997        1        15
    
11. 1        5        1999        1        12
    
12. 1        5        1999        2        10
    
13. 1        5        1999        3        9
    
14. ;run;
    
15. 
    
16. proc sort data = have out = isy nodupkey;
    
17.   by id stk year;
    
18. run;
    
19. 
    
20. data full(drop = va1: this pre);
    
21.   if 0 then set have(rename=va=va1);
    
22.   if _n_ = 1 then do;
    
23.     dcl hash h(dataset:'have(rename=va=va1)');
    
24.         h.definekey('id','stk','year_qtr');
    
25.         h.definedata('va1');
    
26.         h.definedone();
    
27.   end;
    
28. 
    
29.   set isy(keep = id stk year);
    
30.   do qtr = 1 to 4;
    
31.     year_qtr = year * 4 + qtr;
    
32.     this = ~h.find();
    
33.         va1_this = va1;
    
34.         pre  = ~h.find(key:id, key:stk, key:year_qtr - 1);
    
35.         va1_pre = va1;
    
36. 
    
37.         select(cats(this,pre));
    
38.       when('11') do;va = va1_this - va1_pre;output;end;
    
39.       when('10') do;va = va1_this;          output;end;
    
40.       when('01') do;va =          - va1_pre;output;end;
    
41.           otherwise;
    
42.         end;
    
43.   end;
    
44. run;
    
45. 
    
46. proc sort;
    
47.   by id stk year_qtr;
    
48. run;

复制代码

最后那条你自己再设置删除一下就ok