//DTSBX626 JOB (UI,4300,3400,T),DUTAS-WELLS-ACH,                        00000010
//          CLASS=S,MSGCLASS=X,                                         00000010
//*         TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTZL1,
//          REGION=0M
//*                                                                     00001700
//   SET MSTNODE='PROD'
//   SET PRGNODE='PROD'
//   SET LVDHOLD='YES'                                                  00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSITLIB                                      00001600
//**                                                                    00001700
//*   COMPARE WELLS FARGO ACH DEPOSIT FILE WITH ACH DEPOSIT FILE SENT   00001700
//*   TO DUTAS. IF FILES TOTAL AMOUNT DOES NOT MATCH JOB WILL CONTINUE  00001700
//*   PLEASE CHECK WITH ESSP TO WORK OUT THE DIFFERENCES                00001700
//*                                                                     00001700
//*>>>WILL NOT____STOP WELLS ACH DEPOSIT FROM TRANSMITTING .ZL1 92022   00001700
//*                                                                     00001700
//*                                                                     00001700
//*   RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1)                         00001700
//*                                                                     00001700
//*   READ-ONLY - NO MASTER FILE UPDATES.                               00001700
//*                                                                     00001700
//*    INPUT FILES:                                                     00001700
//*      ESSP ACH ALLOCATED PAYMENTS: DOESTAX.CONV.DOESESSP.X145EACH
//*   OUTPUT FILE:                                                      00001700
//*                                                                     00001700
//*                                                                     00001700
//*   THIS JOB MAY BE RERUN.   TESTING RC  ZL1 09/06/25                00001700
//*   IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS.                    00001700
//**                                                                    00001700
//STEP0100 EXEC PGM=SORT,                    SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//*ORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,DISP=SHR
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,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)
//SORTOUT  DD  DSN=DOESTAX.CONV.DOESESSP.X145EACH(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(25600,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0200 EXEC PGM=SORT,                    SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//*ORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,DISP=SHR
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,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)
//SORTOUT  DD  DSN=&&RPTACH,
//             DISP=(,PASS,DELETE),
//*            DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(25600,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0300 EXEC PGM=SORT,                    SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//*ORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,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)
//SORTOUT  DD  DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSS626),DISP=SHR
//*
//STEP0350 EXEC PGM=SORT,                    SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR
//*ORTIN   DD  DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+0),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)
//SORTOUT  DD  DSN=&&WEBIMPRT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400)
//*
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSA626),DISP=SHR
//*
//STEP0400 EXEC DTSBX626
//***********************************************************
//*
//*
//  IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//         'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** MATCH ***',
//         'FILEDESC: WELLS-DUTAS ACH REPORT                   ',
//         'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2   DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//  ELSE
//***********************************************************
//STEP0600 EXEC PGM=IEBGENER,REGION=4M
//*            COND=(0,EQ,STEP0400)
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//         'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** FAILED ***',
//         'FILEDESC: WELLS-DUTAS ACH DEPOSITS NOT MATCHING    ',
//         'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2   DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//  ENDIF
//**                                                                    00001700