The general formula of R2 is 1 - uss(residual)/css(Y) .
But if there is only one independent variable(a.k.a x variable), I think R2 =(Pearson correlation )^2
proc reg data=sashelp.class plot=none;
model weight=age height;
output out=want p=p r=r;
quit;
proc sql;
select 1-uss(r)/css(weight) as R_square from want;
quit;
