//DTSRQ704 JOB (UI,4300,3400,T),PROD.FUTA.CERT2,                        00000010
//       CLASS=P,MSGCLASS=X,                                            00000010
//*      USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
//****
//*  FUTA CERTIFICATION - PART 1 (RUNRQ701)  - CANC 3 (RUNRQ702)
//*                     - PART 2 (THIS JOB)  - CANC 4 (DTSRQ706) (ZL1)
//****
//*        (CHANGE CALENDAR YEAR AS NEEDED)
//****
//  SET FISCALYR='CY2024'
//  SET LVLNODE='PROD'
//  SET   LHOLD='YES'
//****
//* JOB   : FUTA CERTIFICATION - PART 2
//****
//*       : RPT704R1 SUCCESSFUL FUTA CERTIFICATIONS LIST - VIEW DIRECT
//*         RPT705R1 FAILED     FUTA CERTIFICATIONS LIST - VIEW DIRECT
//*         RPT708R1 POTENTIAL  FUTA NON-FEDERAL FILERS LIST
//*       : RPT702   FUTA CERTIFICATION FILE-OUT ON DISK
//*         RPT706   FUTA NON-FEDERAL FILERS FILE-OUT ON DISK
//*         DTSFZ50  PRT 1ST 50 ZERO CERTIFICATION REPLY RECORDS
//*         DTSFNZ50 PRT 1ST 50 NON-ZERO CERTIFICATION REPLY RECORDS
//*****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                        NO BACKUP NEEDED BEFORE THIS JOB
//****
//*                                       BD610/620/630 EXTRACT
//STEP0100 EXEC DTSUX704
//***
//STEP0100.DTSFRQST DD  DSN=DOESTAX.CONV.FUTACERT.&FISCALYR.,
//             DISP=SHR
//****                             (USE NEXT THREE ONLY IF A RERUN)
//**STEP0100.DTSFZ50  DD  DISP=SHR                        /* (***>>>)
//**STEP0100.DTSFNZ50 DD  DISP=SHR
//**STEP0100.DTSFRPLY DD  DISP=SHR
//****
//*      PRINT FIRST 50 ZERO CERTIFICATION REPLY RECORDS
//****
//STEP0125 EXEC PGM=IDCAMS,
//          COND=(0,LT)
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
//          HOLD=&LHOLD.
//FILEIN   DD DSN=DOESTAX.&LVLNODE..FUTAZ50.&FISCALYR.,DISP=SHR
//SYSIN    DD *
  PRINT -
    INFILE (FILEIN)
/*
//****
//*      PRINT FIRST 50 NON-ZERO CERTIFICATION REPLY RECORDS
//****
//STEP0150 EXEC PGM=IDCAMS,
//          COND=(0,LT)
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
//          HOLD=&LHOLD.
//FILEIN   DD DSN=DOESTAX.&LVLNODE..FUTANZ50.&FISCALYR.,DISP=SHR
//SYSIN    DD *
 PRINT -
   INFILE (FILEIN)
/*
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT,                 
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
//         DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR
//SORTOUT  DD  DSN=&&SRTRPT,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16384,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//***
//STEP0210 EXEC PGM=IDCAMS,       SAVE SORTED REPORT FILE
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=&&SRTRPT,
//             DISP=(OLD,PASS,DELETE)
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..FUTA704.RPT.&FISCALYR,
//****                                  USE DISP=SHR, IF A RERUN ***>>>
//****         DISP=SHR,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  *
  REPRO INFILE(INDD01) -
        OUTFILE(OUTDD01) -
        REPLACE
/*
//***                                       REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.PARMIN  DD  *
DTSBD800,EXC,708
/*
//**                           SUCCESSFUL FUTA CERTIFICATIONS
//STEP0100.RPT704R1 DD  SYSOUT=0
//**                           FAILED     FUTA CERTIFICATIONS
//STEP0100.RPT705R1 DD  SYSOUT=0
//*
//STEP0100.RPT708R1 DD DUMMY
//*