Tuesday, 25 June 2013

Create GDG

Define GDG

//TRNG111G JOB CLASS=A,MSGCLASS=X,NOTIFY=TRNG111              
//S1 EXEC PGM=IDCAMS                                          
//SYSPRINT DD SYSOUT=*                                        
//MOD1 DD DSN=TRNG111.GDG1.MOD,DISP=(NEW,CATLG),              
// DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB),SPACE=(TRK,0)        
//SYSIN DD *                                                  
  DEFINE GDG(NAME(TRNG111.TEST.GDG)  LIMIT(5) NOEMPTY SCRATCH


Create GDG

//TRNG111A JOB NOTIFY=TRNG111                              
//S1 EXEC PGM=IEBGENER                                      
//SYSPRINT DD SYSOUT=*                                      
//SYSUT1 DD DSN=TRNG111.X.X,DISP=SHR                        
//SYSUT2 DD DSN=TRNG111.TEST.GDG(+1),DISP=(NEW,CATLG),      
//       SPACE=(TRK,(10,5)),                                
//      DCB=(TRNG111.GDG1.MOD,LRECL=80,BLKSIZE=8000,RECFM=FB)
//SYSIN DD DUMMY                                              

No comments:

Post a Comment