GDG-GENERATION //TRGA13QQ JOB NOTIFY=TRGA13 //STEP1 EXEC PGM=IDCAMS ...
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSIN DD *
DEFINE GDG (NAME(TRGA13.MOULI.GDG.BACKUP) -
LIMIT(5) -
NOEMPTY SCRATCH)
/*
//SYSPRINT DD SYSOUT=A
//STEP2 EXEC PGM=IEFBR14
//MODEL1 DD DSN=TRGA13.MOULI.GDG.BACKUP,DISP=(NEW,KEEP,DELETE),
// UNIT=SYSDA,SPACE=(TRK,0),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//
***********************************************************
GDG-VERSION GENERATION
//TRGA13AA JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=TRGA13.MOULI.PS,DISP=SHR
//SORTOUT DD DSN=TRGA13.MOULI.GDG.BACKUP(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,5),RLSE),
// DCB=(TRGA13.MOULI.PSOUT)
//SYSIN DD *
SORT FIELDS=(35,4,CH,A)
SUM FIELDS=(73,6,ZD)
/*
//SYSOUT DD SYSOUT=A
//
***************************************************************
GDG-PREVIOUS VERSION
//TRGA13AA JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=TRGA13.MOULI.GDG.BACKUP(-1),DISP=SHR
==> (0)=CURRENT GDG VERSION
//SORTOUT DD DSN=TRGA13.MOULI.PSOUT,DISP=OLD
//SYSIN DD *
SORT FIELDS=COPY
/*
//SYSOUT DD SYSOUT=A
//
************************************************************
GDG-DELETE
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSIN DD *
DELETE (TRGA13.MOULI.GDG.BACKUP) GDG FORCE
/*
//SYSPRINT DD SYSOUT=A
//
No comments
Post a Comment