DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ439.jcl

@@ -0,0 +1,76 @@
+//DTSRQ439 JOB (UI,4300,3400,T),RUNRQ439,
+//         CLASS=S,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP,
+//**       TYPRUN=SCAN,
+//         REGION=0M
+//**
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//   SET LHOLD='YES'
+//**
+//*
+//*******************************************************************
+//* - DTSBE439 - WRITE OFF PARAMETERS:
+//*   1. INCLUDE EMPLOYERS WITH DEFERED PAYMENT CONTRACRS (Y/N).
+//*   2. INCLUDE EMPLOYERS WITH LIENS (Y/N).
+//*   3. INCLUDE SELF-INSURED EMPLOYERS (Y/N).
+//*   4. IF THE PARAMETER IS: 'N,BLANK,BLANK'  OR 'BLANK,BLANK,BLANK'
+//*      THE DEFAULT WILL BE 'N,Y,Y' OR 'Y,Y,Y', RESPECTIVELY.
+//*******************************************************************
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*  NO BACKUP NEEDED BEFORE THIS REPORT
+//STEP0100 EXEC DTSUX439,
+//             RUNTYPE='OR',
+//             PREBACK='Y'
+//STEP0100.EXTPARM DD *
+439,N,N,Y
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC PGM=DTSBD800,
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//**
+//PARMIN   DD  DUMMY
+//**
+//ATLSTIN  DD  DUMMY
+//**
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//**
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
+//**
+//**   WRITE OFF CANDIDATE REPORT
+//RPT439R1 DD  SYSOUT=Z,
+//             HOLD=&LHOLD.,
+//             DEST=LOCAL
+//**                             CONTROL REPORT SUMMARY
+//RPT980R1 DD  SYSOUT=Q,COPIES=2,
+//             HOLD=&LHOLD.,
+//             DEST=LOCAL
+//*
+//****************************************************************
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP
+//SYSPRINT DD  SYSOUT=*
+//SOUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT439),DISP=SHR
+/*
+//****
+//*     THE NORMAL DAILY BACKUP
+//*     DUE TO THE CHANGES IN THE DATABASE MADE BY THE RUN.
+//*
+//STEP0400 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//*