//*****
//*    UI TAX PERIODIC EXTRACT: DATA VALIDATION
//*****
//DTSUX770 PROC RUNTYPE='OR',
//             PREBACK='N',
//             CHKONLY='N',
//             IOTRACE='Y'
//****
//STEP0100 EXEC PGM=DTSBD400,                         PERIODIC EXTRACT
//             COND=(0,LT),
//         PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//*
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 01760006
//             AMP=('BUFNI=5,BUFND=10')                                 01770006
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,
//             DISP=(,CATLG,DELETE),
//             SPACE=(16384,(100,100),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//BE770PRM DD  DSN=DOESTAX.&LVLNODE..BE770PRM.&QTR,
//             DISP=(,CATLG,DELETE),
//             SPACE=(77,(1,1),RLSE),
//             DCB=(RECFM=FB,LRECL=77,BLKSIZE=77)
//DTSFVRO1 DD  DUMMY
//SYSIN    DD  DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',             SORT
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,DISP=SHR
//SORTOUT  DD  DSN=&&BE770SRT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16384,(100,100),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSY770),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//*********************************************************************
//STEP0300 EXEC PGM=DTSBX770,         BUILD RECONSTRUCTION FILE
//             COND=(0,LT)
//*
//BE770PRM DD  DSN=DOESTAX.&LVLNODE..BE770PRM.&QTR,DISP=SHR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 01760006
//             AMP=('BUFNI=5,BUFND=10')                                 01770006
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(16394,(900,900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFBTCI DD  DSN=&&BE770SRT,
//             DISP=(OLD,PASS,DELETE)
//DTSX771  DD  DSN=DOESTAX.&LVLNODE..BX771TRN,
//             DISP=(,CATLG,DELETE),
//             SPACE=(23500,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500)
//DTSX772  DD  DSN=DOESTAX.&LVLNODE..BX772TRN,
//             DISP=(,CATLG,DELETE),
//             SPACE=(24800,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800)
//DTSX773  DD  DSN=DOESTAX.&LVLNODE..BX773TRN,
//             DISP=(,CATLG,DELETE),
//             SPACE=(16300,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300)
//DTSX774  DD  DSN=DOESTAX.&LVLNODE..BX774TRN,
//             DISP=(,CATLG,DELETE),
//             SPACE=(23250,(1500,500),RLSE),
//             DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250)
//DTSX775  DD  DSN=DOESTAX.&LVLNODE..BX775TRN,
//             DISP=(,CATLG,DELETE),
//             SPACE=(24600,(1500,500),RLSE),
//             DCB=(RECFM=FB,LRECL=246,BLKSIZE=24600)