DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ702.jcl

@@ -0,0 +1,62 @@
+//DTSRQ702 JOB (UI,4300,3400,T),PROD.FUTA.CERT3,
+//            MSGCLASS=X,CLASS=A,
+//            NOTIFY=ECNTSUP,
+//****        TYPRUN=SCAN,
+//            REGION=0M
+//****
+//*  FUTA CERTIFICATION - PART 1 (RUNRQ701)  - PART 3 (THIS JOB)
+//*                     - PART 2 (RUNRQ704)  - PART 4 (RUNRQ706) (JHP)
+//****
+//*  PRODUCE THE ANNUAL FILE TO IRS FROM FUTA CERTIFICATION
+//*   THE DASD FILE IS PRODUCED BY RUNRQ704 (PART 2)
+//****
+//  SET FISCALYR='CY2010'
+//  SET  LVLNODE='PROD'
+//  SET  LVLFILE='CONV'
+//  SET    LHOLD='YES'
+//****
+//*    CREATE A BACKUP COPY OF THE OUTPUT TO IRS FOR DOES
+//****
+//STEP0100 EXEC PGM=IEBGENER
+//SYSPRINT DD  SYSOUT=*
+//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR.,DISP=SHR
+//SYSUT2   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR..BKP,
+//         DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,                          /* TEST
+//             SPACE=(CYL,(1,1),RLSE),              /* TEST
+//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=326,BLKSIZE=1630)
+//SYSIN    DD  DUMMY
+//****
+//*    CREATE OUTPUT FILE FOR IRS
+//*
+//*
+//STEP0200 EXEC PGM=IEBGENER,
+//          COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR.,DISP=SHR
+//SYSUT2   DD  DSN=DOESTAX.&LVLFILE..RPT702.&FISCALYR..IRS,
+//             DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,                   /* TEST
+//             SPACE=(CYL,(1,1),RLSE),       /* TEST
+//             DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
+//SYSIN    DD  DUMMY
+//****
+//*    PRT 1ST 100 CERTIFICATION RECORDS FOR IRS
+//
+//STEP0300 EXEC PGM=IDCAMS,
+//          COND=(0,LT)
+//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
+//          HOLD=&LHOLD.
+//FILEIN   DD DSN=MAILOUT.DOESTAX.&LVLNODE..RPT702.&FISCALYR..IRS,
+//****            UNIT=SYSDA,
+//            UNIT=CART90,
+//            VOL=REF=*.STEP0200.SYSUT2,
+//            DISP=(OLD,KEEP)
+//****            SPACE=(CYL,(1,1),RLSE),
+//****            DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
+//SYSIN    DD  *
+ PRINT -
+   INFILE (FILEIN) -
+   COUNT (100)
+/*
+//****