我抛砖引玉，用个笨办法：
data a;
        id=1;time=mdy(1,1,2015);months=4;output;
        id=2;time=mdy(2,4,2015);months=5;output;
        id=3;time=mdy(7,7,2015);months=6;output;
        format time yymmdd10.;
run;

data b;
        set a;
        do i=1 to months;
                if month(time)+i<=12 then time1=mdy(month(time)+i,day(time),year(time));
                else time1=mdy(month(time)+i-12,day(time),year(time)+1);
                output;
        end;
        format time1 yymmdd10.;
run;
proc sort data=b;
        by id time months;
run;
proc transpose data=b out=c prefix=t;
        by id time months;
        var time1;
run;

假设你的档案命名为a
且month 以及是日期格式
就用下面这个方法
array也许可以 但是我不熟

%macro a;
data a;
   set a;
   %do i=1 %to 100;
       t&i=INTNX('MONTH',time,&i,'same');
         format t&i yymmddn8.;
       if &i>month then t&i=.;
   %end;
run;
%mend;
%a;