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