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
//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