//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1),              JOB10082
//       USER=#DOADTS,
//       MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
//*
//***************************************************
//*  TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
//***************************************************
//*
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET PRGNODE='PROD'
//   SET LVDHOLD='YES'
//  SET LDEST='LOCAL'
//  SET LHOLD='YES'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
//*
//******************************************************************
//STEP0100 EXEC PGM=DTSBX403,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD  DSN=DOESTAX.PROD.SRTDAILY.RPT(0),
//             DISP=SHR
//*
//DTSLN403 DD  DSN=DOESTAX.CONV.LEIN403.RECORD,
//*            DISP=(NEW,CATLG,DELETE),
//             DISP=SHR
//*            UNIT=SYSDA,
//*            SPACE=(CYL,(10,10),RLSE),
//*            DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
//*
//DTSLN405 DD  DUMMY
//*
//*********************************************************************