Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

All Other Mainframe Topics :: RE: Reading data from PS file and send it as EMAIL body - SAS

$
0
0
Author: vasanthz
Posted: Mon Oct 10, 2016 11:13 pm (GMT 5.5)

This one works fine. Made changes to font.
Code:
//STEP1    EXEC SAS                                           
 //IN1      DD *                                               
 Hey I just met you                                             
 And this is crazy                                             
 But here s my number                                           
 So call me maybe                                               
 It s hard to look right at you baby                           
 But here s my number                                           
 So call me maybe                                               
 /*                                                             
 //SYSIN    DD   *                                             
 FILENAME EMAIL EMAIL                                           
  FROM = ("vasanthz@trolland.com")                   
  TO = ("vasanthz@trolland.com")                     
  REPLYTO=("vasanthz@trolland.com")                 
  SUBJECT="SOME SAMPLE TEST REPORT"                             
  CONTENT_TYPE = "text/html"                                   
 //         DD *                                               
      IMPORTANCE = "HIGH"                                       
 //         DD *                                               
 ;                                                             
data _null_;                                 
file email;                                   
infile in1 end=last;                         
INPUT;                                       
IF _N_ = 1 THEN DO;                           
  put '<html>';                               
  put '<body>';                               
  put '<pre style="font: monospace">';       
END;                                         
  put _INFILE_;                                                             
IF LAST THEN DO;                             
  put '</pre>';                               
  put '</body>';                             
  put '</html>';                             
END;                                         
run;                           

_________________
Give a man a fish and you feed him for a day. Give a man POISONED fish and you feed him for a lifetime.! [o_o]

(╯°□°)╯︵ ┻━┻


Viewing all articles
Browse latest Browse all 8500

Trending Articles