DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ701.jcl

@@ -0,0 +1,33 @@
+//DTSRQ701 JOB (UI,4300,3400,T),PROD.FUTA.CERT1,
+//            MSGCLASS=X,CLASS=A,
+//            NOTIFY=ECNTSUP,
+//****        TYPRUN=SCAN,
+//            REGION=0M
+//****
+//*  FUTA CERTIFICATION - PART 1 (DTSRQ701)
+//*                     - PART 2 (DTSRQ704)
+//*                     - PART 3 (DTSRQ702)
+//*                     - PART 4 (DTSRQ706) <<< NO LONGER NEEDED BY IRS
+//****
+//*    THE ANNUAL IRS FUTA CERTIFICATION PROCESS
+//****
+//    SET FISCALYR='CY2010'
+//****
+//*    THE DASD FILE IS FOR USE BY DTSRQ704 (PART 2)
+//*            (CHANGE CALENDAR YEAR AS NEEDED)
+//****
+//****
+//*    LOAD THE IRS FILE TO DASD
+//****
+//STEP0100 EXEC  PGM=IEBGENER
+//SYSUT1   DD DSN=DOESTAX.CONV.FUTACERT.UPLOAD,DISP=SHR                 00070080
+//SYSUT2   DD DSN=DOESTAX.CONV.FUTACERT.&FISCALYR.,                     00100080
+//         DISP=(NEW,CATLG,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(CYL,(1,1),RLSE),
+//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=295,BLKSIZE=8260)
+//SYSOUT   DD SYSOUT=*
+//SYSPRINT DD SYSOUT=*
+//SYSUDUMP DD SYSOUT=*
+//SYSIN    DD DUMMY
+//****