153 lines
7.7 KiB
Plaintext
153 lines
7.7 KiB
Plaintext
//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
//* TYPRUN=SCAN,
|
|
// NOTIFY=ECNTZL1
|
|
//* 00001700
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET FTPNODE='PROD'
|
|
// SET EXTNODE='CONV'
|
|
// SET IMPNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
// SET LDEST=U@PRT65
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//* 00001700
|
|
//******************************************************************** 00001700
|
|
//* ADDED AUDIT JOBS BX440 AND BX442 JOBS 8/8/12 ZL1. 00001700
|
|
//* 00001700
|
|
//* ADDED STEP0025/26 TO INITILIZE DUTAS WAGE FILE BEFORE THE DAILY 00001700
|
|
//* PRODUCTION CYCLE STARTS. WHEN FILE IS NOT INITILIZE AND DUTAS 00001700
|
|
//* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700
|
|
//* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700
|
|
//* 00001700
|
|
//* TESTING RC 09/13/25 ZL1 00001700
|
|
//* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700
|
|
//* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700
|
|
//* 10/8/14 ZL1 00001700
|
|
//* 00001700
|
|
//* REMOVED STEP200 DTSBESSP AND PLACED IN DTSBXREG PROCESS 00001700
|
|
//* 12/11/14 NH1 00001700
|
|
//* 00001700
|
|
//* STARTED ACCEPTING ADUITS FORM WEB PACKAGE 00001700
|
|
//* 03/21/17 ZL1 00001700
|
|
//******************************************************************** 00001700
|
|
//********** DELETE W4 WAGE FILE **************************
|
|
//******************************************************************** 00001700
|
|
//STEP0025 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DELW4FIL DD DSN=DOESTAX.PROD.W4FILE,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//********************************************************************
|
|
//********** CREATE W4 WAGE FILE ***********************
|
|
//******************************************************************** 00001700
|
|
//STEP0026 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//WAGEFILE DD DSN=DOESTAX.&LVLNODE..W4FILE,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
|
|
//*********************************************************************
|
|
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
|
|
//********************************************************************
|
|
//*********************************************************************
|
|
//STEP0400 EXEC DTSUTVSM, 00002102
|
|
// BKUPGEN='(+1)',freq='DAILY'
|
|
//*****
|
|
//********************************************************************
|
|
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700
|
|
//********************************************************************
|
|
//*
|
|
//*TEP0100 EXEC DTSBLCNV /BACKUP WEB AND TDEC DAILY FILES
|
|
//* 00001700
|
|
//*TEP0200 EXEC DTSBESSP /BACKUP ESSP DAILY INPUT FILES
|
|
//* 00001700
|
|
//STEP0075 EXEC PGM=IDCAMS, COPY AUDIT LAPTOP INPUT FILE
|
|
// COND=(0,LT) TO PRODUCTION
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,DISP=SHR
|
|
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//** /* PROCESS AUDIT EMPLOYER DATA WEB
|
|
//STEP0100 EXEC DTSBX440
|
|
//*
|
|
//** /* PROCESS AUDIT WAGES INTERNAL WEB
|
|
//STEP0120 EXEC DTSBX442
|
|
//*
|
|
//*
|
|
//STEP4403 EXEC PGM=IDCAMS, COPY T040 TRANSACTIONS TO BTC
|
|
// COND=(0,LT) WHEN BX440 AND BX442 RETURNS 00
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=&&X440BTC,DISP=(OLD,DELETE,DELETE)
|
|
//OUTDD01 DD DSN=DOESTAX.&MSTNODE..BX440.BTC,
|
|
// DISP=SHR,
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//
|
|
//STEP0100 EXEC PGM=DTSBX668, CHARGE OFF 75% FOR UIPL18-20
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//DSTAUDIT DD DUMMY
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*XPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E180909.Q222Q223,DISP=SHR
|
|
//*XPBZ016 DD DSN=DOESTAX.CONV.UIPL1820.Q234SI.CHGOFREV,DISP=SHR
|
|
//*XPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E155489.Q231,DISP=SHR
|
|
//EXPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E820884.Q251,DISP=SHR
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//X282BTC DD DSN=DOESTAX.&MSTNODE..BTC(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
//* DISP=SHR,
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+2),
|
|
// DISP=(,CATLG,DELETE),
|
|
//* DISP=SHR,
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//* STOP HERE FOR NOW ZL1
|
|
//*
|
|
//*********************************************************************
|
|
//*
|
|
//*
|
|
//*TEP0100 EXEC PGM=DTSBX481, /* UPDATE PHONE AND EMAIL ADDRESS
|
|
//*
|
|
//*******************************************************************
|
|
//*TEP1000 EXEC PGM=DTSBZ601,
|
|
//* SET 1 OF 3 PAYMENTS DUPLICATED ON 2/11/15 830 PAYTS OF 1024
|
|
//* SET 1 OF 2 PAYMENTS DUPLICATED ON 2/02/15 - 46 OF 46
|
|
//* SET 2 OF 2 PAYMENTS DUPLICATED ON 2/03/15 - 46 OF 46
|
|
//*TSIZ058 DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS.DD021915,DISP=SHR
|
|
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS0211.SET1,DISP=SHR
|
|
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS4602.SET1,DISP=SHR
|
|
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS4603.SET2,DISP=SHR
|
|
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS.DD021815,DISP=SHR
|
|
//*
|
|
//* BACKUP ALL EXTERNAL FILES PROD AND PROD.CONV USED BY DTSPDAY1 00001700
|
|
//*******************************************************************
|
|
//*TEP0100 EXEC DTSBKPRD
|
|
//**************************************************************
|
|
//*STEP0100 EXEC PGM=DTSBZ053, SET SELF INSURED TAX DUE DATE
|
|
//*STEP0100 EXEC PGM=DTSBZ057, RESET REPORT RECEIVED DATE
|
|
//*STEP0100 EXEC PGM=DTSBZ478, RESET EMPLOYR REPORT STATUS
|
|
//*STEP0100 EXEC PGM=DTSBZ073, CREATE MEVL FOR ESTIMATED RPTS Q133
|
|
//*STEP0100 EXEC PGM=DTSBZ017, FIX NAICS CODES FOR LMI
|
|
//*TEP0100 EXEC PGM=DTSBZ059, CORRECT DUPLICATE PAYMENTS
|
|
//*TEP0100 EXEC PGM=DTSBZ063, CORRECT ANNUAL 4TH QTR RPT
|
|
//*TEP0100 EXEC PGM=DTSBZ018, RESET EMP ORG TYPE
|
|
//*TEP0100 EXEC PGM=DTSBX666, CHARGE OFF INT CHARGES - ONLY
|
|
//*
|