zOs/TX/PER21CS2

//A540769Z JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0,SYSTEM=S14                                           00040000
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$=pr=A540769.tmpUl.per21
call csmCopy 'RZ2/'$pr'.P00036.UNL'   ,   $pr'.P00036.UNL'
call csmCopy 'RZ2/'$pr'.P00037.UNL'   ,   $pr'.P00037.UNL'
call csmCopy 'RZ2/'$pr'.P00038.UNL'   ,   $pr'.P00038.UNL'
call csmCopy 'RZ2/'$pr'.P00040.UNL'   ,   $pr'.P00040.UNL'
call csmCopy 'RZ2/'$pr'.P00041.UNL'   ,   $pr'.P00041.UNL'