giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
Procs/(DTSURVSM0).seq Normal file
View File

@ -0,0 +1,85 @@
//RESTORE JOB
//STEP002 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTA -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP003 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTB -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP004 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTC -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP005 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTD -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP006 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTE -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP061 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTF -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP007 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTG -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP008 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTH -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP081 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTI -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP082 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTJ -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP009 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.AIX -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP010 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.ATC -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//*STEP011 EXEC PGM=restore,
//* PARM='-DD DOESTAX.PROD.VSAM.BTC -GENERATION 0'
//*SYSPRINT DD SYSOUT=*
//*
//STEP012 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.OLA -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP013 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.REF -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP015 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP016 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WESQ -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP017 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WG2 -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP018 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WGH -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP019 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WRK -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*
//STEP020 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WTC -GENERATION 0'
//SYSPRINT DD SYSOUT=*
//*

85
Procs/(DTSURVSM1),seq Normal file
View File

@ -0,0 +1,85 @@
//RESTORE JOB
//STEP002 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTA -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP003 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTB -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP004 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTC -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP005 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTD -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP006 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTE -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP061 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTF -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP007 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTG -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP008 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTH -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP081 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTI -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP082 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.MSTJ -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP009 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.AIX -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP010 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.ATC -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//*STEP011 EXEC PGM=restore,
//* PARM='-DD DOESTAX.PROD.VSAM.BTC -GENERATION -9'
//*SYSPRINT DD SYSOUT=*
//*
//STEP012 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.OLA -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP013 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.REF -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP015 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP016 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WESQ -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP017 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WG2 -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP018 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WGH -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP019 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WRK -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*
//STEP020 EXEC PGM=restore,
// PARM='-DD DOESTAX.PROD.VSAM.WTC -GENERATION -9'
//SYSPRINT DD SYSOUT=*
//*

65
Procs/(DTSUTVSM).seq Normal file
View File

@ -0,0 +1,65 @@
//BACKUP JOB
??*
//STEP002 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTA'
//SYSPRINT DD SYSOUT=*
//*
//STEP003 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTB'
//SYSPRINT DD SYSOUT=*
//*
//STEP004 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTC'
//SYSPRINT DD SYSOUT=*
//*
//STEP005 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTD'
//SYSPRINT DD SYSOUT=*
//*
//STEP006 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTE'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTF'
//SYSPRINT DD SYSOUT=*
//*
//STEP007 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTG'
//SYSPRINT DD SYSOUT=*
//*
//STEP008 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTH'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTI'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTJ'
//SYSPRINT DD SYSOUT=*
//*
//STEP009 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.AIX'
//SYSPRINT DD SYSOUT=*
//*
//STEP010 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATC'
//SYSPRINT DD SYSOUT=*
//*
//*STEP011 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.BTC'
//*SYSPRINT DD SYSOUT=*
//*
//STEP012 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.OLA'
//SYSPRINT DD SYSOUT=*
//*
//STEP013 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.REF'
//SYSPRINT DD SYSOUT=*
//*
//STEP015 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME'
//SYSPRINT DD SYSOUT=*
//*
//STEP016 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WESQ'
//SYSPRINT DD SYSOUT=*
//*
//STEP017 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WG2'
//SYSPRINT DD SYSOUT=*
//*
//STEP018 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WGH'
//SYSPRINT DD SYSOUT=*
//*
//STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WRK'
//SYSPRINT DD SYSOUT=*
//*
//STEP020 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WTC'
//SYSPRINT DD SYSOUT=*
//*

2
Procs/DTSBD551
View File

@ -134,7 +134,7 @@
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR
//***** 00110002
//* REPORT GENERATION 00110002
//STEP0300 EXEC PGM=DTSBD800, 00120002

4
Procs/DTSBX148
View File

@ -22,7 +22,7 @@
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DESSR420),DISP=SHR
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
//*
//*****************************************************************
//* EDIT TDEC FILE
@ -167,7 +167,7 @@
// DISP=(MOD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSR414),DISP=SHR
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
//*
//****************************************************
//**

