giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f8b9dd0f5612ad38b5ea474fd5af67b0e43194ce
DUTAS/Procs/DES300T1
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

282 lines
14 KiB
Plaintext
Raw Blame History

//DESBDGSI PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0200 EXEC PGM=DESBD470, 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.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//*
//*
//*
//STEP0300 EXEC PGM=DESBD480, 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.WGH,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.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//SORTOUT DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1),
// DISP=(,CATLG,DELETE),
// UNIT=CART,
// VOLUME=(,RETAIN),
// LABEL=(1,SL,,,EXPDT=99000),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//*
//****
//**************************************************************** 00001700
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
// COND=(0,LT) 00007702
//SYSOUT DD SYSOUT=* 00007802
//SORTIN DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1),DISP=SHR
// DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
//* 00009302
//**************************************************************** 00001700
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
// COND=(0,LT), FIND SUCCESSOR IF ANY
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
//*TSFWGHI DD DSN=&&WGESRT1,
//* DISP=(OLD,PASS,DELETE)
//DTSFWGHI DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//*
//DTSFWGHO DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//*TSFWGHO DD DSN=&&WGEOUT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//DTSFWESQ DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//*TSFWESQ DD DSN=&&WESQOUT1,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//DTSFVRO1 DD DSN=&&RPT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//**************************************************************** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*ORTIN DD DSN=&&WGEOUT2, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//*ORTOUT DD DSN=&&WGESRT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//*TEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
//* COND=(0,LT),
//* REGION=4096K
//*YSOUT DD SYSOUT=*
//*YSABOUT DD SYSOUT=*
//*YSABEND DD SYSOUT=*
//* 00001700
//*TSFWGHI DD DSN=&&WGESRT2,
//* DISP=(OLD,DELETE,DELETE)
//*
//*TSFWGHO DD DSN=&&WGEOUT3,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//**************************************************************** 00001700
//STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053
// COND=(0,LT), 00780053
// REGION=4096K
//SYSOUT DD SYSOUT=* 00750053
//SYSPRINT DD SYSOUT=* 00750053
//SYSABOUT DD SYSOUT=* 00750053
//SYSABEND DD SYSOUT=* 00750053
//DTSFWGIN DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*TSFWGIN DD DSN=&&WGEOUT3,
//* DISP=(OLD,PASS,DELETE)
//*
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*
//DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,
// DISP=(OLD,KEEP,KEEP)
//DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(14,(14,14),RLSE),
// DCB=(RECFM=FB,LRECL=14,BLKSIZE=14)
//*
//**************************************************************** 00001700
//STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*NDD01 DD DSN=&&WGEOUT3,
//* DISP=(OLD,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
//*
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//*ORTIN DD DSN=&&WESQOUT1, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//*ORTOUT DD DSN=&&WESQSRT1,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//*TSFWESI DD DSN=&&WESQSRT1,
//* DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//*TSFWESO DD DSN=&&WESQOUT2,
//** DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//*
//STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//*ORTIN DD DSN=&&WESQOUT2, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//*ORTOUT DD DSN=&&WESQSRT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//*TSFWESI DD DSN=&&WESQSRT2,
//* DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//*TSFWESO DD DSN=&&WESQOUT3,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//**************************************************************** 00001700
//STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053
//* 00780053
//STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//*NDD01 DD DSN=&&WESQOUT3,
//* DISP=(OLD,DELETE,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
Reference in New Issue View Git Blame Copy Permalink