%macro survci(ds,time,state,type);
proc phreg data=&ds noprint; model &time*&state(0)=;
   baseline out=plotdata survival=s u=u l=l/cltype=&type;
run;
axis2 label=(a=90 'Survival' );
proc gplot data=plotdata;
   plot s*time=1 u*time=2 l*time=2/ vaxis=axis2 overlay;
   symbol1 i=stepjl line=1; symbol2 i=stepjl line=2; run;
%mend;