49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
//DTSW4WGE JOB (UI,4300,3400,T),PROD.DAILY,CLASS=P,MSGCLASS=X,
|
|
// NOTIFY=ECNTSUP,
|
|
// USER=#DOADTS,
|
|
//**** TYPRUN=SCAN,
|
|
//**** TYPRUN=HOLD,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
//*********************************************************************
|
|
//* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN
|
|
//*
|
|
//*
|
|
//*********************************************************************
|
|
// SET ACHYEAR='FY2009'
|
|
// SET EXTNODE='CONV'
|
|
// SET IMPNODE='PROD'
|
|
// SET PGMNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET LVDHOLD='YES'
|
|
// SET PRTHOLD='NO'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//****
|
|
//**11/06/2013 - ADDED PROC TO CHECK W4FILE FOR DUPLICATE SSN ZL1
|
|
//****
|
|
//*
|
|
//STEP0100 EXEC DTSWGZ07 /* DO NOT CHECK FOR DUPS ZL1
|
|
//*
|
|
//
|
|
//*********************************************************************
|
|
//* RELOAD THE WAGE FILE FOR DOCS DUE TO A LATE RUN
|
|
//*
|
|
//* COMMENT THE LINE ABOVE THAT STOPS THIS STEP FROM RUNNING AND
|
|
//* CHANGE THE GDG NUMBER OF THE BACKUP FILE. LINE 32 ZL1
|
|
//**
|
|
//*********************************************************************
|
|
//* RELOAD THE WAGE FILE FOR DOCS DUE TO A LATE RUN
|
|
//*
|
|
//STEPWAGE EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD09 DD DSN=DOESTAX.PROD.BACKUP.W4FILE.G1466V00,DISP=SHR
|
|
//OUTDD01 DD DSN=DOESTAX.PROD.W4FILE,DISP=MOD
|
|
REPRO INFILE(INDD09) OUTFILE(OUTDD01)
|
|
//**
|
|
//*
|