On Tue, 28 Jul 2009 13:19:57 -0500, gsg <[email protected]> wrote: >Does anyone know how to send a email via a rexx routine? Also, are there >any good LISTSERV specifically for rexx? > >TIA >
To start with the 2nd question: TSO-REXX. Subscribe at [email protected] IBM's SMTPNOTE sample is in REXX. It lives in hlq.SEZAINST(SMTPNOTE) . XMITIP is probably REXX, isn't it? For a very simple sample, how about this: /* REXX */ parse arg recpt msg smtp.1 = 'HELO' MVSVAR('SYSNAME') smtp.2 = 'MAIL FROM:<[email protected]>' smtp.3 = 'RCPT TO:<'recpt'>' smtp.4 = 'DATA' smtp.5 = 'FROM:"Mark Zelden" <[email protected]>' smtp.6 = 'TO:' recpt smtp.7 = 'Subject: SMTPREXX Email Message' smtp.8 = msg /* smtp.9 = 'QUIT' */ "ALLOC F(SMTPOUT) SYSOUT(B) WRITER(SMTP)" if RC <> 0 then do say 'Error allocating SYSOUT for SMTP WRITER' exit 12 end "EXECIO * DISKW SMTPOUT (STEM SMTP. FINIS" if RC <> 0 then do say 'Error writing SYSOUT for SMTP WRITER' "FREE F(SMTPOUT)" Exit 12 End "FREE F(SMTPOUT)" Calling the exec and passing parms left as an exercise to the reader. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[email protected] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
