DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ460.jcl

@@ -0,0 +1,40 @@
+//DTSRQ460 JOB (UI,4300,3400,T),RUNRQ460,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                                 *
+//****** JOB NO LONGER NEEDED REPLACED BY RQ459 (DAILY) 01/14/21 ZL1*
+//*******************************************************************
+//*
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUX460
+//*            RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+460
+/*
+//***                     SORT BE460 FIRST 13 BYTES
+//STEP0300 EXEC DTSRS460
+//***
+//STEP0400 EXEC PGM=FTP,REGION=2M
+//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
+//SYSIN    DD *
+FWFRIENDLY TRUE
+//SYSPRINT DD SYSOUT=*,HOLD=YES
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT460),DISP=SHR
+/*
+//*