DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
27
JCL/DTSSBCHG.jcl
Normal file
27
JCL/DTSSBCHG.jcl
Normal file
@ -0,0 +1,27 @@
|
||||
//DTSSBCHG JOB (UI,4300,3400,T),VSAM-CHG-BKP,CLASS=Z,MSGCLASS=X, 00000010
|
||||
// NOTIFY=ECNTSUP
|
||||
//*
|
||||
//* 00001700
|
||||
// SET LVLNODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET FTPNODE='PROD'
|
||||
// SET EXTNODE='CONV'
|
||||
// SET IMPNODE='PROD'
|
||||
// SET LHOLD='YES'
|
||||
// SET LDEST=U@PRT65
|
||||
//***
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//* 00001700
|
||||
//******************************************************************** 00001700
|
||||
//* ADDED AUDIT JOBS BX440 AND BX442 JOBS 8/8/12 ZL1. 00001700
|
||||
//* 00001700
|
||||
//*********************************************************************
|
||||
//* SPECIAL PROD VSAM CHARGE FILES BACKUP - BEFORE DELETIONS GEN -1 00001700
|
||||
//* SPECIAL PROD VSAM CHARGE FILES BACKUP - AFTER DELETIONS GEN +0 00001700
|
||||
//******************************************************************** 00001700
|
||||
//* 00001700
|
||||
//STEP0100 EXEC DTSUSCHG,
|
||||
// BKUPGEN='(+1)'
|
||||
//*
|
||||
//*
|
||||
Reference in New Issue
Block a user