//RENAFICH JOB (9999),'',CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),      
// REGION=0M,NOTIFY=&SYSUID                                      
//* RENOMBRAR UN FICHERO                                      */ 
//RENAME1  EXEC PGM=IDCAMS                                       
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   *                                                
 ALTER IBMUSER.PRUEBA -                                          
 NEWNAME(IBMUSER.PRUEBA.RENAME)                                  
/*                                                               
//* RENOMBRAR VARIOS FICHEROS                                 */ 
//RENAME2  EXEC PGM=IDCAMS                                       
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   *                                                
 ALTER IBMUSER.PRU.* -                                           
 NEWNAME(IBMUSER.PRU.*.RENAME)                                   
/*