154 lines
12 KiB
Plaintext
154 lines
12 KiB
Plaintext
//**** 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, 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
|