DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX470.jcl

@@ -0,0 +1,41 @@
+//DTSBX470 JOB (UI,4300,3400,T),RUNBX470,CLASS=S,MSGCLASS=X,            00000010
+//*         TYPRUN=SCAN,
+//          NOTIFY=ECNTSUP,
+//          USER=#DOADTS
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*                                                                     00001700
+//  SET LVLNODE='PROD'                                                  00001700
+//  SET MSTNODE='PROD'                                                  00001700
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBX470,     EMPLOYER ADDRESS EXTRACT FOR OWC
+//             COND=(0,LT),
+//             PARM='UPDATE,W',
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSBX470 DD  DSN=DOESTAX.&LVLNODE..FTP.DTSBX470,
+//**           DISP=(NEW,CATLG,DELETE),
+//             DISP=(OLD,KEEP,KEEP)
+//*            UNIT=SYSDA,
+//*            SPACE=(CYL,(50,20),RLSE),
+//*            DCB=(RECFM=FB,LRECL=441,BLKSIZE=30870)
+//***
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT470),DISP=SHR
+/*
+//***
+//*
+//*********************************************************************
+//*