17 lines
891 B
Plaintext
17 lines
891 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.PROCS.BATCH.LIB BY Z/OS
|
|
//*********************************************************************
|
|
//* PURPOSE : *
|
|
//* DEFINE GENERATION DATA GROUP CATALOG ENTRY FOR THE PROD REGION*
|
|
//*********************************************************************
|
|
//IDCAMS EXEC PGM=IDCAMS 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//SYSIN DD * 00000070
|
|
DELETE DOESTAX.CONV.TDECX154.SAVCRYPT.DONT
|
|
DELETE DOESTAX.CONV.TDECX154.SAVCRYPT.DINQ
|
|
DELETE DOESTAX.CONV.TDECX154.SAVED.WAGES
|
|
/*
|
|
//
|