SAS Survival code