DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ513.jcl

@@ -0,0 +1,45 @@
+//DTSRQ513 JOB (UI,4300,3400,T),CFO-MTHLY,CLASS=A,MSGCLASS=X,           00000010
+//           USER=#DOADTS,
+//          NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//*  CFO MTHLY REPORT IDENTIFYING PENALTY AND INTEREST COLLECTED
+//*
+//   SET LVLNODE='PROD'                       /PROGRAMS
+//   SET MSTNODE='PROD'                       /MASTER FILES
+//   SET GEN='(0)'                            /SRTMONTH.RPT GDG GEN
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                             BKP ONLY WHEN NEEDED    00001700
+//*
+//STEP0300 EXEC PGM=DTSBD513,
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//RPT513R1 DD  SYSOUT=0
+//**
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00001600
+//DTSFVRI1 DD  DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//**
+//DTSF513  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
+//**           DISP=(NEW,CATLG,CATLG),
+//             DISP=(OLD,KEEP,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(800,(1000,1000),RLSE),
+//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
+//*
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
+//SYSPRINT DD  SYSOUT=*
+//SOUTOUT  DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT513),DISP=SHR
+//***