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

16
JCL/DTSGSID2.jcl
View File

@ -24,7 +24,7 @@
//** 00001700
//STEP0100 EXEC DTSBX479
//** 00001700
//STEP0200 EXEC PGM=SYNCSORT,
//STEP0200 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -34,7 +34,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -45,7 +45,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W1')
//*
//** 00001700
//STEP0250 EXEC PGM=SYNCSORT,
//STEP0250 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -54,7 +54,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -65,7 +65,7 @@
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
SUM FIELDS=NONE
//*
//STEP0300 EXEC PGM=SYNCSORT,
//STEP0300 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -75,7 +75,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -86,7 +86,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//** 00001700
//STEP0350 EXEC PGM=SYNCSORT,
//STEP0350 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -95,7 +95,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)

2
JCL/DTSPDAY1.jcl
View File

@ -74,7 +74,7 @@
//****
//****
//STEP0075 EXEC DTSBX415
//* /* GET EMLOYER DATA FRROM WEB
//* /* GET EMLOYER DATA FRROM WEB
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
//****
//* /* MERGE WAGE.BTC TO BTC

2
JCL/DTSPMON1.jcl
View File

@ -92,7 +92,7 @@
332, ,Y
/*
//*********************************************************************
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR

8
JCL/DTSRQ320.jcl
View File

@ -7,7 +7,7 @@
//****
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PENQTR='Q244' <<<<<<< FOR FILE NAME ONLY
// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY
// SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY
//****
//* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)
@ -23,14 +23,14 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* STD BACKUP BEFORE DATA FILE UPDATE
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT
// RUNTYPE='QP',
// PREBACK='Y'
//STEP0100.EXTPARM DD *
320,244,
320
//* STD BACKUP AFTER DATA FILE UPDATE
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
//STEP0200 EXEC DTSRS320

11
JCL/DTSRQ713.jcl
View File

@ -8,7 +8,7 @@
// SET MSTNODE='PROD'
// SET UINODE='PROD'
// SET SPCNODE='PROD'
//*** SET QTR='Q063'
// SET QTR='Q251'
// SET LHOLD='NO'
//****
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
@ -32,16 +32,17 @@
//****
//* SPEC BACKUP AT END OF QTR BEFORE 581 RPT - UP TO 12
//* QTRS TO BE USED FOR AUDITING PURPOSES.
//STEP0125 EXEC DTSUTVSQ,
// BKUPGEN='(+1)'
//*STEP0125 EXEC DTSUTVSQ,
//* BKUPGEN='(+1)'
//*** *
//STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT
// RUNTYPE='QE',
// PREBACK='Y'
//*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL
//* DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP)
//*STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
// DISP=SHR
//*** USE THE FOLLOWING LINES FOR A RERUN **-->>