//*****
//*
//*    UI TAX PERIODIC EXTRACT FOR WAGE/TAX FILE COMPARE
//*
//*****
//DTSUX737 PROC
//**              DEFNS NEEDED FOR THIS PROC:
//**   LVLNODE = DEVL/TEST/PROD
//**       YRQ = YYQ OF YEAR & QTR  (>=924)
//**     TAMT1 = TOLERANCE AMT #1   (T1<=T2<=T3) E.G. 01000
//**     TAMT2 = TOLERANCE AMT #2                     03000
//**     TAMT3 = TOLERANCE AMT #3                     10000
//**
//****
//STEP0100 EXEC PGM=DTSBD520,                    WAGE FILE EXTRACT
//             COND=(0,LT),
//             PARM='&YRQ.'
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//**                                              WAGE REF FILE
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR
//**                                              WAGE REF FILE
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//EXTFILE  DD  DSN=&&WAGEXT,DISP=(,PASS,DELETE),                        01760006
//             UNIT=SYSDA,
//             SPACE=(8192,(10000,2000),RLSE),
//             DCB=(RECFM=FB,LRECL=83)
//*
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',         SORT WAGE RECORDS
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=&&WAGEXT,DISP=(OLD,DELETE,DELETE)
//SORTOUT  DD  DSN=&&SRTWAG,DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(10000,2000),RLSE),
//             DCB=(RECFM=FB,LRECL=83)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSR737),DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE)
//*
//STEP0300 EXEC PGM=DTSBD530,                    TAX FILE COMPARE
//             COND=(0,LT),
//         PARM='&YRQ.,&TAMT1.,&TAMT2.,&TAMT3.'
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16394,(900,900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//EXTFILE  DD  DSN=&&SRTWAG,DISP=(OLD,DELETE,DELETE)                    01760006
//*