//DTSBXPEN 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 PRGNODE='CONV' // 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 PAYMENTS AND WAGES) 00001700 //* 00001700 //** 00001700 //** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700 //** 1. REPORTS(X140) WILL GO TO PEND7DAY FILE WHEN NO MATCHES TO 00001700 //** PAYMENT(X145) FOUND ALONG WITH THE WAGES. 00001700 //** 2. PAYMENT (145) WILL GO TO PEND7DAY FILE WHEN NO MATCHES TO 00001700 //** REPORT NOT FOUND. 00001700 //** 00001700 //** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700 //* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700 //* - X144 -EMPLOYER WAGE DETAIL 00001700 //* - X145 -EMPLOYER PAYMENT DATA 00001700 //* 00001700 //* 00001700 //* READ-ONLY - NO MASTER FILE UPDATES - CREATES T028 TRANSACTIONS 00001700 //* 00001700 //* OUTPUT FILE: 00001700 //* DOESTAX.PROD.ESSP.X435.BTC 00001700 //* DOESTAX.CONV.ESSP.X435.W4FILE 00001700 //* DOESTAX.CONV.ESSP.X435PAID.TXT 00001700 //* DOESTAX.CONV.ESSP.X435PEND.TXT 00001700 //* 00001700 //* 00001700 //* THIS JOB MAY BE RERUN WITH CAUTION; DUPLICATE PAYMENTS MAY OCCUR 00001700 //* <<<< DELETE CURRENT GENERATION OF FILLES BEFORE RUNNING //* //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 //** 00001700 //***************************************************************** //** //STEP0200 EXEC DTSNXPEN //* //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