Generation Data Sets - Unique, Useful... Understandable?.pdf

2. •
•
•
•
•
•
•
•
•
•
•
•
•
•

4. →
→

5. •
•
•
•
•
•
•
•
•

6. •
•
•
•
•
•
•
•
•
•
•

8. •
•
•
•
•
//DD1 DD DSN=WWCSJP.GDG(+1),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA

10. •
•
•
•
•
•
•

11. •
•
•
•
•
•
•
•
•
IGD104I WWCSJP.GDG.G0006V00 RETAINED, DDNAME=DDALL
IGD104I WWCSJP.GDG.G0005V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0004V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0003V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0002V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0002V00 RETAINED, DDNAME=DDALL
IGD104I WWCSJP.GDG.G0003V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0004V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0005V00 RETAINED, DDNAME=
IGD104I WWCSJP.GDG.G0006V00 RETAINED, DDNAME=

12. //DEFGDG EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF GDG(NAME(WWCSJP.GDG) LIMIT(5))
//GENER EXEC PGM=IEFBR14
//DD1 DD DSN=WWCSJP.GDG(+1),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA,DSORG=PS,
// RECFM=FB,LRECL=80
GDG BASE ------ WWCSJP.GDG
IN-CAT --- USERCAT.TSOUSERS
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2025.293
RELEASE----------------2 LAST ALTER------2025.293
ATTRIBUTES
LIMIT------------------5 NOSCRATCH NOEMPTY LIFO NOPURGE NOEXTENDED
ASSOCIATIONS
NONVSAM--WWCSJP.GDG.G0001V00

13. //GENER EXEC PGM=IEFBR14
//DD1 DD DSN=WWCSJP.GDG(+1),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA
//DD2 DD DSN=WWCSJP.GDG(+2),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA
//DD3 DD DSN=WWCSJP.GDG(+3),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA
//DD4 DD DSN=WWCSJP.GDG(+4),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA
//DD5 DD DSN=WWCSJP.GDG(+5),DISP=(,CATLG),
// SPACE=(CYL,(1,1)),UNIT=SYSALLDA
DSLIST - Data Sets Matching WWCSJP.GDG* Row 1 of 7
Command ===> croll ===> CSR

Command Tracks %Used XT
---------------------------------------------------------
WWCSJP.GDG
WWCSJP.GDG.G0001V00 0 0 0
WWCSJP.GDG.G0002V00 15 ? 1
WWCSJP.GDG.G0003V00 15 ? 1
WWCSJP.GDG.G0004V00 15 ? 1
WWCSJP.GDG.G0005V00 15 ? 1
WWCSJP.GDG.G0006V00 15 ? 1

14. NONVSAM ------- WWCSJP.GDG.G0001V00
IN-CAT --- USERCAT.TSOUSERS
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2025.293
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO----------------------------------- (NULL)
STATUS--------ROLLED-OFF
SMSDATA
STORAGECLASS ---DSN8G910 MANAGEMENTCLASS ---(NULL)
DATACLASS --------(NULL) LBACKUP ---0000.000.0000
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------SMS005 DEVTYPE------X'3010200F'
ASSOCIATIONS--------(NULL)
NONVSAM ------- WWCSJP.GDG.G0006V00
IN-CAT --- USERCAT.TSOUSERS
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2025.293
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO----------------------------------- (NULL)
STATUS------------ACTIVE
SMSDATA
STORAGECLASS ---DSN8G910 MANAGEMENTCLASS ---(NULL)
DATACLASS --------(NULL) LBACKUP ---0000.000.0000
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------SMS013 DEVTYPE------X'3010200F'
ASSOCIATIONS
GDG------WWCSJP.GDG

15. •
•
•
•
•
•
•
•
•
•
•

16. •
•
•
•
•
•
•
•
•
•

17. •
•
•
•
•
•
•
•
•
•

18. RENAME WWCSJP.GDG.G0001V00
WWCSJP.GDGTEMP.G0001V00
DEF GDG(NAME(WWCSJP.GDGTEMP) LIMIT(10) )
DEF GDG(NAME(WWCSJP.GDGTEMP) LIMIT(10) EXTENDED )
RENAME WWCSJP.GDGTEMP.G0001V00
WWCSJP.GDG.G0001V00
DELETE WWCSJP.GDG GDG
DELETE WWCSJP.GDGTEMP GDG

19. // EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE WWCSJP.GDG.G%%%%V%% MASK PURGE
DELETE WWCSJP.GDG GDG <FORCE>
IDC0550I ENTRY (A) WWCSJP.GDG.G0002V00 DELETED
IDC0550I ENTRY (A) WWCSJP.GDG.G0003V00 DELETED
IDC0550I ENTRY (A) WWCSJP.GDG.G0004V00 DELETED
IDC0550I ENTRY (A) WWCSJP.GDG.G0005V00 DELETED
IDC0550I ENTRY (A) WWCSJP.GDG.G0006V00 DELETED
IDC0550I ENTRY (A) WWCSJP.GDG.G0001V00 DELETED
DELETE WWCSJP.GDG GDG
IDC0550I ENTRY (B) WWCSJP.GDG DELETED

20. •
•
•
•
•
•
•
•
•
•

21. **************************************************************
* OVERRIDE GDG ATTRIBUTES TO CREATE EXTENDED GOG W/999 GENS *
**************************************************************
DEFENV DEFINE_GDG MODE(ACTIVE)
DEFRULE GDGRULE1
IF &DSNAME = DTS.GDG.** /* SELECTION FILTER */
&ENV = DEFINE_GDG /* DEFINING A GDG? */
THEN SET &GDG_EXTENDED = YES /* MAKE IT A GDG -E */
SET &GDG_LIMITE = 999 /* WITH MAX LIMIT */
SET &GDG_SCRATCH = YES /* ALWAYS SCRATCH */
SET &GDG_EMPTY = YES /* EMPTY */
SET &GDG_PURGE = YES /* PURGE */
SET &GDG_FIFO = YES /* SET GDG -ALL ORDER*/
ISSUE WRITEMSG(DTS001) /* INFORM THE USER */
DEFMSG DTS001 'GDG-E CREATED WITH LIMIT &GDG_LIMITE'
* FOR ORDINARY GDGS WITH LESS THAN 10 GENERATIONS, *
* FORCE 10 GENERATIONS AND WRITE MESSAGE TO JESLOG AND LOG FILE*
* FOR EXTENDED GDGS WITH LESS THAN 255 GENERATIONS, *
* FORCE 999 GENERATIONS AND WRITE MESSAGE TO JESLOG AND LOGFILE*
*****************************************************************
DEFENV DEFINE_GDG MODE(ACTIVE)

DEFRULE LIMITRUL
IF &ENV = DEFINE_GDG /* DEFINING A GDG? */
&DSNAME = DTS.GDG.** /* SELECTION FILTER */
&GDG_EXTENDED = NO /* NON -EXTENDED GDG?*/
&GDG_LIMIT LT 255 /* LESS THAN 255GEN?*/
THEN SET &GDG_LIMITE = 255 /* SET LIMIT */
ISSUE WRITEMSG(WARNMSG) /* SYSPRINT WARNING */
ISSUE WRITEMSG(WRITLOG) /* WRITE LOG RECORD */

IF &ENV = DEFINE_GDG /* DEFINING A GDG? */
&DSNAME = DTS.GDG.** /* SELECTION FILTER */
&GDG_EXTENDED = YES /* NON -EXTENDED GDG?*/
&GDG_LIMITE LE 255 /* LESS THAN 10 GEN?*/
THEN SET &GDG_LIMITE = 999 /* SET EXT LIMIT */
ISSUE WRITEMSG(WARNMSG) /* SYSPRINT WARNING */
ISSUE WRITEMSG(WRITLGE) /* WRITE LOG RECORD */
DEFMSG WARNMSG '&DSNAME LIMIT OVERRIDDEN - CHECK DEFINE'
DEFMSG WRITLOG 'JOB=&JOBNAME DSN=&DSNAME LOW GDG LIMIT!' +
LOG(EVENTLOG,ONLY)
DEFMSG WRITLGE 'JOB=&JOBNAME DSN=&DSNAME LOW GDG -E LIMIT!' +
LOG(EVENTLOG,ONLY)

22. •
•
•
•
•
•
•

23. •
•
•
•