options ls = 80;
libname fu '.';
data tmp0;
	infile './aml.dat';
	input pair rstatus t1 t2  censor;
proc print;
data tmp1 (drop = t1 t2);
	set tmp0;
	array st[2] t1-t2;
	do treat=1 to 2;
		survt=st[treat];
		output;
	end;
data fu.aml;
	set tmp1;
/* all patients in placebo group had event */
	if treat = 1 then censor = 1;
proc print;
run;