title;                                                                                                 
options nodate;                                                                                        
proc dmvq data=_EMSPDE.sp_DGM00014 dmdbcat=EMPROJ.sp_DGM00014 std=std                                  
;                                                                                                      
input                                                                                                  
G                                                                                                      
SLG                                                                                                    
AVG                                                                                                    
OBP                                                                                                    
AB                                                                                                     
R                                                                                                      
H                                                                                                      
H2                                                                                                     
H3                                                                                                     
HR                                                                                                     
RBI                                                                                                    
BB                                                                                                     
SO                                                                                                     
SB                                                                                                     
/level=interval                                                                                        
missing=Ignore;                                                                                        
;                                                                                                      
VQ maxc = 3 clusname=_SEGMNT_ cluslabel="Cluster ID";                                                  
MAKE outvar=EMPROJ.SOM6UM40;                                                                           
INITIAL radius=0 first;                                                                                
TRAIN tech=kohonen                                                                                     
;                                                                                                      
SAVE outstat=EMPROJ.SOMFHXLQ(label="Clustered Statistics for EMDATA.VIEW_CSG") outmean=EMPROJ.SOM7623Y;
CODE metabase=EMPROJ.T2OK117B.SCR0YNGL.SOURCE;                                                         
run;                                                                                                   
quit;