//*****
//*    UI TAX PERIODIC EXTRACT: DATA VALIDATION
//*
//*    04/02/2009 ADDED TPS STATUS FILES, CHANGED DATA
//*               VALIDATION FILES FROM TEMPORARY TO PERMANENT. GD
//*
//*****
//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
//*
//DTSFWGH  DD  DSN=DOESTAX.PROD.VSAM.TAXWGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//*OCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 01760006
//             AMP=('BUFNI=5,BUFND=10')                                 01770006
//DTSFBTCO DD  DSN=&&BE770TRN,
//             DISP=(NEW,PASS,DELETE),
//             SPACE=(16384,(950,750),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//BE770PRM DD  DSN=&&BE770PRM,
//             DISP=(NEW,PASS,DELETE),
//             SPACE=(77,(1,1),RLSE),
//             DCB=(RECFM=FB,LRECL=77,BLKSIZE=77)
//TPSSTAT1 DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR1,
//           DISP=(NEW,CATLG,DELETE),
//*             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT2 DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR2,
//           DISP=(NEW,CATLG,DELETE),
//*             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES, 
//             DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT3 DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR3,
//           DISP=(NEW,CATLG,DELETE),
//*             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,  
//             DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT4 DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR4,
//           DISP=(NEW,CATLG,DELETE),
//*             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//DTSFVRO1 DD  DUMMY
//SYSIN    DD  DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT,                              SORT
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=&&BE770TRN,
//             DISP=(OLD,PASS,DELETE)
//SORTOUT  DD  DSN=&&BE770SRT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16384,(950,700),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSY770),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//*********************************************************************
//STEP0300 EXEC PGM=DTSBX770,         BUILD RECONSTRUCTION FILE
//             COND=(0,LT)
//*
//BE770PRM DD  DSN=&&BE770PRM,
//             DISP=(OLD,PASS,DELETE)
//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=(NEW,CATLG,DELETE),
//             SPACE=(23500,(200,200),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=235,BLKSIZE=23500)
//*
//DTSX772  DD  DSN=DOESTAX.&LVLNODE..BX772TRN,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(24800,(200,200),RLSE),
//            CODEPAGE=1252,AUTOENCODE=YES, 
//             DCB=(RECFM=LSEQ,LRECL=124,BLKSIZE=24800)
//*
//DTSX773  DD  DSN=DOESTAX.&LVLNODE..BX773TRN,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(16300,(500,300),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=163,BLKSIZE=16300)
//*
//DTSX774  DD  DSN=DOESTAX.&LVLNODE..BX774TRN,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(23250,(1500,500),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=155,BLKSIZE=23250)
//*
//DTSX775  DD  DSN=DOESTAX.&LVLNODE..BX775TRN,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(24600,(1500,500),RLSE),
//             CODEPAGE=1252,AUTOENCODE=YES,  
//             DCB=(RECFM=LSEQ,LRECL=250,BLKSIZE=25000)