//DTSBX411 JOB (UI,4300,3400,T),DTSBX411, 00000010 // CLASS=S,MSGCLASS=X, 00000010 //* TYPRUN=SCAN, //*** USER=#DOADTS, // NOTIFY=ECNTSUP, // REGION=0M //* 00001700 // SET LVLNODE='PROD' // SET MSTNODE='PROD' // SET PRGNODE='PROD' //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //** 00001700 //* EXTRACT EMPLOYER AND WAGE DATA FROM MAINFRAME FOR 00001700 //* DOWNLOAD TO WEB DATABASE. 00001700 //* 00001700 //* >>> INITIAL CONVERSION 00001700 //* 00001700 //* READ-ONLY - NO MASTER FILE UPDATES. 00001700 //* 00001700 //* OUTPUT FILE: 00001700 //* 00001700 //* 00001700 //* THIS JOB MAY BE RERUN. 00001700 //* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700 //** 00001700 //* EXTRACT EMPLOYER DATA 00001700 //** 00001700 //STEP0100 EXEC DTSBX411 //** 00001700