PROC PRINCOMP data=data_prg.pcomp8_2 OUT=data_prg.pcomp8_2b PREFIX=z;
VAR A1-A10; RUN;
DATA  data_prg.pcomp8_2c;
SET data_prg.pcomp8_2b;
maxz=MAX(OF z1-z10);
PROC PRINT ;
VAR A1-A10 z1-z10 maxz; 
RUN;  
Proc cluster data=data_prg.pcomp8_2b method=war pseudo;
Var Z1-Z3;
Run;
Proc tree horizontal spaces=2;
Run;
Proc cluster data=data_prg.pcomp8_2b method=war pseudo;
Var A1-A10;
Run;
Proc tree horizontal spaces=2;
Run;