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

24
JCL/DTSBX430.jcl
View File

@ -39,17 +39,25 @@
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700
//************************************* 01/19/17 ZL1
//*****************************TESTING RC 09/06/25 ZL1
//STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//*SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//* DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
@ -66,8 +74,16 @@
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//* DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *