Examples of GDG’s
//* GDG1DEF DEFINE A GENERATION DATA GROUP
//GDG1DEF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG (NAME(userid.SAMPLE.GDG.BASE) -
LIMIT(10) NOEMPTY SCRATCH)
/*
//*GDG2MAKE ACTUALLY CREATE A NEW G. D. SET
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
LINDA
ELENA
/*
//SYSUT2 DD DSN=userid.SAMPLE.GDG.BASE(+1),DISP=(NEW,CATLG),
// SPACE=(TRK,1),
// DCB=model-dscb optional at some companies
//* GDG3ALT CHANGE A GENERATION DATA GROUP'S DEFINITION
//GDG3ALT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER userid.SAMPLE.GDG.BASE -
LIMIT(15)
/*
//* GDG4DEL THIS WILL DELETE ALL THE MEMBERS OF THE GROUP
//ADIOS EXEC PGM=IEFBR14
//BYEBYE DD DSN=userid.SAMPLE.GDG.BASE,DISP=(OLD,DELETE)
//* GDG5DEL THIS WILL REMOVE THE GD GROUP FROM THE CATALOG
//* BE SURE TO DO GDG4DEL FIRST
//GDG5DEL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE userid.SAMPLE.GDG.BASE GDG
/*