//DTSBXREL JOB (UI,4300,3400,T),DTSBXPEN-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.&MSTNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600 //** 00001700 //* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700 //* TESTING RC ZL1 00001700 //** 00001700 //** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700 //** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700 //** PAYMENT(X145) FOUND. ALL REPORTS RELEASED FROM PENDING 00001700 //** FILE THE REMIT AMOUNT WILL BE ZEROED OUT. 00001700 //** 00001700 //** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700 //* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700 //* - X145 -EMPLOYER PAYMENT DATA 00001700 //* 00001700 //* 00001700 //* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700 //* TRANSCATIONS 00001700 //* OUTPUT FILE: 00001700 //* DOESTAX.PROD.X436.BTC 00001700 //* DOESTAX.CONV.X435.W4FILE 00001700 //* 00001700 //* 00001700 //* THIS JOB MAY BE RERUN WITH CAUTION OR DUPLICATE PAYMENT WILL OCCUR00001700 //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 //** 00001700 //***************************************************************** //STEP0200 EXEC DTSNXREL //* //STEP0200 EXEC DTSRSESP //*** //* REPORT GENERATION //*STEP0300 EXEC DTSRERPT //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