176 lines
7.9 KiB
Plaintext
176 lines
7.9 KiB
Plaintext
//****************************************************************** 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**************************
|