39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
//DTSBE405 JOB (UI,4300,3400,T),DEVL.BE418,CLASS=A,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
//****
|
|
// SET MSTNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//****
|
|
//* JOB : PRINT LIENS RELEASES (405) DAILY AFTER PDAY1
|
|
//****
|
|
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//*********************************************************************
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='QD',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD *
|
|
405
|
|
/*
|
|
//*STOP HERE - CALL JOB DTSBX405 TO CREATE LIEN 405 RECORDS.
|
|
//*
|
|
//*TEP0200 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//*TEP0300 EXEC DTSRQRPT
|
|
//*TEP0100.RPT405R1 DD HOLD=YES
|
|
//*TEP0100.RPT405R2 DD HOLD=YES
|
|
//*TEP0100.DTS901R1 DD HOLD=YES
|
|
//*TEP0100.RPT907R1 DD HOLD=YES
|
|
//*TEP0100.RPT907R2 DD HOLD=YES
|
|
//*TEP0100.RPT980R1 DD HOLD=YES
|
|
//*OESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
|
|
//* 00640000
|