DATA baseball;
      SET sashelp.baseball;
      IF logsalary > 6.5 THEN flag = 1;
      ELSE flag = 0;
 RUN;

 PROC STDIZE
      DATA = BASEBALL
      METHOD = RANGE
      OUT = BASEBALL_S
      ;
      VAR CR:;
 RUN;

 PROC LOGISTIC
 DATA = baseball_s  OUTEST=result;
       MODEL  FLAG (event='1')= CR: /expb stb
 SELECTION=none rsquare OUTROC=roc ;
 RUN;