zOs/JCL/CSMCOPY

//A540769V JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WST'
//SYSPROC   DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$#@
$<=[  $*(
DVBP.XBFBE002.SFBE013H.P00004.D160817.PUN
DVBP.XBFBE002.SFBE013H.P00004.D160817.REC
DVBP.XBFBE002.SFBE0131.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0131.P00004.D160817.REC
DVBP.XBFBE002.SFBE0132.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0132.P00004.D160817.REC
DVBP.XBFBE002.SFBE0133.P00004.D160817.PUN  $*)
DVBP.XBFBE002.SFBE0133.P00004.D160817.REC
DVBP.XBFBE002.SFBE0134.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0134.P00004.D160817.REC
$]
$for fi $@[
    fi = strip($fi)
    say fi
    call csmCopy 'rz2/'fi, 'rr2/'fi
    $]
$*(
$<.filelist('A540769.WK', 'r')
$@for fi $@[
    nm = strip($fi)
    cx = pos('.', nm)
    rn = left(nm, cx)'MOVEDRZ4'substr(nm,cx)
    say nm '->' rn
    rl = listDsi("'"nm"' recall")
    if rL <> 0 then
        say 'listDsi' nm 'rc' rL 'reason' sysReason,
                             sysMsgLvl1 sysMsgLvl2
    say  csmCopy 'RZ1/'nm, 'RZ4/'nm
    say  adrTso "rename '"nm"' '"rn"'"
$]
$*)
$#end