Does this do what you need? data want; format b z9.; a=974620.49; b=input(compress(put(a,best.),".",""),9.); run; proc print data=want;run; /********************************************/ I went back and played with different best lengths. g is a rounded amount. data want; format b d e f g z9.; a=974620.49; b=input(compress(put(a,best.),".",""),9.); d=input(compress(put(a,best10.),".",""),9.); e=input(compress(put(a,best9.),".",""),9.); f=input(compress(put(a,best11.),".",""),9.); g=input(compress(put(a,best8.),".",""),9.); run; proc print data=want;run; /*** Obs b d e f g a 1 000974620 097462049 097462049 009746204 009746205 974620.49 ***/ Message was edited by: James Willis
... View more