zOs/JCL/CSMCOPY3

$#@
$>.fEdit()
$@do jx=2 to 6 $@=[
//A54076F$jx  JOB (CP00,KE50),TIME=9999
//*MAIN CLASS=LOG
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WSH'
//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 *
$$ $'$#@'
$$ $'$=jx='$jx
$@#[
    say 'jx' $jx
    say fileList 'SMF.RZ1.P0.DB2.INTVL.S1'$jx'A.D11025'  'r'
$@$.{fileList('SMF.RZ1.P0.DB2.INTVL.S1'$-$jx'A.D11025' ,'r')}
$|     $@for v $@[
    dsn = strip($v)
    say dsn
    call csmCopy 'RZ1/'dsn, 'RZ0/'dsn
    $]
$]
$]
$#out                                              20110128 15:56:48
$#out                                              20110128 15:55:06
$#out                                              20110128 15:53:05
$#out                                              20110128 15:49:11
$#out                                              20110128 15:47:55