//DTSPGDGD JOB (UI,4300,3400,T),PROD.DEFGDG,CLASS=A,MSGCLASS=X,         00000010
//             NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//*********************************************************************
//* PURPOSE :                                                         *
//*     DEFINE GENERATION DATA GROUP CATALOG ENTRY FOR THE PROD REGION*
//* A SUBSET CREATED TO DO 1 OR 2 SPECIFIC/NEW GDG'S - JHP
//*******************************************************************
//IDCAMS   EXEC    PGM=IDCAMS                                           00000030
//SYSPRINT DD  SYSOUT=*                                                 00000040
//SYSIN    DD  *                                                        00000070
  DEFINE GDG (NAME(DOESTAX.PROD.SPBACKUP.CHGM030) LIMIT(5)
  DEFINE GDG (NAME(DOESTAX.PROD.SPBACKUP.CHGM002) LIMIT(5)
/*
//
//**LETE  DOESTAX.PROD.RPT719.BKP
//**DEFINE GDG (NAME(DOESTAX.PROD.RATING.RPT.YR2001) LIMIT(6) SCRATCH)
//**DEFINE GDG (NAME(DOESTAX.PROD.SRTDAY07.RPT) LIMIT(12) SCRATCH)