//JOB001    JOB (),CLASS=A,NOTIFY=&SYSUID,MSGCLASS=H,MSGLEVEL=(1,1),  
//           TIME=(,3)                                                
//******************************************************************  
//* BORRA ARCHIVOS DIFICILES COMO VSAM INCOMPLETOS, ETC            *  
//* CAMBIAR ZVOL00 POR EL VOLUMEN DONDE SE ENCUENTRE Y             *  
//* MAGVCAT.DSNDBD.MAGDB1.CLIENTTS.I0001.A001 POR EL DATASET       *  
//* CORRESPONDIENTE.                                               *  
//*                                                                *  
//*                                                                *  
//******************************************************************  
//BORRA  EXEC PGM=IDCAMS                                            
//DDNAME1  DD UNIT=3390,VOL=SER=ZVOL00,DISP=OLD                       
//SYSPRINT DD  SYSOUT=*                                               
//SYSIN    DD  *                                                      
  DELETE -                                                            
    MAGVCAT.DSNDBD.MAGDB1.CLIENTTS.I0001.A001 -                       
    FILE(DDNAME1) -                                                   
    VVR