zOs/JCL/ABUBCP

$#@
rzF = RZ1
rzT = RZX
msk = 'DSN.WOK.QMW*.**.'rzY
    lc = adrCsm('dslist system('rzF') dsnMask('msk')')
    do sx=1 to stemSize
        dsNew = overlay('TST',left(dsName.sx, length(dsName.sx)-4), 5)
        say dsName.sx '=>' dsNew
        call csmCopy rzF'/'dsName.sx, rzT'/'dsNew
        end
$#out                                              20140130 16:58:45