zOs/REXX/RZALL

$#@
call iiIni
sLi = dsn.source.cadb.cdbamdl
do ix=1 to words(m.ii_rz)
    rz = word(m.ii_rz, ix)
    say 'deleting from' rz
    call dsnDel  rz4'/dsn.cadb2.cs.exec', anapost chkstart utPun
$*( say 'copying to' rz
    call dsnCopy sLi, rz'/dsn.cadb2.'iirz2dsn(rz)'.P0.CDBAMDL',
              , MJBPMDL MJBPMDLD
$*) end