//**** 00000125 //* SELF-INSURED REPRINTING SI BILLS 00061091 //**** 00080025 //DTSRT300 PROC 00081091 //* 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 //* >> THE PARM FOR CHGBD300 MUST BE SET TO '2'. WITH THIS 00085287 //* >> SETTING, THE PROC WILL PRINT THE SELF-INSURED BILLS. 00085387 //**** 00085457 //STEP0100 EXEC PGM=CHGRT300, 00091091 // PARM='2', 00092085 // COND=(0,LT) 00100020 //SYSOUT DD SYSOUT=* 00110020 //SYSABOUT DD SYSOUT=* 00120020 //SYSUDUMP DD SYSOUT=* 00130020 //** 00210040 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00211086 //* 00212086 //DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00220083 // DISP=SHR 00230084 //** 00231083 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00232083 // DISP=SHR 00233083 //** 00233192 //CHGEMPL DD DSN=DOESTAX.&LVLNODE..CHG.EMPL, 00234092 // DISP=SHR 00235092 //** 00240079 //BD220CHG DD DSN=&&SRTOUT, 00243096 // DISP=(OLD,DELETE,DELETE) 00244094 //** 00247176 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248076 // AMP=('BUFNI=5,BUFND=10') 00249075 //** 00250075 //RPC100R2 DD DUMMY 00260088 //** 00291040 //TPSCHRG DD DUMMY 00360088 //** 00400127 //** TO BE PROCESSED IN THE NEXT DAILY RUN 00401027 //DTSFBTCO DD DUMMY 00411088 //** 00451040 //** SM - TOTAL CHARGES (RATED) 00540246 //RPC100R1 DD DUMMY 00550090 //** CHRG SUMMARY-RATED 00550348 //RPC100R3 DD DUMMY /* COPIES=2, 00550490 //** LTR - CHARGES (SELF-INS) 00551046 //RPC110R1 DD SYSOUT=I, 00560091 // DEST=&LDEST., 00560136 // HOLD=&LHOLD. 00560236 //** CHRG SUMMARY-REIMBURSABLES (S-I) 00561046 //RPC110R2 DD SYSOUT=O, 00570091 // DEST=&LDEST., 00570191 // HOLD=&LHOLD. 00570291 //** CHRG SUMMARY-CWC (OTHER STS) 00571051 //RPC120R1 DD DUMMY 00580090 //** CHRG SUMMARY-FEDERAL 00581036 //RPC130R1 DD DUMMY 00590090 //** NO CHARGES FOUND REPORT 00602071 //RPC140R1 DD DUMMY 00603090 //** CHRG SUMMARY-TEUC 00606072 //RPC150R1 DD DUMMY 00607090 //** CHRG SUMMARY-DC GOVERNMENT 00640282 //RPC160R1 DD DUMMY 00640390 //**** SORT REPORT RECORDS (901/907) 00640689 //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.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00649393 //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.PROD.APPL.PARMLIB(DTSLBL01), 00650693 // 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.PROD.APPL.PARMLIB(DTSLBL02), 00651993 // 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