data have; infile cards missover delimiter=',' ; input id $1. (date1-date3)( :$4.) dosage1 dosage2 dosage3; cards; 1, 1/2,  1/5,  ,      10, 20, . 2, 1/10, ,   ,       30, .,  . 3, 1/2,  1/5, 1/31, 10, 20, 30 4   ; run; data want(keep=id cum: );   set have;    array ds(31);    array cum_dose(31);   array dates(*) date:;   array dosages(*) dosage:;   do i=1 to 31;     ds(i)=0 ;     cum_dose(i)=0;   end;   do i=1 to dim(dates);   j=input(scan(dates(i),2),2.);   if j then ds(J)=dosages(i);     end;   cum_dose(1)=ds(1);   do i=2 to 31;      cum_dose(i)=cum_dose(i-1)+ds(i);   end; run; ... View more

proc sort data=have; by ps use; run; data  single dup; by ps use; if first.use and last.use then output single;     else output dup; proc sort data= dup  nodupkey; by ps use; data dup;     set dup; use='Y'; run; data want;     set single dup; run; ... View more

proc sort data=have out=want nodupkey;   by ps use; run; ... View more

another way: data have;   informat name $30.;   input name &;   cards; Sammy (NL) Don (DP) Greg (OL) Fred Donalson (DE) St. George B (BW) ; data want;     set have;   name=substr(name,1,find(name,'(')-1); run; proc print; run; ... View more

Hi Art, How do you find the post that posted long time ago? Thanks! ... View more

data have;   informat id $3.;   informat visit_date mmddyy10.;   format visit_date mmddyy10.;   input id    visit_date dose;   cards; 001     1/1/2011 1 001      3/20/2011 2 001      4/15/2011 3 002      8/1/2011 4 002      9/2/2011 5 003      1/23/2011 6 003     2/2/2011 7 003     2/15/2011 8 003    3/8/2011 9 003    3/15/2011 10 003     3/28/2011 11 003     3/29/2011 12 003    3/31/2011 13 ; run; proc transpose data = have out = want1 prefix = visit;   by id;   var visit_date; proc transpose data = have out = want2 prefix = dose;   by id;   var dose; run; data want(drop=_name_);   merge want1 want2;   by id; run; /* order variables in the dataset */ proc sql ; select name into : name separated by ' ' from dictionary.columns     where libname='WORK' and memname='WANT' and lowcase(name) ne 'id'      order by input(substr(name,anydigit(name)),best8.), substr(name,1,anydigit(name)-1) desc; quit; data want;   retain id &name;   set want; run; ... View more