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

commiting everything bcz i am moving all stuff to another machine 10.57.100.120

Browse Source
This commit is contained in:
faizana
2025-08-29 14:07:12 -04:00
parent ef98c08de5
commit 47c88673c2
42 changed files with 127557 additions and 290 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
Procs/DTSUX777 Normal file
View File

@ -0,0 +1,112 @@
//*****
//* UI TAX PERIODIC EXTRACT: DATA VALIDATION
//*
//* 04/02/2009 ADDED TPS STATUS FILES, CHANGED DATA
//* VALIDATION FILES FROM TEMPORARY TO PERMANENT. GD
//*
//*****
//DTSUX777 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='Y'
//****
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//*
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.TAXWGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*OCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFBTCO DD DSN=&&BE770TRN,
// DISP=(NEW,PASS,DELETE),
// SPACE=(16384,(950,750),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//BE770PRM DD DSN=DOESTAX.PROD.BE770PRM,
// DISP=(NEW,CATLG,DELETE),
// 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),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT2 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR2,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT3 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR3,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT4 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR4,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//DTSFVRO1 DD DUMMY
//SYSIN DD DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT, SORT
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&BE770TRN,
// DISP=(OLD,PASS,DELETE)
//SORTOUT DD DSN=&&BE770SRT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16384,(950,700),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSY770),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//*********************************************************************
//STEP0300 EXEC PGM=DTSBX770, BUILD RECONSTRUCTION FILE
// COND=(0,LT)
//*
//BE770PRM DD DSN=DOESTAX.PROD.BE770PRM,
// DISP=(SHR)
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// 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),
// SPACE=(23500,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500)
//DTSX772 DD DSN=DOESTAX.&LVLNODE..BX772TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(24800,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800)
//DTSX773 DD DSN=DOESTAX.&LVLNODE..BX773TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(16300,(500,300),RLSE),
// DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300)
//DTSX774 DD DSN=DOESTAX.&LVLNODE..BX774TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(23250,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250)
//DTSX775 DD DSN=DOESTAX.&LVLNODE..BX775TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(24600,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=250,BLKSIZE=25000)