DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ459.jcl

@@ -0,0 +1,58 @@
+//DTSRQ459 JOB (UI,4300,3400,T),RUNRQ459,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//**       RESTART=STEP0400,
+//         USER=#DOADTS,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//    REGION=0M
+//**
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+//**
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//*
+//*******************************************************************
+//*    CITYWIDE CLEAN HANDS EXTRACT  - DAILY EXTRACT                *
+//*    RQ460 WILL CONTINUE TO RUN AS A WEEKLY EXTRACT      ZL1      *
+//*******************************************************************
+//*
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUX459
+//*            RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+459
+/*
+//***                     SORT BE460 FIRST 13 BYTES
+//STEP0300 EXEC DTSRS459
+//
+//STEP0400 EXEC PGM=FTP,REGION=2M
+//*YSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
+//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
+//SYSIN    DD *
+FWFRIENDLY TRUE
+//SYSPRINT DD SYSOUT=*,HOLD=YES
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
+/*
+//*
+//********************************************************************
+//*                                                                |
+//* JOB       : SAVE A COPY OF THE FTP CLEAN HANDS FILE
+//*                                                                |
+//********************************************************************
+//STEP0250 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
+//OUTDD01  DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
+//             DISP=(,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(20,10),RLSE),
+//             DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
+//SYSIN    DD *
+  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
+/*
+//