Files
DUTAS/JCL/DTSVBQTR.jcl
2025-07-21 11:20:11 -04:00

22 lines
714 B
Plaintext

//DTSVBQTR JOB (UI,4300,3400,T),BE770,CLASS=P,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN, //* CHECK -->> LINES BELOW IF A RERUN
// REGION=0M //* CHECK -->> 1X SPECIAL LINES (DELETE)
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//****
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET LHOLD='NO'
//****
//* THIS PROCESS CREATES A BACKUP FOR QUARTER END.
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* SPEC BACKUP AT END OF QTR END
//* QTRS TO BE USED FOR AUDITING PURPOSES.
//STEP0125 EXEC DTSUTVSQ,
// BKUPGEN='(+1)'
//*** *
//*