********************************************************
* PROC MEANS 5 Example						           *
* (C) Alan Elliott									   *
********************************************************;
DATA WT;
INPUT WEIGHT;
DATALINES;    
64 
71 
53 
67 
55 
58 
77 
57 
56 
51 
76 
68 
;
PROC MEANS NOPRINT DATA=WT;VAR WEIGHT;OUTPUT OUT=WTMEANS MEAN=WTMEAN STDDEV=WTSD;
RUN;
DATA WTDIFF;SET WT;
IF _N_=1 THEN SET WTMEANS;
DIFF=WEIGHT-WTMEAN;
Z=DIFF/WTSD; * CREATES STANDARDIZED SCORE (Z-SCORE);
RUN;
ODS RTF;
PROC PRINT DATA= WTDIFF;VAR WEIGHT DIFF Z;
RUN;
ODS RTF CLOSE;

*Bonus code -- get a zscore using PROC STANDARD; 

PROC STANDARD DATA=WT 
    MEAN=0 STD=1 OUT=ZSCORES; 
    VAR WEIGHT; 
RUN;
PROC PRINT DATA=ZSCORES;
RUN;