//ECNTSUPG JOB (UI,4300,3400,T),ZARATH,CLASS=A,MSGCLASS=X,              00000010
//             NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//*********************************************************************
//* PURPOSE :                                                         *
//* **** DO NOT DELETE ANY NAME FROM THIS GROUP  *****                *
//*     DEFINE GENERATION DATA GROUP CATALOG ENTRY FOR THE PROD REGION*
//*********************************************************************
//IDCAMS   EXEC    PGM=IDCAMS                                           00000030
//SYSPRINT DD  SYSOUT=*                                                 00000040
//SYSIN    DD  *                                                        00000070
  DEFINE GDG (NAME(DOESTAX.PROD.SOAMONTH) LIMIT(50) SCRATCH)
/*
//