How to create a Picture Format ( is there better way )

Hello all,

In the final table I need all the 0's to be lined to left,I tried hard
coding spaces it is not working , I know it can be done using Picture format
but not sure how to move my final Zeros to left. Here small code how I am
trying to do ??

Is there a better to spaces in 95% ??

Data Final;
Retain Page Res_j Count Row Txt Sec Counter Inc _Label_ Text B_375 B_500
B_999;
Set All;
if Text = " Lower 95% CI Limit" and Count In(4,5,6)Then do ;
if Index(B_375,' 0' ) Then B_375 = ' ';
if Index(B_375, ' 0 ( 0)' ) Then B_375 = ' ';
End ;
if Text = " Upper 95% CI Limit" and Count In(4,5,6) Then do ;
if Index(B_375,' 0' ) Then B_375 = ' ';
if Index(B_375, ' 0 ( 0)' ) Then B_375 = ' ';
End ;
if Count In(4,5,6) and Txt = '2' Then Do;
If B_375 = ' ' Then B_375 = ' 0 ';
If Index(B_999,'0 ( 0)') Then B_999 = ' 0 ';
End;
Run;
*This Logic is not working *
Data Final;
set Final ;
if Index( B_375,'0' ) Then B_375 =Put(B_375 , 5. -l) ;
Run;
proc report data=Final split='|' headskip headline missing spacing=1;
columns Page Text (' Lum(mg/m^2)| __' B_375 B_500) B_999 ;

define B_375 / display "375 | (N=%cmpres(&C1.))" width=18
Right style(column)={asis=on};
run;

I had to Right align in Proc Report otherwise the header part is moving Left
and Remaining part is right Justified

thanks
SL