GDG

//ZLP      JOB ZLP,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*JOBCARD                                                         
//STEP1 EXEC PGM=IDCAMS                                            
//GDGMODEL DD DSN=IBMUSER.GDG02,                                   
//      DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(0)),                   
//      DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)                       
//SYSPRINT DD SYSOUT=*                                             
//SYSIN DD *                                                       
  DEFINE GDG (NAME(GDG02) LIMIT(100))                              
//                                                                 
//STEP2 EXEC PGM=IEBGENER                                          
//SYSUT1 DD DSN=IBMUSER.TEST.G905.PS7,DISP=SHR                     
//SYSUT1 DD DSN=ST023.TEST.GDG(+1),                                
//     DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,5)),                  
//     DCB=GDG02                                                   
//SYSPRINT DD SYSOUT=*                                             
/*