94 lines
7.4 KiB
Plaintext
94 lines
7.4 KiB
Plaintext
//**** 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
|