inputn and putn to convert between date and number

%let num2date=%sysfunc(putn(10238, date9.));

%put &num2date;


%let date=%sysfunc(inputn(31jan2013, date9.));

%put &date;