26
Procs/DTSBX425
View File

@ -1,13 +1,15 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* File="E:\Innova\Code\MP\Git\DUTAS]PROCS <<<<
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX420 PROC
//DTSBX425 PROC
//** 00001700
//***** 00001700
//STEP0110 EXEC PGM=SORT, SORT TRANSACTIONS
//STEP0110 EXEC PGM=SORT,
// REGION=4096K,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -18,13 +20,13 @@
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&WEBIMPRT,
//SORTOUT DD DSN=&&ACHIMP,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
//*
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX425,
// COND=(0,LT),
@ -38,7 +40,7 @@
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//EFTFACH DD DSN=&&WEBIMPRT,
//EFTFACH DD DSN=&&ACHIMP,
// DISP=(OLD,DELETE,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
@ -53,18 +55,12 @@
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
//* DISP=(,CATLG,DELETE),
// DISP=SHR
// DISP=(,CATLG,DELETE),
//* DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,

2
Procs/DTSBX426
View File

@ -18,7 +18,7 @@
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),DISP=SHR
//*EFTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00,DISP=SHR
//EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//DTSFVRO1 DD SYSOUT=*
//* 00001700

15
Procs/DTSBX530
View File

@ -1,11 +1,11 @@
//**** 00000010
//* IMPORT EMPLOYER PAYMNT DATA FROM ESSP - X145 00001700
//* IMPORT EMPLOYER PAYMNT DATA FROM TDEC - X145 00001700
//* CREATE T025 TRANSACTIONS FOR DUTAS 00001700
//* CREATE T025 TRANSACTIONS FOR DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE PRIOR TO (DTSPDAY1) 00001700
//** 00001700
//DTSBX530 PROC
//DTSBX530 PROC TESTING RC ZL1
//** 00001700
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
@ -13,7 +13,13 @@
//*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082018,DISP=SHR 00005000
//SORTIN DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+0),DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.PAYMENT,DISP=SHR
//* DD DSN=DOESTAX.DEVL.FIX.PAYMENT,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(30720,(2000,2000),RLSE), 00008000
//* SPACE=(CYL,(50,25),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
// DD DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+0),DISP=SHR
// DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+0),DISP=SHR
// DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+0),DISP=SHR
@ -30,8 +36,7 @@
//* SPACE=(30720,(2000,2000),RLSE), 00008000
// SPACE=(CYL,(50,25),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX417,
// COND=(0,LT),

82
Procs/DTSBXPAY
View File

