DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTP793.jcl

@@ -0,0 +1,41 @@
+//DTSTP793 JOB (UI,4300,3400,T),FUTA.QTRLY.CHNG1,
+//            MSGCLASS=X,CLASS=A,
+//            NOTIFY=ECNTSUP,
+//****        TYPRUN=SCAN,
+//            REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//****
+//*  UPLOAD THE QTRLY CD FROM IRS FOR FUTA CHANGES
+//*  TO DSN: DOESTAX.CONV.FUTACHNG.UPLOAD
+//*
+//****
+//**SET CHNGTAPE='PDBEK.B1805E.F011.DC713,VOL=SER=DC3830'
+//****
+//*    THE DASD FILE IS FOR USE BY DTSRQ793
+//*     (CHANGE FISCAL YEAR/QTR AS NEEDED)
+//****
+//  SET FISYRQTR='QTR104'
+//****
+//*    LOAD THE IRS CD TO DASD
+//****
+//STEP0100 EXEC  PGM=IEBGENER
+//*YSUT1   DD DSN=&CHNGTAPE,                                            00070080
+//SYSUT1   DD DSN=DOESTAX.CONV.FUTACHNG.UPLOAD,                         00070080
+//**          UNIT=CART,                                                00070080
+//            UNIT=SYSDA,                                               00070080
+//            DISP=(OLD,KEEP),                                          00080075
+//****        LABEL=(2,BLP), (BLP=SECURITY VIOLATION AT IBM KY)
+//            DCB=(RECFM=FB,LRECL=259,BLKSIZE=1295)                     00090077
+//SYSUT2   DD DSN=DOESTAX.CONV.FUTACHNG.&FISYRQTR.,                     00100080
+//**       DISP=OLD,
+//         DISP=(NEW,CATLG,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(1295,(22500,22500),RLSE),                             00090077
+//         DCB=(RECFM=FB,LRECL=259,BLKSIZE=1295)                        00090077
+//SYSOUT   DD SYSOUT=*
+//SYSPRINT DD SYSOUT=*
+//SYSUDUMP DD SYSOUT=*
+//SYSIN    DD DUMMY
+/*
+//