40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
//DTSRDAY1 JOB (UI,4300,3400,T),PROD.DAILY,CLASS=P,MSGCLASS=X,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
//**** TYPRUN=HOLD,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
// SET S0910='+0'
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET LVDHOLD='YES'
|
|
// SET LHOLD='YES'
|
|
// SET LDEST=U@PRT65
|
|
// SET PRTHOLD='YES'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
|
//* 05/29/01 - MODIFIED FOR TAPE TRACKING (STEPS 0150, 300 - 320) GD
|
|
//* 05/20/02 - REMOVED TAPE TRACKING JHP
|
|
//* 06/18/02 - ADDED REF TO WGH/WTC/WAGNAM/W4FILE JHP
|
|
//* 04/02/04 - REMOVED STEP 60,70,80 BUILD OLD NAME FILE JHP
|
|
//****
|
|
//**11/12/2004 - ADDED PROC DTSBX330 (CREDIT/DEBIT) AT EOJ ZL1
|
|
//****
|
|
//****
|
|
//* UI TAX DAILY BATCH RERPORTS *
|
|
//STEP0200 EXEC DTSD0ARP
|
|
//*
|
|
//* UI TAX DAILY BACKUP *
|
|
//STEP0400 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)'
|
|
//**
|
|
//
|
|
//STEP0150 EXEC DTSUD525
|
|
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE *
|
|
//* CICS REGION. *
|
|
//* *
|