DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX601.jcl

@@ -0,0 +1,35 @@
+//DTSBX601 JOB (UI,4300,3400,T),DTSBX601,CLASS=S,MSGCLASS=X,            00000010
+//    USER=#DOADTS,
+//    NOTIFY=ECNTZL1
+//*
+//**********************************************************************
+//*SCAN MLOG RECORDS AND LIST ALL ADDRESSES THAT WERE ADDED OR UPDATED
+//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
+//*REFUNDS
+//***************************************************** 06/22/17  ZL1***
+//*
+// SET MSTNODE='PROD'
+// SET LVLNODE='DEVL'
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBX601,    LIST MPRF-RETURN EMAIL ADDRESS -INACTIV
+//             COND=(0,LT),
+//             REGION=4096K
+//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')
+//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFWTC  DD  DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFX601 DD  DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
+//*
+//*********************************************************************