//ECNTVERY 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.PROCS.BATCH.LIB 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 VERIFY DATASET (DOESTAX.PROD.VSAM.CHGM030) /* //