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

119
JCL/DTSCHGQ2.jcl Normal file
View File

@ -0,0 +1,119 @@
//DTSCHGQ2 JOB (UI,4300,3400,T),QUARTERLY-CHRGS,CLASS=S, 00010011
// MSGCLASS=X, 00020011
// USER=#DOADTS,
// NOTIFY=ECNTZL1, 00020111
//*** TYPRUN=SCAN, 00030001
// REGION=0M 00040000
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00050000
//******************************************************************* 00051011
//* SELF INSURED QUARTERLY CHARGING ONLY 00052011
//**** JOB 1. DTSCHGQ1 - BEFORE DAYILY UPDATE (DTSPDAY1) 00053011
//**** JOB 2. DTSPDAY1 - DAILY UPDATE 00054011
//**** JOB 3. DTSCHGQ2 - UPDATE CHARGE RUN DATE 00055011
//**** 00055111
//**** CHANGE QTRLY PARM BELOW BEFORE RUNNING 00056011
//******************************************************************* 00057011
//**** 00058011
// SET LVLNODE='PROD' 00060009
// SET MSTNODE='PROD' 00070009
// SET CHGNODE='PROD' 00080000
// SET CHGMNBR='CHGM002' 00090000
// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
// SET LDEST=U@PRT65 00092005
// SET LVDHOLD='YES' 00093014
// SET LHOLD='NO' 00094014
//** 00100000
// SET LDEST=U@PRT65 00110000
// SET LHOLD='NO' 00120000
//**** 00130000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00140000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00141006
//**** 00150000
//STEP0100 EXEC DTSCHGQ2 00180114
//* 00180513
//*********************************************************************
//* STEP TO COPY CONVERT FILE TO DASD-PART1 *
//*********************************************************************
//*
//STEP0200 EXEC PGM=SORT
//*
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR
//*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR,
6,1,CH,EQ,C'1',OR,
6,1,CH,EQ,C'2',OR,
6,1,CH,EQ,C'3',OR,
6,1,CH,EQ,C'4',OR,
6,1,CH,EQ,C'5',OR,
6,1,CH,EQ,C'6',OR,
6,1,CH,EQ,C'7',OR,
6,1,CH,EQ,C'8',OR,
6,1,CH,EQ,C'9')
OUTREC FIELDS=(1:6,54)
//SYSOUT DD SYSOUT=(*)
//*
//*
//* PRINT EVENT LOG (SCR 72) FOR SI BILLS SENT TO EMPLOYER
//*
//STEP0300 EXEC PGM=CHGBX666,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//EMPFILE1 DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//*
//RPT093R1 DD SYSOUT=*
//RPT093R2 DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF DD DSN=DOESTAX.DEVL.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//* *** THIS PROC MOVED TO DTSCHGQ1 *** 00183019
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00190008
//**** 00200008
//*TEP0200 EXEC DTSUXCGU 00210019
//* 00650000
//* /* STD BACKUP 00670010
//*TEP0300 EXEC DTSUTVSM, 00680020
//* BKUPGEN='(+1)' 00690020
//**** 00700010
//*
//X101MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
// 'FILENAME:SI_QTR_CHARGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//**