zOs/REXX/VSAMRENA

//* rename vsam
//STOSTA  EXEC PGM=IKJEFT01,DYNAMNBR=100
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD *
DSN SYSTEM(DBOF)
 -STOP  DATABASE(SN01A1P) SPACE(A100H)
 -START DATABASE(SN01A1P) SPACE(A100H)
END
//*
//RENAME  EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
   ALTER      DBOF.DSNDBC.SN01A1P.A100H.J0001.A001 -
      NEWNAME(DBOF.DSNDBC.SN01A1P.A100H.DEFKT.A001)

   ALTER      DBOF.DSNDBD.SN01A1P.A100H.J0001.A001 -
      NEWNAME(DBOF.DSNDBD.SN01A1P.A100H.DEFKT.A001)
//*