Proc means data=ps_data;
Var ps_weight;
Output out=m mean=mn_wt;
Run;

Data ps_data;
If _n_=1 then set m;
Retain mn_wt;
Set ps_data;
st_ps_wt = ps_weight/mn_wt;
Run;