Hi,   I'm trying to create multiple variables based on conditions with date as their suffix. The following code only generate one variable from the end date. How do I make it generate multiple variables based on dates in between the end and start date, and keep them on master2?   %macro dis_status(startdate,enddate); %let sasstart = %sysfunc(inputn(%substr(&startdate,3,6),yymmdd6.)); %put &sasstart; %let sasend = %sysfunc(inputn(%substr(&enddate,3,6),yymmdd6.)); %put &sasend; %do sasdate=&sasstart %to &sasend; %let date= %sysfunc(putn(&sasdate,yymmdd6.)); %put &date; data master2; set master1; if code22_&date. in ('1','2','3','4') then status22_&date. = "G "; else if CODE22_&date. in ('5','6') then status22_&date. = "IE"; else if CODE22_&date. in ('7','8') then status_&date. = "NR"; else CODE22 in ('10,'11') then status_&date. = "UE"; run; %end; %mend; %dis_status(20220608,20221019); Thanks! Add Tags     ... View more

Hi, I'm trying to create a variable, days, that stores the amount of days from the minimum date extracted from the date variable on my dataset. I stored the min date to a macro variable, min_dt , and tried to use it in intck to calculate the number of days in comparing to the values in final_date:   proc sql; select min(final_date) format=MMDDYY10. into :min_dt from master1; quit; %put &min_dt; /*min_dt is set to 04/11/2022*/ data master1_1; set master1; days=intck('day', &min_dt, final_date); run; Somehow, I'm not getting the desired days. The output looks like this: final_date days 4/11/2022 22746 4/11/2022 22746 4/26/2022 22761 4/26/2022 22761 4/26/2022 22761 4/26/2022 22761 4/26/2022 22761 4/27/2022 22762 Final_date is in  MMDDYY10   Anyone knows what the problem is? ... View more

Hi, I'm using the following code to send an email when an SAS session finishes successfully or fails midway. For some reason, I never receive the emails.  ${sasroot}/sas -autoexec $autoexec -memsize 8G -sortsize 4G -cpucount 4 \ -sysin $sascoderoot/$progname.sas \ -log $projlog/${progname}_${logtimestamp}.log \ -print $projout/${progname}_${logtimestamp}_${sector}.lst \ -noterminal -nodms -errorabend; rc=$? echo $? # For SAS: 0=ok, 1=warn, >1=error. if [ $rc -gt 1 ]; then subject="$sector $jobdesc process was unsuccessful" msg="$sascoderoot/$progname.sas sector $sector had errors (SAS rc=$rc). Please Review the log ($projlog/${progname}_${logtimestamp}.log). Please do not reply to sender." echo -e "$msg" | mail -s "$subject" -r "$sender" "$failemail" exit $rc else subject="$sector $jobdesc process was successful" msg="$sascoderoot/$progname.sas $sector sector ran successfully. Please do not reply to sender." echo -e "$msg" | mail -s "$subject" -r "$sender" "$supportemail" autoexe, sysin, log and lst are all successfully executed. `$sender`, `$failemail` and ` $supportemail` are all defined. What could be the possible cause? ... View more

Hi, I have a dataset that I need to transpose by a specific design that involves substring. The original dataset: ID NT1 NT2 NT3 NT4 1 NOTES 12:13:44 03-16-2018  CODE: ABC AML NOTES 09:13:11 03-12-2018  CODE: OPI TEST 2 NOTES 04:25:09 01-04-2018 CODE: FDS IMD NOTES 03:25:10  01-09-2018 CODE: FGH TEST 3 NOTES 12:22:49 11-12-2018 CODE: DGH TEST NOTES 08:02:49 11-11-2018 CODE: LKO AML 4 NOTES 22:02:21 01-14-2018 CODE: MKL TEST NOTES 07:02:21 01-10-2018 CODE: LOP IMD 5 NOTES 09:01:36 01-23-2018 CODE:  HJK TEST NOTES 09:01:56 01-23-2018 CODE: UIY TEST   Transpose by ID to split out time , date, code and notes: ID time date code notes 1  12:13:44   03-16-2018 ABC AML 1  09:13:11   03-12-2018 OPI TEST 2  04:25:09   01-04-2018 FDS IMD 2  03:25:10   01-09-2018 FGH TEST 3  12:22:49   11-12-2018 DGH TEST 3  08:02:49   11-11-2018 LKO AML 4  22:02:21   01-14-2018 MKL TEST 4  07:02:21   01-10-2018 LOP IMD 5  09:01:36   01-23-2018 HJK TEST 5  09:01:56   01-23-2018 UIY TEST   After transposing, ID will have multiple levels based on NT variables. The code I have so far does not yield the desirable output: data note11; length note0 $50; set note10; array t{*} nt:;; do _i = 1 to dim(t); /*make sure notes are not blank*/ if not missing(t[_i]) then note0 = catx('/',note0,vname(t(_i))); /*timestamp, date, code*/ if find(upcase(t[_i]),"NOTES") then do; timestamp=substr(left(nt0), index(left(nt0), 'NOTES')+5, 9); date=substr(left(nt0), 15, 10); code = substr(left(nt0), index(left(nt0), 'CODE:')+5); end; end; drop _i; run; Thank you for any help!         ... View more