data numbers;                                                           
  input var1 var2 var3;                                             
datalines;                                                              
7 1 4                                                                  
. 0 8                                                                  
9 9 .                                                                  
5 6 2                                                                  
8 3 0                                                                  
;                                                                                                                                          
data nomiss(drop=i);                                                   
  set numbers;                                                            
  array testmiss(*)  _numeric_;     do i = 1 to dim(testmiss);                                 
    if testmiss(i)=. then testmiss(i)=0;   
  end;                                                                    
run;                                                                    
proc print;
run;
我想把上述的数据值用为缺失值的均值替换，如何能够实现？（不要说用proc means）