175 lines
14 KiB
Plaintext
175 lines
14 KiB
Plaintext
//**** 00000125
|
|
//* REPORTING AND OTHER FINAL FILE OUPUT FOR THE CHARGE RUN 00061028
|
|
//**** 00080025
|
|
//DTSCGRPT PROC 00081027
|
|
//* DEFNS NEEDED FOR THIS PROC: 00082025
|
|
//* LVLNODE=DEVL/TEST/PROD 00083025
|
|
//* MSTNODE=DEVL/TEST/PROD 00083170
|
|
//* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084036
|
|
//* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084151
|
|
//* =SPECXX FOR ALL SPECIAL RUNS 00084276
|
|
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085036
|
|
//* LHOLD=NO/YES 00085136
|
|
//* >> THIS PROC RUNS STEP 1 OF THE CHARGE REPORTING PROCESS, 00085286
|
|
//* >> WHICH EXECUTES PRIOR TO DTSPDAY1. 00085386
|
|
//* >> PROC DTSCGRPS CONTROLS REPORTING FOR STEP 2, WHICH 00085486
|
|
//* >> PRINTS THE SELF-INSURED BILLS. 00085586
|
|
//**** 00085657
|
|
//STEP0100 EXEC PGM=CHGBD300, 00091044
|
|
// PARM='1', 00092085
|
|
// COND=(0,LT) 00100020
|
|
//SYSOUT DD SYSOUT=* 00110020
|
|
//SYSABOUT DD SYSOUT=* 00120020
|
|
//SYSUDUMP DD SYSOUT=* 00130020
|
|
//** 00210040
|
|
//DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00220083
|
|
// DISP=SHR 00230084
|
|
//** 00231083
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00232083
|
|
// DISP=SHR 00233083
|
|
//** 00240079
|
|
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00243078
|
|
// DISP=SHR 00244078
|
|
//** 00247176
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248076
|
|
// AMP=('BUFNI=5,BUFND=10') 00249075
|
|
//** 00250075
|
|
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00260067
|
|
// DISP=(NEW,CATLG,DELETE), 00261067
|
|
// UNIT=SYSDA, 00270060
|
|
// SPACE=(8000,(1000,1000),RLSE), 00280060
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00290060
|
|
//** 00291040
|
|
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 00360081
|
|
// DISP=(NEW,CATLG,DELETE), 00370067
|
|
// UNIT=SYSDA, 00380060
|
|
// SPACE=(11800,(1000,1000),RLSE), 00390060
|
|
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 00400060
|
|
//** 00400127
|
|
//** TO BE PROCESSED IN THE NEXT DAILY RUN 00401027
|
|
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00411069
|
|
// DISP=(,CATLG,DELETE), 00420067
|
|
// UNIT=SYSDA, 00430060
|
|
// SPACE=(8192,(1000,1000),RLSE), 00440060
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00450067
|
|
//** 00451040
|
|
//** SM - TOTAL CHARGES (RATED) 00540246
|
|
//RPC100R1 DD SYSOUT=W, 00550036
|
|
// DEST=U@PRT155, 00550136
|
|
// HOLD=&LHOLD. 00550236
|
|
//** CHRG SUMMARY-RATED 00550348
|
|
//RPC100R3 DD SYSOUT=O, /* COPIES=2, 00550454
|
|
// DEST=&LDEST., 00550548
|
|
// HOLD=&LHOLD. 00550648
|
|
//** LTR - CHARGES (SELF-INS) 00551046
|
|
//RPC110R1 DD SYSOUT=I,COPIES=2, 00560087
|
|
// DEST=&LDEST., 00560136
|
|
// HOLD=&LHOLD. 00560236
|
|
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561046
|
|
//RPC110R2 DD SYSOUT=0 /* COPIES=2, 00570090
|
|
//* DEST=&LDEST., 00570190
|
|
//* HOLD=&LHOLD. 00570290
|
|
//** CHRG SUMMARY-CWC (OTHER STS) 00571051
|
|
//RPC120R1 DD SYSOUT=O, /* COPIES=3, 00580055
|
|
// DEST=&LDEST., 00580136
|
|
// HOLD=&LHOLD. 00580236
|
|
//** CHRG SUMMARY-FEDERAL 00581036
|
|
//RPC130R1 DD SYSOUT=O, /* COPIES=3, 00590055
|
|
// DEST=&LDEST., 00600036
|
|
// HOLD=&LHOLD. 00601036
|
|
//** NO CHARGES FOUND REPORT 00602071
|
|
//RPC140R1 DD SYSOUT=O, /* COPIES=1, 00603071
|
|
// DEST=&LDEST., 00604071
|
|
// HOLD=&LHOLD. 00605071
|
|
//** CHRG SUMMARY-TEUC 00606072
|
|
//RPC150R1 DD SYSOUT=O, /* COPIES=1, 00607072
|
|
// DEST=&LDEST., 00608072
|
|
// HOLD=&LHOLD. 00609072
|
|
//** CHRG SUMMARY-DC GOVERNMENT 00640282
|
|
//RPC160R1 DD SYSOUT=0 /* COPIES=1, 00640389
|
|
//**** SORT REPORT RECORDS (901/907) 00640687
|
|
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00641046
|
|
// COND=(0,LT), 00642046
|
|
// REGION=0M 00643046
|
|
//SYSOUT DD SYSOUT=* 00644046
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646077
|
|
// DISP=SHR 00646177
|
|
//SORTOUT DD DSN=&&SRTRPT, 00647046
|
|
// DISP=(,PASS,DELETE), 00648046
|
|
// UNIT=SYSDA, 00649046
|
|
// SPACE=(16384,(1000,1000),RLSE), 00649146
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00649246
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00649347
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649446
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649546
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649646
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649746
|
|
//* 00649857
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00649957
|
|
//DOESLBL1 EXEC PGM=IEBDG 00650057
|
|
//SYSPRINT DD SYSOUT=* 00650157
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00650257
|
|
// UNIT=SYSDA, 00650357
|
|
// SPACE=(TRK,1), 00650457
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650557
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00650657
|
|
// DISP=SHR 00650757
|
|
//**** /* POPULATE THE LABELS WORK FILE 00650857
|
|
//DOESLBL2 EXEC PGM=IDCAMS 00650957
|
|
//SYSPRINT DD SYSOUT=* 00651057
|
|
//FILEIN DD DSN=&&TMP901, 00651157
|
|
// DISP=(OLD,DELETE,DELETE), 00651257
|
|
// UNIT=SYSDA 00651357
|
|
//DOESVRO1 DD DSN=&&LBL901, 00651457
|
|
// DISP=(NEW,PASS,DELETE), 00651557
|
|
// UNIT=SYSDA, 00651657
|
|
// SPACE=(8192,(1000,1000),RLSE), 00651757
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00651857
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00651957
|
|
// DISP=SHR 00652057
|
|
//**** 00652157
|
|
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00653080
|
|
// COND=(0,LT) 00660020
|
|
//SYSOUT DD SYSOUT=* 00670020
|
|
//SYSABOUT DD SYSOUT=* 00680020
|
|
//SYSUDUMP DD SYSOUT=* 00690020
|
|
//** 00700020
|
|
//DTSFVRI1 DD DSN=&&SRTRPT, 00710146
|
|
// DISP=(OLD,DELETE,DELETE) 00711046
|
|
//** 00720020
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00720457
|
|
//** 00721057
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730076
|
|
// AMP=('BUFNI=5,BUFND=10') 00740020
|
|
//** 00750020
|
|
//PARMIN DD DUMMY 00760020
|
|
//** 00770020
|
|
//ATLSTIN DD DUMMY 00780020
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831041
|
|
//RPT907R1 DD SYSOUT=Z, 00832041
|
|
// DEST=&LDEST., 00833041
|
|
// HOLD=&LHOLD. 00834041
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835041
|
|
//RPT907R2 DD SYSOUT=Z, 00836041
|
|
// DEST=&LDEST., 00837041
|
|
// HOLD=&LHOLD. 00838041
|
|
//** CONTROL REPORT SUMMARY 00839045
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00839145
|
|
// HOLD=&LHOLD., 00839245
|
|
// DEST=&LDEST. 00839345
|
|
//** 00840056
|
|
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00842057
|
|
// COND=(0,LT), 00843057
|
|
// REGION=4096K 00844057
|
|
//DOESVRI1 DD DSN=&&LBL901, 00845057
|
|
// DISP=(OLD,DELETE,DELETE) 00846057
|
|
//SYSOUT DD SYSOUT=* 00847057
|
|
//SYSABOUT DD SYSOUT=* 00848057
|
|
//SYSABEND DD SYSOUT=* 00849057
|
|
//CAIMRPTS DD SYSOUT=* 00849157
|
|
//DOESLBL1 DD SYSOUT=(C), 00849257
|
|
// FCB=P104, 00849357
|
|
// DEST=U@PRT155, 00849457
|
|
// HOLD=&LHOLD. 00849557
|
|
//** 00849657
|