%Macro Sendemail;
%do i=1 %to &n;
FILENAME mail EMAIL;
DATA _NULL_;
SET &&channel&i END=eof ;
FILE mail;
PUT '!EM_TO!' email1
PUT '!EM_SUBJECT!' 'New price information for ' ;
PUT "These are the fares as valid on &SYSDATE";
%PUT &&&channel&i;
PUT '!EM_SEND!' / '!EM_NEWMSG!';
IF eof THEN PUT '!EM_ABORT!';
run;
%end;
%mend sendemail;
%sendemail;