SAS(R) 9.1.3 Companion for z/OS

144 Example: Directing Output as an E-Mail Attachment with Universal Printing Chapter 6
/* sort data set NEWSHOES in order by region */
/* ----------------------------------------- */
proc sort data=newshoes;
by Region Subsidiary Product;
run;
quit;
/* -------------------------------------------- */
/* print a report of shoe sales for each Region */
/* -------------------------------------------- */
goptions reset=footnote;
option nobyline;
title ’Sales Report for #byval(Region)’;
proc report data=newshoes nowindows;
by Region;
column Region Subsidiary Product Sales;
define Region / noprint group;
define Subsidiary / display group;
define Product / display group;
define Sales / display sum format=dollar12.;
compute after Region;
Subsidiary=’Total’;
endcomp;
break after Region / summarize style=rowheader page;
run;
/* ------------------------------------------------------ */
/* Close the HTML destination and open the listing output */
/* ------------------------------------------------------ */
ods html close;
ods listing;
/* ---------------- */
/* Email the report */
/* -----------------*/
filename email email ’barney@bedrock.com’
subject="Shoe report 2"
type="text/plain"
attach=("./public_html/shoe_report.html" content_type=’text/html’
"./public_html/shoes1_regsales.html" content_type=’text/html’
"./public_html/shoes1.gif" content_type=’image/gif’) ;
data _null_;
file email;
put ’Here is the latest Shoe sales report’;
run;
Example: Directing Output as an E-Mail Attachment with Universal
Printing
Follow these steps to send procedure output as an attachment to an e-mail message.
1 Define a Universal printer with a device type of ’EMAIL’.
2 Establish a printing destination with the PRINTERPATH= option:
options printerpath=’emailjoe’;