$#@
$@% csmCopyRZ dsn.source.cadb.cdbaMdl(mjbpmdl) $*+
dsn.cadb2 p0.cdbaMdl(mjbpmdl)
$proc $@/csmCopyRZ/
$arg fr t1 t2
call iiIni
do rx=1 to words(m.ii_rz)
rz = word(m.ii_rz, rx)
rzD = iiRz2Dsn(rz)
tt = rz'/'$t1'.'rzD'.'$t2
say 'copying csmCopy' $fr 'to' tt
call csmCopy $fr, tt
end
$/csmCopyRZ/