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

29
JCL/DTSBX630.jcl
View File

@ -4,7 +4,7 @@
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
//** 00054000
//** 00055000
//** RAINCODE TESTED 08/30/25 ZL1 00055000
// SET PRGNODE='DEVL' 00056000
// SET LVLNODE='CONV' 00056100
// SET MSTNODE='PROD' 00056200
@ -28,8 +28,9 @@
//** 00160017
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017
//SYSPRINT DD SYSOUT=(*) 00210017
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
//* 00230017
@ -54,9 +55,13 @@
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01307001
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR,
//* DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307001
//SYSOUT DD SYSOUT=* 01308000
//* 01360000
//* 01360000
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
@ -72,8 +77,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
// MAILFROM=DUTAS@DC.GOV 01369821
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
// DISP=SHR,
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01370004
//SYSIN DD DUMMY 01370104
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
//* 01371006
@ -92,8 +100,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
// MAILFROM=DUTAS@DC.GOV 01379720
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
// DISP=SHR,
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01379906
//SYSIN DD DUMMY 01380006
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
//**********************************************************************01390004