
Appendix A. Supporting information 471
Return intExitC
/**********************************************************************/
/* Build the contents of the e-mail message... */
/**********************************************************************/
BuildEMsg:
SMTPOut.1 = ‘helo ‘HostName
SMTPOut.2 = ‘mail from:<‘userID()||’@’HostName’>’
SMTPOut.3 = ‘rcpt to:<‘strEMail’@’HostName’>’
SMTPOut.4 = ‘data’
date = Date(“N”)” “Time()” LCL”
date = Substr(Date,1,7)Substr(Date,10)
SMTPOut.5 = ‘Date: ‘date
SMTPOut.6 = ‘From: ‘UserID()||’@’HostName
SMTPOut.7 = ‘To: “‘strPName’”’
SMTPOut.8 = ‘Subject: Abend in job ‘Env.Job_Name
SMTPOut.9