This code has been tested and works based on the sample you provided. You can adapt it to a new dataset. data transdata; input date mmddyy10. dosage status $; datalines; 01/1/2011  20 Live 01/8/2011  10 Live 01/26/2011 15 Dead ; proc print data=transdata;run; data transdata; set transdata; duration=intck('day',date,intnx('month',date,0,'e'))+1; run; proc print data=transdata; format date date9.;run; data _null_; if 0 then set transdata nobs=n; call symputx('obsn',n); run; %put number of observations is &obsn.; data fulltrans(keep=date dosage status) ; array durations{&obsn} (7 18 6); do i=1 to &obsn;    do j=1 to durations{i};      set transdata point=i;      if j>1 then do;      date=intnx('day',date1,1);      date1=date;end;      else date1=date;      output;      retain date1;    end; end; stop; run; proc print data=fulltrans; format date date9.; run; ... View more