zOs/REXX/QZT09X2

$#@
say 'start' $rz'/'$dbSys 'in rz4/dsn.abub.a.skels(qzt09X1)'
say 'p0    ='$p0
say 'pref  ='$pref
say 'd     ='$d
say 'iOK   ='$iOK
iPre = left($iOK, lastPos('.', $iOK))
say 'iPre  ='iPre
oStats = word($oStats, 1)
cx = $cx
m.cx.cuLink = oStats
say 'cx='cx 'cx.cuLink='m.cx.cuLink
nAtt = '::v700' subWord($oStats, 3)
say 'oStats='$oStats '==>' oStats
oList = word($oList, 1)
say 'oList ='$oList '==>' oList
call tsoFree word(dsnAlloc(oStats nAtt), 2) $** create correct atts
call csmCopy iPre'XSTATS', oStats
call tsoFree word(dsnAlloc(oList nAtt), 2) $** create with correct atts
call csmCopy iPre'XLIST', oList
if 0 then $@[  $** test, mail nur an Walter
   call mailHead qq, 'status xDocs' $rz'/'$dbSys ,
           , 'walter.keller@credit-suisse.com' , m.my.mailId
$] else if $dbSys == 'DBOF' then $@[
   call mailHead qq, 'status XC/XR Docs' $rz'/'$dbSys  ,
           , 'nicole.melliniweber@credit-suisse.com'   , m.my.mailId
   call mAdd qq, 'to=armin.breyer@credit-suisse.com'   ,
           , 'to=arturo.quero@credit-suisse.com'       ,
           , 'cc=raymond.stofer@credit-suisse.com'     ,
           , 'cc=marc.streit.2@credit-suisse.com'      ,
           , 'cc=walter.keller@credit-suisse.com'
$] else if $dbSys == 'DVBP' then $@[
   call mailHead qq, 'status Elar Docs' $rz'/'$dbSys   ,
           , 'ashish.gupta.3@credit-suisse.com' , m.my.mailId
   call mAdd qq, 'to=willy.heller@credit-suisse.com'   ,
           , 'to=rama.k.prayaga@credit-suisse.com'     ,
           , 'cc=petr.matulik@credit-suisse.com'       ,
           , 'cc=tal.friede@credit-suisse.com'         ,
           , 'cc=roland.wermelinger@credit-suisse.com' ,
           , 'cc=marc.streit.2@credit-suisse.com'      ,
           , 'cc=walter.keller@credit-suisse.com'
$] else $@[
   call myMailHead qq, 'status xDocs' $rz'/'$dbSys
$]
call mAdd qq, 'TEXT=<h1>status xDocs' $rz'/'$dbSys m.my.resTst'</h1>' ,
           , 'att=DSN['oStats']FILE[stats.txt]',
           , 'att=DSN['oList']FILE[list.txt]' ,
           , 'TEXT=<ul><li>summary: stats.txt' ,
             '<a href="https://web-pd-sec.csintra.net/MVSDS/%27' ,
              || oStats'%27">RZ4/'oStats'</a></li>' ,
           , 'TEXT=<li>partition list: list.txt' ,
             '<a href="https://web-pd-sec.csintra.net/MVSDS/%27' ,
              || oList'%27">RZ4/'oList'</a></li></ul>'
call readDsn oStats, i.
call mAdd qq, 'TEXT=<pre><span' ,
            'style="background-color:greenyellow;font-weight:bolder;">',
            || htmlEsc(strip(left(i.1, 100), 't')),
            '</span>'
do ix=2 to i.0
    call mAdd qq, 'TEXT='htmlEsc(strip(left(i.ix, 100), 't'))
    end
call mAdd qq, 'TEXT=</pre>'
call mailSend qq
say 'end ok' $rz'/'$dbSys 'in rz4/dsn.abub.a.skels(qzt09X1)'