How to do use moving MAX

Hi : Sir
   How to find it (the largest one)  using the 2-moving -MAX windows from pooling data by group ?
THS !

pooling.xls
group          month         sales
1001          199101          1
1001          199102          2
1001          199103          3
1001          199104          4
1003          199102         10
1003          199103           9
1003          199104           8
1003          199105           7
1004          199102          21
1004          199103          21
1004          199104          21
1004          199105          22
1004          199106          23

I hope below:
out.xls
group           month         MAX(2)
1001                   199101           .      
1001                   199102                   2
1001                   199103                   3
1001                   199104                   4
1003                   199102           .
1003                   199103          10
1003                   199104          10
1003                   199105          10
1004           199102            .
1004                   199103                  21
1004                   199104                  21
1004                   199105                  22
1004                   199106                  23

This is for moving max of 12 rows. I am sure you can change it two, if you want.

1. data pooling;
   
2.    do group = 1001 to 1003;
   
3.    do month = 1 to 30;
   
4.       sales = ceil(ranuni(12345)*1000);
   
5.       output;
   
6.     end; end;
   
7. run;
   
8. 
   
9. data moving_max;
   
10.   array temp{0:11} temp0-temp11;
    
11.     i = 0;
    
12.     do until (last.group);
    
13.       set pooling;
    
14.       by group;
    
15.                n = mod(i, 12);
    
16.           temp[n]= sales;
    
17.          maxsale = max(of temp{*});
    
18.            do k = 0 to 11;
    
19.             if missing(temp[k]) then call missing(maxsale);
    
20.            end;
    
21.      i+1; output;
    
22.     end;
    
23.     keep group month sales maxsale;
    
24. run;

复制代码

1. proc sort data=pooling;
   
2.     by group;
   
3. run;
   
4. 
   
5. data movingmax;
   
6.   array temp{2} temp1 temp2 (0 0);
   
7.     do until (last.group);
   
8.       set pooling ;
   
9.       by group;
   
10.         if first.group then call missing(maxsale);
    
11.           temp[2] = sales;
    
12.           maxsale = max(of temp{*});
    
13.           temp[1] = temp[2];
    
14.           output;
    
15.     end;
    
16.     drop temp1 temp2;
    
17. run;

复制代码

Can you rewrite code if temp{12} ?
The 12-moving -MAX windows
THS!
PS: Where is macro %missing in the code?

WROMG ! The the first maxsale by group  is = "."  


group               month                sales               maxsale
1001              199101                   1                   1
1001              199102                   2                   2
1001              199103                   3                   3
1001              199104                   4                   4
1003              199102                  10                  10
1003              199103                   9                  10
1003              199104                   8                   9
1003              199105                   7                   8
1004              199102                  21                  21
1004              199103                  21                  21
1004              199104                  21                  21
1004              199105                  22                  22
1004              199106                  23                  23