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

Initial commit of DUTAS source code

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

93
Procs/DTSCHGRR Normal file
View File

@ -0,0 +1,93 @@
//**** 00000100
//* REPORTING AND OTHER FINAL FILE OUPUT FOR THE CHARGE RUN 00061000
//**** 00080000
//DTSCGRPT PROC 00081000
//* DEFNS NEEDED FOR THIS PROC: 00082000
//* LVLNODE=DEVL/TEST/PROD 00083000
//* MSTNODE=DEVL/TEST/PROD 00083100
//* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084000
//* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084100
//* =SPECXX FOR ALL SPECIAL RUNS 00084200
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085000
//* LHOLD=NO/YES 00085100
//* >> THIS PROC RUNS STEP 1 OF THE CHARGE REPORTING PROCESS, 00085200
//* >> WHICH EXECUTES PRIOR TO DTSPDAY1. 00085300
//* >> PROC DTSCGRPS CONTROLS REPORTING FOR STEP 2, WHICH 00085400
//* >> PRINTS THE SELF-INSURED BILLS. 00085500
//**** 00085600
//STEP0100 EXEC PGM=CHGBD300, 00091000
// PARM='1', 00092000
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//SYSABOUT DD SYSOUT=* 00120000
//SYSUDUMP DD SYSOUT=* 00130000
//** 00210000
//DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00220000
// DISP=SHR 00230000
//** 00231000
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00232000
// DISP=SHR 00233000
//** 00240000
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00243000
// DISP=SHR 00244000
//** 00247100
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248000
// AMP=('BUFNI=5,BUFND=10') 00249000
//** 00250000
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00260000
// DISP=(NEW,CATLG,DELETE), 00261000
// UNIT=SYSDA, 00270000
// SPACE=(8000,(1000,1000),RLSE), 00280000
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00290000
//** 00291000
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 00360000
// DISP=(NEW,CATLG,DELETE), 00370000
// UNIT=SYSDA, 00380000
// SPACE=(11800,(1000,1000),RLSE), 00390000
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 00400000
//** 00400100
//** TO BE PROCESSED IN THE NEXT DAILY RUN 00401000
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00411000
// DISP=(,CATLG,DELETE), 00420000
// UNIT=SYSDA, 00430000
// SPACE=(8192,(1000,1000),RLSE), 00440000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00450000
//** 00451000
//** SM - TOTAL CHARGES (RATED) 00540200
//RPC100R1 DD SYSOUT=W, 00550000
// DEST=U@PRT155, 00550100
// HOLD=&LHOLD. 00550200
//** CHRG SUMMARY-RATED 00550300
//RPC100R3 DD SYSOUT=O, /* COPIES=2, 00550400
// DEST=&LDEST., 00550500
// HOLD=&LHOLD. 00550600
//** LTR - CHARGES (SELF-INS) 00551000
//RPC110R1 DD SYSOUT=I,COPIES=2, 00560000
// DEST=&LDEST., 00560100
// HOLD=&LHOLD. 00560200
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561000
//RPC110R2 DD SYSOUT=O, /* COPIES=2, 00570000
// DEST=&LDEST., 00570100
// HOLD=&LHOLD. 00570200
//** CHRG SUMMARY-CWC (OTHER STS) 00571000
//RPC120R1 DD SYSOUT=O, /* COPIES=3, 00580000
// DEST=&LDEST., 00580100
// HOLD=&LHOLD. 00580200
//** CHRG SUMMARY-FEDERAL 00581000
//RPC130R1 DD SYSOUT=O, /* COPIES=3, 00590000
// DEST=&LDEST., 00600000
// HOLD=&LHOLD. 00601000
//** NO CHARGES FOUND REPORT 00602000
//RPC140R1 DD SYSOUT=O, /* COPIES=1, 00603000
// DEST=&LDEST., 00604000
// HOLD=&LHOLD. 00605000
//** CHRG SUMMARY-TEUC 00606000
//RPC150R1 DD SYSOUT=O, /* COPIES=1, 00607000
// DEST=&LDEST., 00608000
// HOLD=&LHOLD. 00609000
//** CHRG SUMMARY-DC GOVERNMENT 00640200
//RPC160R1 DD SYSOUT=O, /* COPIES=1, 00640300
// DEST=&LDEST., 00640400
// HOLD=&LHOLD. 00640500
//**** SORT REPORT RECORDS (901/907) 00640600
//** 00849600