zOs/REXX/EXMAIL
$#@
call dsnAlloc 'dd(mailIn) new ::f'
$<>
call pipeWriteAll
$>dd(mailIn)
$<=/mailIn/
sender=walter.keller@credit-suisse.com
type=TEXT/HTML
to=walter.keller@credit-suisse.com
subject=rexx mail''t html
TEXT=<HTML>
TEXT=<HEAD>
ATT=DD[ATT1]FILE[att1.html]
TESTINFO=Y
text=<title>mail title</title>
TEXT=</HEAD>
TEXT=<BODY>
TEXT=<TABLE STYLE="BORDER:SOLID;BORDER-WIDTH: THIN">
TEXT=<TR>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">ABLAUF</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">ART </TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">STATUS</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">LETZTER LAUF</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">LINK </TD>
TEXT=</TR>
TEXT=<TR>
TEXT=<TD STYLE="FONT-SIZE:12PX">RZ2/DBOF</TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">GBGR</TD>
TEXT=<TD ALIGN="CENTER" STYLE="FONT-SIZE:12PX">OK </TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">2015-03-19-06.15.16</TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">
TEXT=HTTP://CHW20025641/HOST/ZUEGELSCHUB/INDEX_ZUEGELSCHUB.HTM</TD>
TEXT=</TR>
TEXT=</TABLE>
TEXT=<p></p>
TEXT=</ul><li> %%JOBNAME%%(%%JOBID%%) %%JOBSTEP%% %%MAINPGM%%
TEXT=</li><li> %%PLEX%% %%JESNODE%% %%JESGLBL%% %%PLEX%%
TEXT=</li><li> von dd att1
textDD=ATT1
TEXT=</li><li> ende liste
TEXT=</li></ul>
INFO=Y
TEXT=</BODY>
TEXT=</HTML>
SEND=Y
$/mailIn/
$<>
call dsnAlloc 'dd(att1) new ::v4092'
$<>
call pipeWriteAll
$>dd(att1)
$<=/att1/
attacheement 1
<h1>header eins aus att1 rexx</h1>
und weiter aus <b>rexx</b>
jajaj
$/att1/
$<>
dsnOs3560 = 'PCL.U0000.P0.'sysVar(sysNode)'AKT.PERM.@008.LLB'
call readDD mailin, i., '*'
call tsoClose mailIn
say i.0 strip(i.1) strip(i.20)
call adrTSO "TLIB ADD DATASET('"dsnOs3560"') STEPLIB"
address LINKMVS 'OS3560'
say 'rc os3560' rc
if rc <> 0 then
call err 'call OS3560 failed Rc('rc')'
call adrTSO "TLIB delete DATASET('"dsnOs3560"') STEPLIB"
call tsoFree mailIn att1
$#out 20150602 16:39:44
$#out 20150602 16:25:40
$#out 20150602 16:24:15
*** run error ***
call OS3560 failed Rc(12)
$#out 20150602 16:23:29
$#out 20150602 16:23:21
$#out 20150602 16:21:44