Files
DUTAS/Procs/DTSGSID9
2025-07-21 11:20:11 -04:00

62 lines
2.5 KiB
Plaintext

//DTSGSID9 PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0200 EXEC PGM=DESBD471, DELETE WAGES TO TAX WHG FILE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//*
//*
//*
//STEP0300 EXEC PGM=DESBD481, ADD WAGES TO TAX WHG FILE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSXWGH DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//* DD DSN=DOESTAX.CONV.DTS193.W4FILE,DISP=SHR
//* DD DSN=DOESTAX.CONV.DCGOV.ICESA.W4TRANS,DISP=SHR
//*TSFWTRN DD DSN=DOESTAX.PROD.DTS.W4FILE,
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(CYL,(10,5)),
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//*
//*********************************************************************
//STEP0400 EXEC PGM=SORT,REGION=0K, WWGH WAGE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//SORTOUT DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWAGE(+1),
// DISP=(,CATLG,DELETE),
// UNIT=CART,
// VOLUME=(,RETAIN),
// LABEL=(1,SL,,,EXPDT=99000),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=23,BLKSIZE=23000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//*
//*