78%macro mp_aligndecimal(var,width=8);
81 %let tmpvar=%mf_getuniquename(prefix=aligndp);
82 length &tmpvar $&width;
83 if index(&var,
'.') then do;
84 &tmpvar=cats(scan(&var,1,
'.'));
85 &tmpvar=right(&tmpvar);
86 &var=&tmpvar!!
'.'!!cats(scan(&var,2,
'.'));
90 &tmpvar=right(&tmpvar);