148 lines
6.5 KiB
Plaintext
148 lines
6.5 KiB
Plaintext
//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
|