Sending Email to particular user

[sas_Forum]

data Test;
Input emilid$ sub$ cont$;
cards;
[email protected]  Rwaw1  Done
[email protected]  Raw2  NOT
[email protected]  Raw3  what
run;

%MACRO testemail(pEmailid,pSubject,pContents);
  FILENAME mymail EMAIL "NULL"
  TO=("&pEmailid")
  SUBJECT="&pSubject";
   data _null_;
    FILE mymail;
       PUT "&pContents";
     
run;
%MEND;

proc sql;
select count(*) into :ph2cnt from test;
quit;

proc sql;
select SUBJECT into:sub  from test;
select BODY into:cont   from test;
select EMAIL_ID into:emilid from test;
quit;

%tempemail(EMAIL_ID,SUBJECT,BODY);

This was working and sending and taking only  first row

But what i want is to send this to the correspoding user based on that row.

Ex:
subject Raw1 and content Done should go to [email protected] 
subject Raw2 and content NOT should go to [email protected] 
subject Raw3 and content what should go to [email protected] 

Input emilid$ sub$ cont$;
cards;
[email protected]  Rwaw1  Done
[email protected]  Raw2  NOT
[email protected]  Raw3  what
run;

[Tom]

A couple of points about using SQL to generate macro variables from data.

1) You can select multiple fields (variables) in one query.  Separate the fields with commas and the list the target macro variables after the INTO also separated by commas. Note that the : is required for each target variable.

select SUBJECT

     , BODY

     , EMAIL_ID

  into :sub

      , :cont

      , emailid

  from test

;

2) You can select multiple rows (observations) in one query by adding the SEPARATED BY clause after the target macro variable name.

select SUBJECT

     , BODY

     , EMAIL_ID

  into :sub separated by '|'

     , :cont separated by '|'

     , emailid separated by '|'

  from test

;

But for you case why not just use the data step to generate the code. For example by using CALL EXECUTE to generating calls to your email macro:

data _null_;

   set list;

   call execute( '%testemail(' || catx(',',emailid,subj,cont) || ')' );

run;