DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
JCL/JGDGDEFX.jcl
Normal file
19
JCL/JGDGDEFX.jcl
Normal file
@ -0,0 +1,19 @@
|
||||
//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)
|
||||
Reference in New Issue
Block a user