Date: Wed, 22 Sep 2010 08:16:51 -0700
From: "Smith, Sean M" <sean.m.sm...@bankofamerica.com>
Subject: HealthChecker vs SMTP - 1 : 0
>SMTP and HealthChecker do not seem to want to get along. The
>HealthChecker HZSPRINT reports are LRECL 256 and SMTP is very snotty
>about something so wide. Perhaps it is simply that I am using IEBGENER
>to copy the email header data and append the report. Does anyone have
>sample JCL they can share to email a HZSPRINIT report?
>
>Sean Smith
>Bank of America
Hi Sean
I had the same problems, so in the end I wrote a rexx exec to append the report
to the SMTP header stuff:
We have a STC which is invoked at IPL time which writes the output of HZSPRINT
to a GDG.
Here is the JCL:
//HCEMAIL EXEC PGM=IRXJCL,PARM='HZSPRINT'
//SYSEXEC DD DISP=SHR,DSN=dataset where HZSPRINT rexx lives
//INFILE DD DISP=SHR,DSN=SYS9.HCHK.A02.REPORT(0) <== output from HZSPRINT
//SYSTSPRT DD SYSOUT=(B,SMTP)
Rexx exec :
/* REXX
+----------------------------------------------------------------+
| Outline....: Read and extract healthchecker exception report |
| email to mainframe support for analysis |
+----------------------------------------------------------------+
+----------------------------------------------------------------+
| Write Mail Header info |
+----------------------------------------------------------------+
*/
sysid = MVSVAR('SYSNAME')
zsysid = MVSVAR('SYMDEF','zsysname')
nodenam = MVSVAR('SYMDEF','jesnode')
Header:
say 'HELO ' nodenam
say 'MAIL FROM:<s...@z'sysid'.xxxxx.yyyyy.zzzz>'
say 'RCPT TO:<myname.surn...@email.address> '
say 'DATA '
say 'TO:<myname.surn...@email.address>'
say 'SUBJECT: Health Checker Report for ' sysid
say ' '
/*
+----------------------------------------------------------------+
| Get Health Checker report |
+----------------------------------------------------------------+
*/
"execio * diskr INFILE ( stem HCrep. finis )"
Process:
Say ' Health Checker Report for LPAR:' sysid
Say ' '
say ' Complete report is in dataset: SYS9.HCHK.'zsysid'.REPORT(0)'
Say ' '
say ' Please review and action as appropriate.'
Say ' '
do Cnt1 = 1 to HCrep.0
x = strip(HCrep.cnt1,'t')
len = length(x)
y = substr(x,2,len)
say y
end
/*
+----------------------------------------------------------------+
| complete data with a dot '.' |
+----------------------------------------------------------------+
*/
say '.'
exit
HTH
Stephen Hall
Mainframe Platform Manager
INSURANCE AUSTRALIA GROUP (IAG)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
