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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

97
JCL/DTSRQ591.jcl Normal file
View File

@ -0,0 +1,97 @@
//DTSRQ591 JOB (UI,4300,3400,T),PROD.BD591.CHRGFA, 00000010
// CLASS=P,MSGCLASS=X, 00000010
//*** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1
//***
// SET YRQTR='QTR20251' /* YRQTR IN TO BE PROCESSED
// SET QTR591='QTR251' /* YRQTR OUT TO BE PROCESSED
// SET LVLNODE='PROD' /* DEVL/TEST/PROD
// SET LHOLD='NO' /* YES/NO
// SET LDEST=U@PRT65 /* ANY VALID DESTINATION
//****
//* 05/16/00 - THIS JOB WILL PROCESS ALL FISCAL AGENT DATA LOADED
//* FOR THE CHARGING FUNCTION FOR A GIVEN QUARTER
//* AND PRODUCE AN ERROR REPORT FOR EACH FISCAL AGENT.
//* >>>>> NOTE: CICS REGION MUST BE DOWN TO RUN THIS JOB <<<<<
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** BKP ONLY WHEN NEEDED (E.G., NOT 00001700
//** NEEDED WHEN RUN IMMEDIATELY *AFTER* A DAILY)00001700
//*TEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//**
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT FA-CHG RECORDS 00310099
// COND=(0,LT) /* ALREADY LOADED IN GDG 00320099
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.CONV.CHRG.FISCAGNT.&YRQTR.,DISP=SHR
//SORTOUT DD DSN=&&FISCAGNT, 00390099
// DISP=(,PASS,DELETE), 00400000
// UNIT=SYSDA, 00410000
// SPACE=(8000,(1000,1000),RLSE), 00420099
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 00430099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC5),DISP=SHR 00440099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00450099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00460099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
//** 00480099
//** PROCESS FISC AGNT(S) CHARGE INFO 00006199
//STEP0300 EXEC PGM=DTSBD591,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//FAFILE DD DSN=&&FISCAGNT, 00390099
// DISP=(OLD,DELETE,DELETE) 00400000
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,
//** DISP=SHR, /**>>> FOR RERUN
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00002400
// COND=(0,LT) 00002500
//SYSOUT DD SYSOUT=* 00002600
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,DISP=SHR 00003006
//SORTOUT DD DSN=&&SRTRPT, 00005700
// DISP=(,PASS,DELETE), 00005800
// UNIT=SYSDA, 00005900
// SPACE=(8192,(1000,1000),RLSE), 00006000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00006100
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00006203
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00007000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00009000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00010000
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00011000
//**** 00018000
//STEP0500 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//PARMIN DD DUMMY 00018708
//ATLSTIN DD DUMMY 00018810
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00070008
// AMP=('BUFNI=5,BUFND=10') 00080000
//** 00090000
//** CHG FISCAL AGENT ERROR REPORT(S) 00100008
//RPT591R1 DD SYSOUT=X,COPIES=2, 00100109
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
//** CONTROL REPORT 00100409
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00100509
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
//** 00110000
//** BKP AFTER IS NEEDED {CHANGE (+1) TO
//** (+2) IF BACKED-UP IN STEP0100}
//STEP0600 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//****