45 lines
2.4 KiB
Plaintext
45 lines
2.4 KiB
Plaintext
//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..PROCLIB 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
|