zOs/JCL/RENAME

//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WS2'
//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 *
$#@
$;
$<.filelist('DSN.CA.EC*', 'r')
$@for fi $@[
    nm = strip($fi)
    cx = pos('.', nm)
    cx = 7
    rn = left(nm, cx)'OLD'substr(nm,cx)
    rn = 'DSN.CA.RZ4OLD'substr(nm, cx)
    say nm '->' rn
  /*rl = listDsi("'"nm"' recall")
    if rL <> 0 then
        say 'listDsi' nm 'rc' rL 'reason' sysReason,
                             sysMsgLvl1 sysMsgLvl2 */
    call adrTso "rename '"nm"' '"rn"'"
$]
$#end