//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.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*                        RAINCODE TESTED 08/30/25             ZL1
//*********************************************************************
//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