zOs/JCL/CSMCOPQ

//A540769D JOB (CP00,KE50),'DB2 CSM COPY',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WSH3'
//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 *
$#@
$*(
DSN.RDBOF.SN010676.SN01A1P.A100A.APUN
DSN.RDBOF.SN010676.SN01A1P.A100A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A100H.APUN
DSN.RDBOF.SN010676.SN01A1P.A100H.AR00000
DSN.RDBOF.SN010676.SN01A1P.A167A.APUN
DSN.RDBOF.SN010676.SN01A1P.A167A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A202A.APUN
DSN.RDBOF.SN010676.SN01A1P.A202A.AR00000
$*)
$<#[
DSN.RDBOF.SN010676.SN01A1P.A314A.APUN
DSN.RDBOF.SN010676.SN01A1P.A314A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A314H.APUN
DSN.RDBOF.SN010676.SN01A1P.A314H.AR00000
$]
$@for fi $@[
    nm = strip($fi)
    nn = overlay('XX', nm, 11)
    say nm  '==>' nn
    call csmCopy 'RQ2/'nm, 'RR2/'nn
$]
$#end