proc transpose blanks

[Ayooo1]

This might be a simple question but I would to replace the blank with a zero, how can I do that? The picture is the data after transposed.

data Merged_CP (keep= DoseC_P EXDSTXT SEX);
set listing2_1;
by EXDSTXT;
retain COUNT PERCENT EXDSTXT SEX;
length DoseC_P $20;
DoseC_P= strip(put(COUNT,comma12.)||''|| put(-PERCENT/100,percent7.1));
run;
proc sort data=Merged_CP;
by SEX;
run;
proc transpose data=Merged_CP out=EXDM (drop=_NAME_);
by SEX;
id EXDSTXT;
var DoseC_P;
run;
proc print data=EXDM;
run;

[PeterClemmensen]

Obviously, there are way to do this. 

However, if your end goal is to simply create a frequency table with percentages, then there are better ways to go.