zOs/TX/PER21CSM

//A540769Y JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0,SYSTEM=S15                                           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'.P00000.PUN'   ,   $pr'.P00000.PUN'
$@do px=36 to 57 $@[
     $=py=- right($px, 5, 0)
     call csmCopy 'RZ2/'$pr'.P'$py'.UNL'   ,   $pr'.P'$py'.UNL'
     $]