//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 //***************************************************************** //********************************************************************* //** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN //****************************************************************** //STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX140 DD DSN=DOESTAX.CONV.ESSP.NOWEBRG.TXT, // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), // DCB=(,RECFM=FB,LRECL=80,BLKSIZE=800) // // //********************************************************************* //** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN //****************************************************************** //STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX145 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145, // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //** //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