zOs/TX/WK600TRN

//A540769W  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 *
$#@
$******     transfer unload files with csm from rz1 to rr2
$<#/dsn/
   A540769.RECUN.DGDB9998.A600A190.P0000
   A540769.RECUN.DGDB9998.A600A000.P0000
   A540769.RECUN.DGDB9998.A600A001.P0000
   A540769.RECUN.DGDB9998.A600A002.P0000
   A540769.RECUN.DGDB9998.A600A003.P0000
   A540769.RECUN.DGDB9998.A600A004.P0000
   A540769.RECUN.DGDB9998.A600A005.P0000
   A540769.RECUN.DGDB9998.A600A006.P0000
   A540769.RECUN.DGDB9998.A600A007.P0000
   A540769.RECUN.DGDB9998.A600A008.P0000
   A540769.RECUN.DGDB9998.A600A009.P0000
   A540769.RECUN.DGDB9998.A600A010.P0000
   A540769.RECUN.DGDB9998.A600A020.P0000
   A540769.RECUN.DGDB9998.A600A050.P0000
   A540769.RECUN.DGDB9998.A600A060.P0000
$/dsn/ $@for v $@[
    pre = strip($v)
    say pre
    suf = '.UN2'
    do i=1 to 8
        dsn = pre || i || suf
        call csmCopy 'RZ1/'dsn, 'RZ2/'dsn
        end
    $]