data test;
   format date yymmdd10. date1 yymmd7.;
   input date yymmdd10.;
   date1 = date;
datalines;
2006-01-19
2006-01-20
2006-02-01
;
run;

这个不起作用呀 还有别的方法没  谢谢啦

data test;
    format date yymmdd10. date1 yymmd7.;
    format date2 $7.;
   input date yymmdd10.;
   date1 = date;
   date2 = substr(put(date,yymmdd10.),1,7);
datalines;
2006-01-19
2006-01-20
2006-02-01
;
proc print data=test; title 'Test date format: yyyy-mm '; run;

trdmnt是不是字符型的啊？这个试试。
data a;
set cq.edate1;
keep trdmnt yymm;
yymm=substr(trdmnt,1,7);
run;

data test;
   input date $10.;
datalines;
2006-01-19
2006-01-20
2006-02-01
;
run;
data a;
set test;
new2=prxchange('s/(\d{4}-\d{2})-(\d{2})/$1/',-1,date);
run;