自己顶一下，例子的数据输入可以：
Data a;
  input company $ date $;
  datalines;
1001 200509
1001 200603
1016 200603
1016 200606
1016 200609
1016 200612
;
run;
日期的调整 可以用：
data b;
set a;
date1=input(compress(date),yymmn6.);
date2=date1;
format date1 yymmn6.;
run;

上面的例子中sales忘了写了：
Data a;
  input company date sales;
  datalines;
1001 200509 20
1001 200603 30
1016 200603 451
1016 200606 521
1016 200609 358
1016 200612 650  
;
run;
data b;
set a;
date1=input(compress(date),yymmn6.);
date2=date1;
format date1 yymmn6.;
run;

can anyone give me any comment? i appreciate your concern.

一个笨办法，我觉得可以一个data步搞定，容我再想想

一个data步啦，可是最后要多个排序，睡觉去了，哪位高手改改，可以让sales直接赋值给循环最后1条，上面循环多做一次就好了，也就不要排序了
明天来看结果......