DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSW4WGE.jcl

@@ -0,0 +1,48 @@
+//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..PROCLIB
+//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)
+//**
+//*