//******************************************************************    00001700
//**DTSTINIT PROC
//******************************************************************    00001700
//*  THIS PROC WILL CREATE A NEW EMPTY FILES OF ALL TDEC WAGE FILES     00001700
//*  USED IN THE DAILY RUN DTSPDAY1                                     00001700
//******************************************************************    00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//STEP0110 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//**                      BAD SSNS  MERGED WITH DATA ON DTSPDAY1
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0210 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//**             REPORTS FOUND ON ATC FILE PASSED TO DTSPDAY1
//*********************************************************************
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0310 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//*                   MISSING REPORTS FILE EMAIL TO TAX STAFF
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0410 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(7800,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//*
//*********************************************************************
//*                   TDEC WAGE NOT MATCHING UC30 WAGE REPORT - EMAILED
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR  DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0510 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR  DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(12100,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600)
//*
//*********************************************************************
//*                   SUMARY COUNTS REPORT FOR WAGE RECORDS - EMAILED
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT  DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0610 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT  DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(3700,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//*
//* ONTIME FILES
//*
//STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//STEP0710 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//STEP0711 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.PROD.W4FILE,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//STEP0712 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD  DSN=DOESTAX.PROD.W4FILE,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//**                      BAD SSNS  MERGED WITH DATA ON DTSPDAY1
//STEP0720 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//**             REPORTS FOUND ON ATC FILE PASSED TO DTSPDAY1
//*********************************************************************
//STEP0740 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0750 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//*                   MISSING REPORTS FILE EMAIL TO TAX STAFF
//STEP0760 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0770 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(7800,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//*
//*********************************************************************
//*                   TDEC WAGE NOT MATCHING UC30 WAGE REPORT - EMAILED
//STEP0780 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR  DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0790 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR  DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(12100,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600)
//*
//*********************************************************************
//*                   SUMARY COUNTS REPORT FOR WAGE RECORDS - EMAILED
//STEP0791 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT  DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0792 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT  DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(3700,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//**********************END OF TDEC WAGE PROC**************************