求教，如何将年月日数据转换为年月数据

请教各位大神！！！如标题所示，现在有字符型变量date,形如2009-01-01，现在想转换为200901的形式（最好是数值形式，字符也可以），该如何编程？？？

data m;
input x yymmdd10.;
y=put(x,yymmd.);
z=compress(y,'-')*1;
format x yymmddd10.;
cards;
2009-01-01
;
proc print data=m;
run;

data _null_;
  a = '2009-01-01';
  b = put(input(a,yymmdd10.),yymmn6.);/*字符格式*/
  c = input(b,$6.);/*数值格式*/
  put a= b= c=;
run;