//DTSBX427 JOB (UI,4300,3400,T),DTSBX420, 00000010 // CLASS=A,MSGCLASS=X, 00000010 //* TYPRUN=SCAN, // USER=#DOADTS, // NOTIFY=ECNTZL1, // REGION=0M //* 00001700 // SET LVLNODE='PROD' // SET MSTNODE='PROD' // SET IMPNODE='PROD' // SET LVDHOLD='YES' 00001700 // SET RPTNODE='BX420.RPT' //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //** 00001700 //* PROCESS EMP ADDRESS FROM ESSP WEB DATABASE,UPDATE DUTAS 00001700 //* MAINFRAME CICS SYSTEM. 00001700 //** 00001700 //** 00001700 //** ESSP FILES PROCESSED BY THIS JOB 00001700 //* - X110 -EMPLOYER MAILING AND DC ADDRESS UPDATES 00001700 //* 00001700 //* 00001700 //* OUTPUT FILE: 00001700 //* UPDATE DUTAS PROFILE AND MTAD ADDRESS FILES 00001700 //* 00001700 //* THIS JOB MAY BE RERUN. 00001700 //* RESTORE NEEDED 00001700 //** 00001700 //***************************************************************** //** //STEP0075 EXEC DTSBX427 // //STEP0200 EXEC DTSRSESP //*** //* REPORT GENERATION //*STEP0300 EXEC DTSRQRPT //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