data a; input date; cards; 200401 200402 ; run; data work.b; set a; year=substr(put(left(date),$8.),1,4); month=substr(put(left(date),$8.),5,2); day='01'; time=MDY(month,day,year); informat time yymmdd10.; format time yymmdd10.; drop year month day; run;