16 lines
883 B
Plaintext
16 lines
883 B
Plaintext
//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)
|
|
/*
|
|
//
|