DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ414.jcl

@@ -0,0 +1,65 @@
+//DTSRQ414 JOB (UI,4300,3400,T),DTSRQ414,CLASS=S,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTZL1,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//*   SET ACHYEAR='FY2009'
+//    SET MSTNODE='PROD'
+//    SET LVLNODE='PROD'
+//    SET   LHOLD='YES'
+//****
+//*    ON REQUEST REPORT DTSBR414 -                                 *
+//****
+//*  06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414   ZL1
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*TEP0100 EXEC DTSUTVSM,
+//*         BKUPGEN='(+1)'
+//*
+//**
+//STEP0200 EXEC DTSUEXT,
+//          RUNTYPE='QR',
+//          PREBACK='Y'
+//*
+//STEP0100.EXTPARM  DD  *
+***
+***
+***         414 IS PROGRAM ID     (DO NOT CHANGE THIS)
+***
+*** XXXXXXXX - RESP OPID,         EXAMPLE
+*** MMDDYY   - INT-COMP-DATE,     CONTROL CARD FOLLOWS
+*** MMDDYY   - REIMB-CUTOFF-DATE,
+414,        ,      ,      ,
+***
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT414R2 DD  HOLD=YES
+//STEP0100.RPT414R3 DD  HOLD=YES
+//STEP0100.RPT414R4 DD  DSN=DOESTAX.PROD.R414.EXCL.RPT2,DISP=SHR
+//STEP0100.RPT414R5 DD  DSN=DOESTAX.PROD.R414.EXCL.RPT3,DISP=SHR
+//STEP0100.RPT414R6 DD  DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR
+//STEP0100.RPT907R1 DD  HOLD=YES
+//STEP0100.RPT907R2 DD  HOLD=YES
+//STEP0100.RPT980R1 DD  HOLD=YES
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
+//*
+//STEP0400 EXEC PGM=FTP
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
+/*
+//STEP0500 EXEC DTSAR414              /ARCHIVE 414 RECORDS
+//**
+//STEP0600 EXEC DTSUTVSM,
+//          BKUPGEN='(+1)'
+//*