//JOB001    JOB (),CLASS=A,NOTIFY=&SYSUID,MSGCLASS=H,MSGLEVEL=(1,1),    
//           TIME=(,3)                                                  
//**********************************************************************
//* HTTP://WWW.CONSULTORIOCOBOL.COM/2011/01/JCL-BASICO-V-IDCAMS-IEFBR14-
//*IEBGENER.HTML                                                        
//**********************************************************************
//* EL KEY COMIENZA EN 16 Y 0 DE LONGITUD            *                  
//****************************************************                  
//* KSDS CLUSTER                                     *                  
//****************************************************                  
//* NAME: DONDE SE CREARAN LOS 3 ARCHIVOS DE CDA VSAM*                  
//* VOL: VOLUMEN PARA GUARDAR LOS ARCH               *                  
//**********************************************************************
//* DELETE: BORRA SI HUBIERA ARCH ANTES DE CREARLO                      
//* SET MAXCC=0 EJECUTA ESTE JCL HASTA EL FINAL CUNQUE ENCUENTRE ERROR D
//* E ARCH NO EXISTENTE EN DELETE*                                      
//******* DEFINICION DE VSAM *******************************************
//PASOXXXX EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                  
//SYSIN DD *                                                            
  DELETE IBMUSER.MAGTEST0.ARCH.MAGVS                                    
  CLUSTER                                                               
  SET MAXCC = 0                                                         
  DEFINE CLUSTER( -                                                     
      NAME(IBMUSER.MAGTEST0.ARCH.MAGVS) -                               
      INDEXED -                                                         
      VOL(ZARES1) -                                                     
      TRACKS(300 50) -                                                  
      RECSZ(52 132) -                                                   
      CISZ(12288) -                                                     
      KEY(8 0) -                                                        
      SHR(2 3) -                                                        
      FSPC(15 15))                                                      
/*