Thanks, this is very helpful. I need to figure out how to assign each of the numbers (1,2,3) to each site such that all combinations are produced but I will play around with proc iml. ... View more

Thanks! That solved the error message at least although I was only able to change all of the lines using this method (I couldn't figure out how to change one to dashed, one to solid, etc.).   I found another way to modify the proc template, which is easy and worked!   data _null_; %let url = //support.sas.com/documentation/onlinedoc/stat/ex_code/131; infile "http:&url/templft.html" device=url; file 'macros.tmp'; retain pre 0; input; if index(_infile_, '</pre>') then pre = 0; if pre then put _infile_; if index(_infile_, '<pre>') then pre = 1; run; %inc 'macros.tmp' / nosource; %ProvideSurvivalMacros %let GraphOpts = attrpriority=none DataLinePatterns=(Solid ShortDash LongDash); %let StepOpts = lineattrs=(thickness=1.5); %let TitleText0 = METHOD " Survival Estimate"; %let TitleText1 = &titletext0 " for " STRATUMID; %let TitleText2 = &titletext0 "s"; %let yOptions = label="Probability of Seeking Care for Back Pain" shortlabel="Probability of Seeking Care for Back Pain" labelattrs=(size=9pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmin=0 viewmax=1 tickvaluelist=(0 .2 .4 .6 .8 1.0)); %let xOptions = shortlabel="Number of Years to Back Pain" offsetmin=.05 labelattrs=(size=10pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmax=MAXTIME tickvaluelist=XTICKVALS tickvaluefitpolicy=XTICKVALFITPOL); %CompileSurvivalTemplates ... View more

Similar with Tom 's code. data have; input scrssn drugname $ day1-day48; datalines ; 99999999 aspirin 0 0 0 0 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 1 1 2 2 1 1 1 1 1 1 1 1 1 3 3 0 0 0 99999999 beta 0 0 0 0 0 0 0 0 0 0 1 1 1 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 2 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ; run; proc transpose data=have out=temp; by scrssn drugname; var day:; run; data temp; set temp; flag=(col1 ge 2); run; data temp1; n=0; do until(last.flag); set temp; by scrssn drugname flag notsorted; n+1; end; _flag=flag; do until(last.flag); set temp; by scrssn drugname flag notsorted; if _flag=1 then do; if n gt 10 then do;date=col1;output;end; else do;date=flag;output;end; end; else do;date=col1;output;end; end; run; proc transpose data=temp1 out=want; by scrssn drugname; var date; id _name_; run; ... View more