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

22
JCL/DTSBX629.jcl
View File

@ -22,7 +22,7 @@
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+0),DISP=SHR 00130010
// DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
@ -34,7 +34,7 @@
// UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002
//*SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSSX629),DISP=SHR 00213002
//SYSIN DD * 00213102
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
SUM FIELDS=NONE 00213302
@ -57,8 +57,7 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//* 00360000
//************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
@ -73,10 +72,15 @@
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,
//* DISP=(NEW,CATLG,DELETE), 00300000
// DISP=SHR, 00310000
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307006
//SYSOUT DD SYSOUT=* 01308000
//* 01360006
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
//*
//EMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
//OUT1 OUTPUT DEST=U1003, 01364000
@ -85,13 +89,13 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
// 'CC:TIM.PERLOW@DC.GOV', 01369016
// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
// 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
// MAILFROM=DUTAS@DC.GOV 01369615
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01369800
//SYSIN DD DUMMY 01369900
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
//**********************************************************************01380000