//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) 
/*