@ -5,7 +5,7 @@
//** 00001700
//DTSBXPAY PROC
//** 00001700
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
//STEP0100 EXEC PGM=SORT,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -15,12 +15,12 @@
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(30720,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX437,
@ -46,9 +46,9 @@
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC(+1), 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* DISP=MOD, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
@ -74,38 +74,38 @@
//***********************************************************
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1',
// 'FILEDESC: DOES TDEC REPORT PAYMENTS ',
// 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//*SYSPRINT DD SYSOUT=*
//*OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//* 'CC:MARGARET.HERNANDEZ@DC.GOV',
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:JOY.DIGGS@DC.GOV',
//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
//* 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1',
//* 'FILEDESC: DOES TDEC REPORT PAYMENTS ',
//* 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'),
//* MAILFROM=DUTAS@DC.GOV
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//*SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//*STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M
//*SYSPRINT DD SYSOUT=*
//*OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1',
// 'FILEDESC: TDEC DUTAS PAYMT REPORT ',
// 'FILENAME:TDEC_DUTAS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//* 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1',
//* 'FILEDESC: TDEC DUTAS PAYMT REPORT ',
//* 'FILENAME:TDEC_DUTAS.TXT'),
//* MAILFROM=DUTAS@DC.GOV
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//*SYSIN DD DUMMY
//*
//*
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
@ -120,7 +120,7 @@
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
@ -137,7 +137,7 @@
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
@ -153,7 +153,7 @@
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

2
Procs/DTSDUPDU
View File

@ -347,7 +347,7 @@
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264199
//**** 02264299
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264399
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264399
//**** 02264499
//** 02264599
//DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02264699

2
Procs/DTSGSID9
View File

@ -2,6 +2,8 @@
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//*
//* RAINCODE TESTED 08/30/25 ZL1
//**************************************************************** 00001700
//STEP0200 EXEC PGM=DESBD471, DELETE WAGES TO TAX WHG FILE
// COND=(0,LT),

3
Procs/DTSNXPEN
View File

@ -22,8 +22,7 @@
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX419,
// COND=(0,LT),

2
Procs/DTSNXREL
View File

@ -1,7 +1,7 @@
//**** 00000010
//* PROCESS ESSP PENDING DATA FILES - RELEASE DATA TO DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) TESTING RC ZL1 00001700
//** 00001700
//DTSBXPEN PROC
//** 00001700

27
Procs/DTSRERPT
View File

@ -5,20 +5,27 @@
//DTSRQRPT PROC LDEST='LOCAL',
// LVDHOLD='YES'
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
//DOESLBL1 EXEC PGM=IEBDG, 00001806
// COND=(3,LT) 00001906
//SYSPRINT DD SYSOUT=* 00002006
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//*DOESLBL1 EXEC PGM=IEBDG, 00001806
//* COND=(3,LT) 00001906
//*SYSPRINT DD SYSOUT=* 00002006
//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
//* UNIT=SYSDA, 00002206
//* SPACE=(TRK,1), 00002306
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//*SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506
//* DISP=SHR
//DOESLBL1 EXEC PGM=GENT350,
// COND=(4,LT)
//SYSOUT DD SYSOUT=*
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,1),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
// COND=(3,LT) 00003306
//SYSPRINT DD SYSOUT=* 00003405
//FILEIN DD DSN=&&TMP901, 00003505
//FILEIN DD DSN=TMP901, 00003505
// DISP=(OLD,DELETE,DELETE), 00003605
// UNIT=SYSDA 00003705
//DOESVRO1 DD DSN=&&LBL901, 00003805

4
Procs/DTSRS459
View File

@ -10,8 +10,8 @@
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005299
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005399
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)

58
Procs/DTSUX770
View File

@ -35,28 +35,32 @@
// SPACE=(77,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=77,BLKSIZE=77)
//TPSSTAT1 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR1,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT2 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR2,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT3 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR3,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT4 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR4,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=56,BLKSIZE=28000)
//*
//DTSFVRO1 DD DUMMY
//SYSIN DD DDNAME=EXTPARM
@ -90,23 +94,33 @@
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFBTCI DD DSN=&&BE770SRT,
// DISP=(OLD,PASS,DELETE)
//*
//DTSX771 DD DSN=DOESTAX.&LVLNODE..BX771TRN,
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(23500,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=235,BLKSIZE=23500)
//*
//DTSX772 DD DSN=DOESTAX.&LVLNODE..BX772TRN,
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(24800,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=124,BLKSIZE=24800)
//*
//DTSX773 DD DSN=DOESTAX.&LVLNODE..BX773TRN,
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(16300,(500,300),RLSE),
// DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=163,BLKSIZE=16300)
//*
//DTSX774 DD DSN=DOESTAX.&LVLNODE..BX774TRN,
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(23250,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=155,BLKSIZE=23250)
//*
//DTSX775 DD DSN=DOESTAX.&LVLNODE..BX775TRN,
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(24600,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=250,BLKSIZE=25000)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=250,BLKSIZE=25000)

2
Procs/DTSZUPDT
View File

@ -406,7 +406,7 @@
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264400
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264500
//**** 02264600
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264700
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264700
//**** 02264800
//** 02264900
//DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265000

2
Procs/DTSZX426
View File

@ -18,7 +18,7 @@
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.G0296V00,DISP=SHR
//*EFTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00,DISP=SHR
//EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//DTSFVRO1 DD SYSOUT=*
//* 00001700