Thanks Stephen, I appreciate the reality check. I fought my way through it far enough yesterday to realize that SMTP has a documented restriction for the dataset of an LRECL of 243 or less (although it will take up to 250). I used an old friend IEBGENER to truncate the file from FBA 256 to FB 250 and then sent it via SMTPNOTE. Somewhere along the way the trailing spaces were removed so the actual email is very readable.
So I wonder, in all the documentation I have read about HealthChecker I see suggestions for automation to email the exception reports but from what I can tell, without tweaking, the reports cannot be sent. Curious to see what IBM would say about the added complexity built into this process. Sean Smith Operating Systems Support Bank of America -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Stephen Hall Sent: Wednesday, September 22, 2010 10:36 PM To: IBM-MAIN@bama.ua.edu Subject: Re: HealthChecker vs SMTP - 1 : 0 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 ---------------------------------------------------------------------- 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
