20 lines
1.1 KiB
Plaintext
20 lines
1.1 KiB
Plaintext
//DTSPGDGD JOB (UI,4300,3400,T),PROD.DEFGDG,CLASS=A,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//*********************************************************************
|
|
//* PURPOSE : *
|
|
//* DEFINE GENERATION DATA GROUP CATALOG ENTRY FOR THE PROD REGION*
|
|
//* A SUBSET CREATED TO DO 1 OR 2 SPECIFIC/NEW GDG'S - JHP
|
|
//*******************************************************************
|
|
//IDCAMS EXEC PGM=IDCAMS 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//SYSIN DD * 00000070
|
|
DEFINE GDG (NAME(DOESTAX.PROD.SPBACKUP.CHGM030) LIMIT(5)
|
|
DEFINE GDG (NAME(DOESTAX.PROD.SPBACKUP.CHGM002) LIMIT(5)
|
|
/*
|
|
//
|
|
//**LETE DOESTAX.PROD.RPT719.BKP
|
|
//**DEFINE GDG (NAME(DOESTAX.PROD.RATING.RPT.YR2001) LIMIT(6) SCRATCH)
|
|
//**DEFINE GDG (NAME(DOESTAX.PROD.SRTDAY07.RPT) LIMIT(12) SCRATCH)
|