//GDGCREA  JOB (9999),'',CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),  
// REGION=0M,NOTIFY=&SYSUID                                  
//CREAGDG  EXEC PGM=IDCAMS                                   
//SYSIN    DD *                                              
 DEFINE GDG(                     -                           
        NAME(IBMUSER.PRUEBA.GDG) -                           
        LIMIT(10)                -                           
        NOEMPTY                  -                           
        SCRATCH)                                             
/*                                                           
//SYSPRINT DD SYSOUT=*                                       
//* CREAMOS UNA NUEVA VERSION DE ESE GDG                  */ 
//NEWVERS  EXEC PGM=IEFBR14                                  
//GDGVERS  DD DSN=IBMUSER.PRUEBA.GDG(+1),                    
//            DISP=(NEW,CATLG,DELETE),                       
//            SPACE=(TRK,(1,1)),UNIT=3390,                   
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)