//DTSBX430 JOB (UI,4300,3400,T),DTSBXRPT-ESSP-RPTS,                     00000010
//          CLASS=A,MSGCLASS=X,                                         00000010
//*          TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTZL1,
//          REGION=0M
//*                                                                     00001700
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET IMPNODE='CONV'
//   SET LVDHOLD='YES'                                                  00001700
//   SET LHOLD='YES'                                                    00001700
//   SET EXTNODE='CONV'                                                 00001700
//   SET RPTNODE='ESSP.BX420.RPT'                                       00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
//LOADLIBS INCLUDE MEMBER=DTSITLIB                                      00001600
//**                                                                    00001700
//*   PROCESS EMPLOYER QUARTERLY REPORT AND WAGES                       00001700
//*   CREATE T028 TRANSACTIONS FOR DUTAS CICS SYSTEM                    00001700
//**                                                                    00001700
//** THIS JOB WILL PROCESS ESSP REPORT AND WAGES                        00001700
//**                                                                    00001700
//**  REPORTS(X140) WILL GO TO PENDING FILE WHEN NO EMPLOYER PROFILE    00001700
//**     RECORD FOUND.                                                  00001700
//**                                                                    00001700
//** ESSP FILES PROCESSED BY DUTAS:                                     00001700
//*      - X140 -EMPLOYER REPORT DATA (ESSP/ESSP)                       00001700
//*      - X144 -EMPLOYER QUARTERLY WAGE DATA FROM (ESSP/TDEC)          00001700
//*                                                                     00001700
//*   READ-ONLY - NO MASTER FILE UPDATES - CREATES T028 TRANSACTIONS    00001700
//*                                                                     00001700
//*   OUTPUT FILES:                                                     00001700
//*          DOESTAX.PROD.ESSP.X430.BTC                                 00001700
//*          DOESTAX.PROD.ESSP.PENDING.X140                             00001700
//*                                                                     00001700
//*   THIS JOB MAY BE RERUN BUT IT WILL CREATE DUPLICATE PENDING FILES  00001700
//*****  DELETE LAST GENERATION OF PENDING FILES CREATED OR DUPLICATE   00001700
//*****  REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED    00001700
//*   IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS.       00001700
//**                                                                    00001700
//*************************************            01/19/17     ZL1
//STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//*ORTIN   DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTIN   DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//         DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//SORTOUT  DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,17,CH,A)
  INCLUDE COND=(19,8,CH,EQ,C'00000000')
  END
//*                                                                     00001700
//*
//STEP0110 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//*ORTIN   DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN   DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//         DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//SORTOUT  DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,17,CH,A)
  INCLUDE COND=(19,8,CH,EQ,C'00000000')
  END
//*
//STEP0200 EXEC DTSBX430
//*
//STEP0200 EXEC DTSRSESP
//*                                         REPORT GENERATION
//*TEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD  HOLD=YES
//STEP0100.RPT140R2 DD  HOLD=YES
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//**                                                                    00001700