000100 //GDC041 JOB 'USE GDG',CLARK,MSGLEVEL=(1,1),NOTIFY=&SYSUID
000200 //VERIFY EXEC PGM=IDCAMS
000210 //SYSPRINT DD SYSOUT=*
000211 //SYSIN DD *
000212 DELETE -
000213 GDC041.GDG.MODE001 -
000214 PURGE
000215 DELETE -
000216 GDC041.GDG.BASE001.* -
000217 PURGE
000218 DELETE -
000219 GDC041.GDG.BASE001 -
000220 GENERATIONDATAGROUP -
000221 PURGE
000222 IF MAXCC=0 THEN
000223 SET MAXCC=0
000224 /*
000225 //DEFINE EXEC PGM=IDCAMS
000230 //SYSPRINT DD SYSOUT=*
000240 //DSCB DD DSN=GDC041.GDG.MODE001,DISP=(NEW,CATLG,DELETE),
000500 // SPACE=(TRK,(3,5),RLSE),
000600 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
000610 //SYSIN DD *
000620 DEF GDG -
000630 ( -
000640 NAME('GDC041.GDG.BASE001') -
000650 LIMIT(4) SCRATCH EMPTY - 000660 )
000670 /*
000680 //TEST EXEC PGM=IEBGENER
000690 //SYSPRINT DD SYSOUT=*
000691 //SYSUT2 DD DSN=GDC040.GDG.BASE001(+1),
000692 // DISP=(NEW,CATLG,DELETE),
000693 // LIKE=GDC041.GDG.MODE001
000696 //SYSIN DD DUMMY
000697 //SYSUT1 DD *
000698 THIS IS GDG DATA SET.
000700 /*
