//DTSRQ793 JOB (UI,4300,3400,T),FUTA.QTRLY.CHNG,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//         USER=#DOADTS,
//         REGION=0M
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//****
//****
//* REQUEST REPORT DTSBR793 - FUTA QTRLY- POTENTIAL LIABLE EMPLOYERS.
//* RUN JOB WHEN THE IRS QTRLY FUTA CHANGE TAPE HAS BEEN DOWNLOADED
//****
//*     (CHANGE FISCAL YEAR/QTR BEFORE RUNNING THIS JOB)
//****
//  SET FISYRQTR='QTR222' <<<< CHANGE BEFORE RUNNING JOB >>>>>>
//  SET LVLNODE='PROD'
//  SET MSTNODE='PROD'
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*****************************************************************
//*****    SORT FUTA FILE AND EXCLUDE DUPLICATE FEIN          *****
//*****                                                       *****
//*****************************************************************
//SORT1    EXEC PGM=SYNCSORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=DOESTAX.CONV.FUTACHNG.&FISYRQTR.,DISP=SHR
//         DD DSN=DOESTAX.CONV.FUTACHNG.QTR221,DISP=SHR
//SORTOUT  DD DSN=DOESTAX.CONV.FUTACHNG.SORTED,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(5,9,CH,A)
  SUM FIELDS=NONE
  END
//*
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUX793
//*
//STEP0100.DTSFQEUP DD  DSN=DOESTAX.CONV.FUTACHNG.SORTED,
//           DISP=SHR
//***
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//*TEP0100.RPT793R1 DD  HOLD=YES
//STEP0100.RPT793R2 DD  DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
//STEP0100.RPT793R3 DD  DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
//*
//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:MACARENA.CANTELAS@DC.GOV',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:ROSALIND.HOLBROOK@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//         'SUBJECT: IRS FUTA QTR (NOT IN DUTAS) REPORT',
//         'FILENAME:FUTA_X793_MAILED.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:MACARENA.CANTELAS@DC.GOV',
//            'TO:ROSALIND.HOLBROOK@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//         'SUBJECT: IRS FUTA QTR (FOUND IN DUTAS) REPORT',
//         'FILENAME:FUTA_X793_INDUTAS.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*