15 lines
627 B
Plaintext
15 lines
627 B
Plaintext
//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)
|
|
//**
|