//RENAMEU1 JOB (,0100),CLASS=R,MSGCLASS=R //* //* //* CHANGE KCDXX TO THE SOURCE HI-LEVEL //* CHANGE KCDYY TO THE TARGET HI-LEVEL //* //* AFTER RUNNING THIS JOB THE SYSOPS JOBS TO //* DEFINE HILEVELS AND MODEL DCB'S STILL NEED //* TO BE SUBMITTED AND SOUPIN PARAMETERS UPDATED //* //* JOBLIB DD DSN=KCD00.LIB.PROD.LOAD,DISP=SHR //ALTERTD EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER KCI08.DMNSNDSK.CIKMSTR - NEWNAME(KCI08.CIKMSTR.YYYY1999.MM07.DD04) ALTER KCI08.DMNSNDSK.CIKMSTR.DATA - NEWNAME(KCI08.CIKMSTR.YYYY1999.MM07.DD04.DATA) ALTER KCI08.DMNSNDSK.CIKMSTR.INDEX - NEWNAME(KCI08.CIKMSTR.YYYY1999.MM07.DD04.INDEX) ALTER KCI08.DMNSNDSK.CIKAREL - NEWNAME(KCI08.CIKAREL.YYYY1999.MM07.DD04) ALTER KCI08.DMNSNDSK.CIKAREL.DATA - NEWNAME(KCI08.CIKAREL.YYYY1999.MM07.DD04.DATA) ALTER KCI08.DMNSNDSK.CIKAREL.INDEX - NEWNAME(KCI08.CIKAREL.YYYY1999.MM07.DD04.INDEX) /*