//ECNTXALT JOB (UI,4300,3400,T),JHP.ALTER.GDG,CLASS=A,MSGCLASS=X,       00000010
//****         TYPRUN=SCAN,
//             NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//****
//* PURPOSE :
//*   //***ALTER GENERATION DATA GROUP ENTRY FOR THE PROD REGION
//****
//IDCAMS   EXEC    PGM=IDCAMS                                           00000030
//SYSPRINT DD  SYSOUT=*                                                 00000040
//SYSIN    DD  *                                                        00000070
 ALTER DOESTAX.CONV.ESSP.BX420.RPT LIMIT(50)
//**