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

74
JCL/DTSRQ715.jcl Normal file
View File

@ -0,0 +1,74 @@
//DTSRQ715 JOB (UI,4300,3400,T),PROD.RPT715, 00000010
// CLASS=P,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET TPSYRQ='YR2025' <<<< SET YEAR TO PREVIOUS YEAR (OUT FILE)
// SET LHOLD='YES'
//* 00001700
//*******************************************************************
//* ON REQUEST REPORT DTSBX715 -
//* CREATE TPS STATUS DETERMINATION RECORDS
//****
//**** INPUT FILE IS CREATED BY ETA581 PROGRAM BE770
//**** NEED TO COMBINE ALL 4 QTRS TPS.STATUS.QTR? BEFORE RUNNING ZL1
//*******************************************************************
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//*****************************************************************
//STEP0101 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//INDD01 DD DSN=DOESTAX.PROD.TPS.STATUS.QTR1,DISP=SHR
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR2,DISP=SHR
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR3,DISP=SHR
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR4,DISP=SHR
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//* 00001700
//STEP0300 EXEC PGM=DTSBX715, /* TPS
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//TPSSTAT DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//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)
//*
//* REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//* REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//*TEP0100.RPT715R1 DD DISP=SHR
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY LABELS
//*
//**********************************************************************01190000