35 lines
2.2 KiB
Plaintext
35 lines
2.2 KiB
Plaintext
//DTSBX475 JOB (UI,4300,3400,T),EMP.ADDR.EXTRACT.BEN, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
//* TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
//*** USER=ECNTSUP,
|
|
// NOTIFY=ECNTSUP,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//* 00001700
|
|
// SET UINODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//** 00001700
|
|
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS, RATE) 00001700
|
|
//* FROM TAX MASTER FILES FOR USE IN A BENEFITS WEB APPLICATION 00001700
|
|
//* 00001700
|
|
//* RUNS AS PART OF THE WEEK-END PROCESS 00001700
|
|
//* 00001700
|
|
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
|
|
//* 00001700
|
|
//* OUTPUT FILE: UI.TAX.PROD.WEEKLY.EXTRACT 00001700
|
|
//* 00001700
|
|
//* THIS JOB MAY BE RERUN. THE TIMING IS NOT CRITICAL. 00001700
|
|
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
|
|
//* IF IT IS RERUN, IT MUST BE THROUGH CA7, SINCE IT WRITES TO 00001700
|
|
//* A FILE WITH A HIGH LEVEL NODE OF 'UI'. 00001700
|
|
//** 00001700
|
|
//STEP0100 EXEC DTSBX475
|
|
//*** (FOLLOWING FILE CAN BE USED FOR TEST OVERRIDE) 00001700
|
|
//***STEP0100.ADRFILE DD DSN=DOESTAX.DEVL.UI.WEEKLY.EXTRACT
|
|
//** 00001700
|