246 lines
9.4 KiB
Plaintext
246 lines
9.4 KiB
Plaintext
//DTSBX148 PROC RUNTYPE='ONTIME' 00000010
|
|
//* 00001700
|
|
//*************************************************** 00001700
|
|
//* MATCH W4 TRANSACTIONS TO REPORTS
|
|
//*************************************************** 00001700
|
|
//* 00001700
|
|
//*****************************************************************
|
|
//***
|
|
//*****************************************************************
|
|
//* SORT TDEC FILE
|
|
//*****************************************************************
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY BATCH/EMP/YRQ/SSN
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//*
|
|
//SORTIN DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
|
|
// DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTOUT DD DSN=&&TDECSRT1,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(10,5),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
|
|
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
|
|
//*
|
|
//*****************************************************************
|
|
//* EDIT TDEC FILE
|
|
//*****************************************************************
|
|
//STEP0200 EXEC PGM=DESBD420,
|
|
// PARM='&RUNTYPE.',
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFTDIN DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
|
|
//*
|
|
//DTSFTDO DD DSN=&&TDECEDIT,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(10,5),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
|
|
//*
|
|
//***********************************************************
|
|
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:GIL.DIMATTIA@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: NO TDEC WAGES ON MAINFRAME...........ZL1',
|
|
// 'FILEDESC: TDEC WAGE REPORT ',
|
|
// 'FILENAME:NO_TDEC_WAGES.TXT')
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//*
|
|
//***********************************************************
|
|
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: TDEC WAGES ON MAINFRAME IN ERROR..ZL1',
|
|
// 'FILEDESC: TDEC WAGE REPORT ',
|
|
// 'FILENAME:NO_TDEC_WAGES.TXT')
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//*
|
|
//***********************************************************
|
|
//* FIND REPORTS, WRITE TRANSACTIONS
|
|
//***********************************************************
|
|
//STEP0400 EXEC PGM=DESBD422,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFITM DD DSN=DOESTAX.DEVL.VSAM.ITM,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//DTSFTDIN DD DSN=&&TDECEDIT,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//**
|
|
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
|
|
//DTSFW004 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..W4FILE,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(20,5)),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
|
|
//*
|
|
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
|
|
//DTSFW153 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..X153,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(20,5)),
|
|
// DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
|
|
//*
|
|
//** WTC WAGES
|
|
//DTSFW001 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGE.BTC,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
//*
|
|
//DTSFPEND DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
|
|
//*
|
|
//DTSFMISS DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(7800,(100,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=78,BLKSIZE=7800)
|
|
//*
|
|
//DTSFERR DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(12100,(100,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=12100)
|
|
//*
|
|
//*
|
|
//DTSFCNT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
|
|
//** DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(3700,(100,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
|
|
//****************************************************
|
|
//**
|
|
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', REBUILD PENDING FILE
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..PENDING,
|
|
//** DISP=(,CATLG,DELETE),
|
|
// DISP=(MOD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
|
|
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
|
|
//*
|
|
//****************************************************
|
|
//**
|
|
//STEP0600 EXEC PGM=IEBGENER,
|
|
// COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: TDEC MISSING REPORTS )',
|
|
// 'FILEDESC: TDEC MISSING REPORTS ',
|
|
// 'FILENAME: TDEC.ERROR1.TXT')
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
|
|
// DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//****************************************************
|
|
//**
|
|
//STEP0700 EXEC PGM=IEBGENER,
|
|
// COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: TDEC WAGE DISCREPANCIES )',
|
|
// 'FILEDESC: TDEC WAGE DISCREPANCIES ',
|
|
// 'FILENAME: TDEC.ERROR2.TXT')
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
|
|
// DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//****************************************************
|
|
//**
|
|
//STEP0800 EXEC PGM=IEBGENER,
|
|
// COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: TDEC COUNTS )',
|
|
// 'FILEDESC: TDEC COUNTS ',
|
|
// 'FILENAME: TDEC.COUNTS.TXT')
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
|
|
// DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|
|
//*********************************************************************
|
|
//STEP0900 EXEC PGM=IDCAMS,COND=(0,LT)
|
|
//**
|
|
//********************************************************************
|
|
//*** COPY TDEC WAGE FILE TO ARCHIVE UPDATE FILE.
|
|
//**
|
|
//********************************************************************
|
|
//IFILE DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
|
|
//**
|
|
//OFILE DD DSN=DOESTAX.CONV.TDECX154.SAVED.&RUNTYPE.(+1),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.DEVL.BEN.APPL.PARMLIB(DTSBREPO),DISP=SHR
|
|
//********************************************************************
|
|
//*** DELETE TDEC DELINQ WAGE FILE(S).
|
|
//**
|
|
//********************************************************************
|
|
//STEP0910 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
|
//*
|
|
//PDDELINQ DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//**************************END OF PROC*******************************
|