data ds;
infile datalines;
input EMP_ID EMP_NAME$ GENDER$ BIRTHDAY COMPANY$ DESIGN$ LOC $ MAIL_ID$ 1 -26;
cards;
100 venkata male 27/11/2022 sama director pune ravindranadh2125@gmail.com
101 murali male 28/11/2022 sama teamlead pune ravindranadh2125@gmail.com
102 prabhkar male 27/11/2022 sama manager pune ravindranadh2125@gmail.com
103 prasanna female 27/11/2022 infotech juniordev hyd ravindranadh2125@gmail.com
104 ramya female 27/11/2022 infotech juniordev chennai ravindranadh2125@gmail.com
105 mounika female 28/11/2022 google juniordev hyd ravindranadh2125@gmail.com
106 kiran male 29/11/2022 google juniordev hyd ravindranadh2125@gmail.com
107 nikhil male 28/11/2022 cyient juniordev bang ravindranadh2125@gmail.com
108 manohar male 28/11/2022 infosis juniordev bang ravindranadh2125@gmail.com
109 ravindra male 27/11/2022 infosis juniordev hyd ravindranadh2125@gmail.com
110 pavan male 27/11/2022 sama juniordev pune ravindranadh2125@gmail.com
111 ramani male 27/11/2022 eli llily juniordev vizag ravindranadh2125@gmail.com
;
run;
proc import datafile="/home/u61914035/import files/birthdayXL.xlsx"
dbms=xlsx
out=ds
replace;
run;
data staff;
set ds;
informat BIRTHDAY ddmmyy10.;
format BIRTHDAY date9.;
where BIRTHDAY ne .;
todays=put(today(),date9.);
run;
data bday_today;
set staff;
bday=substr(put(BIRTHDAY,date9.),1,5);
tday=upcase(substr(todays,1,5));
if bday=tday;
run;
proc sql;
select count(distinct MAIL_ID) into :emailcnt from bday_today;
%let emailcnt = %cmpres(&emailcnt);
select distinct MAIL_ID into :email1 - :email&emailcnt from bday_today;
quit;
%macro mail;
%if &emailcnt gt 0 %then
%do i = 1 %to &emailcnt;
filename Myemail email
from = "ravindranadh044@gmail.com"
subject = "!!! BIRTHDAY ALERT !!!"
attach=("/home/u61914035/import files/0d01cc9cebe2e8de8b60d8fbf6ee47bc.gif")
to = "&&email&i"
type = "text/html";
data null;
file Myemail;
set bday_today(where = (MAIL_ID="&&email&i"));
put 'HAPPY BIRTHDAY' ;
RUN;
%end;
%mend;
%mail;
