140 lines
11 KiB
Plaintext
140 lines
11 KiB
Plaintext
//**** 00000100
|
|
//* REPORTING FOR THE QUARTERLY CHARGE RUN 00061001
|
|
//**** 00080000
|
|
//DTSQ1RPT PROC 00081001
|
|
//**** 00085200
|
|
//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, 00212000
|
|
// DISP=SHR 00213000
|
|
//** 00214000
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00220000
|
|
// DISP=SHR 00230000
|
|
//** 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=SHR 00261002
|
|
//** 00291000
|
|
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 00360000
|
|
// DISP=SHR 00370002
|
|
//** 00400100
|
|
//** TO BE PROCESSED IN THE NEXT DAILY RUN 00401000
|
|
//DTSFBTCO DD DUMMY 00411002
|
|
//** SM - TOTAL CHARGES (RATED) 00540200
|
|
//RPC100R1 DD DUMMY 00550003
|
|
//** CHRG SUMMARY-RATED 00550300
|
|
//RPC100R3 DD DUMMY 00550403
|
|
//** LTR - CHARGES (SELF-INS) 00551000
|
|
//RPC110R1 DD DUMMY 00560003
|
|
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561000
|
|
//RPC110R2 DD SYSOUT=(O,DTSCG1Q1),HOLD=&LVDHOLD, 00570001
|
|
// DEST=&LDEST. 00570100
|
|
//** CHRG SUMMARY-CWC (OTHER STS) 00571000
|
|
//RPC120R1 DD SYSOUT=(O,DTSCG2Q1),HOLD=&LVDHOLD, 00580001
|
|
// DEST=&LDEST. 00580100
|
|
//** CHRG SUMMARY-FEDERAL 00581000
|
|
//RPC130R1 DD SYSOUT=(O,DTSCG3Q1),HOLD=&LVDHOLD, 00590001
|
|
// DEST=&LDEST. 00600000
|
|
//** NO CHARGES FOUND REPORT 00602000
|
|
//RPC140R1 DD DUMMY /* COPIES=1, 00603000
|
|
//** CHRG SUMMARY-TEUC 00606000
|
|
//RPC150R1 DD DUMMY /* COPIES=1, 00607000
|
|
//** CHRG SUMMARY-DC GOVT 00608000
|
|
//RPC160R1 DD SYSOUT=(O,DTSCG4Q1),HOLD=&LVDHOLD, 00609001
|
|
// DEST=&LDEST. 00610000
|
|
//**** SORT REPORT RECORDS (901/907) 00640100
|
|
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00641000
|
|
// COND=(0,LT), 00642000
|
|
// REGION=0M 00643000
|
|
//SYSOUT DD SYSOUT=* 00644000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646000
|
|
// DISP=SHR 00646100
|
|
//SORTOUT DD DSN=&&SRTRPT, 00647000
|
|
// DISP=(,PASS,DELETE), 00648000
|
|
// UNIT=SYSDA, 00649000
|
|
// SPACE=(16384,(1000,1000),RLSE), 00649100
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00649200
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00649300
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649400
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649500
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649600
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649700
|
|
//* 00649800
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00649900
|
|
//DOESLBL1 EXEC PGM=IEBDG 00650000
|
|
//SYSPRINT DD SYSOUT=* 00650100
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00650200
|
|
// UNIT=SYSDA, 00650300
|
|
// SPACE=(TRK,1), 00650400
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650500
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00650600
|
|
// DISP=SHR 00650700
|
|
//**** /* POPULATE THE LABELS WORK FILE 00650800
|
|
//DOESLBL2 EXEC PGM=IDCAMS 00650900
|
|
//SYSPRINT DD SYSOUT=* 00651000
|
|
//FILEIN DD DSN=&&TMP901, 00651100
|
|
// DISP=(OLD,DELETE,DELETE), 00651200
|
|
// UNIT=SYSDA 00651300
|
|
//DOESVRO1 DD DSN=&&LBL901, 00651400
|
|
// DISP=(NEW,PASS,DELETE), 00651500
|
|
// UNIT=SYSDA, 00651600
|
|
// SPACE=(8192,(1000,1000),RLSE), 00651700
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00651800
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00651900
|
|
// DISP=SHR 00652000
|
|
//**** 00652100
|
|
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00653000
|
|
// COND=(0,LT) 00660000
|
|
//SYSOUT DD SYSOUT=* 00670000
|
|
//SYSABOUT DD SYSOUT=* 00680000
|
|
//SYSUDUMP DD SYSOUT=* 00690000
|
|
//** 00700000
|
|
//DTSFVRI1 DD DSN=&&SRTRPT, 00710100
|
|
// DISP=(OLD,DELETE,DELETE) 00711000
|
|
//** 00720000
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00720400
|
|
//** 00721000
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730000
|
|
// AMP=('BUFNI=5,BUFND=10') 00740000
|
|
//** 00750000
|
|
//PARMIN DD DUMMY 00760000
|
|
//** 00770000
|
|
//ATLSTIN DD DUMMY 00780000
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831000
|
|
//RPT907R1 DD SYSOUT=Z, 00832000
|
|
// DEST=&LDEST., 00833000
|
|
// HOLD=&LHOLD. 00834000
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835000
|
|
//RPT907R2 DD SYSOUT=Z, 00836000
|
|
// DEST=&LDEST., 00837000
|
|
// HOLD=&LHOLD. 00838000
|
|
//** CONTROL REPORT SUMMARY 00839000
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00839100
|
|
// HOLD=&LHOLD., 00839200
|
|
// DEST=&LDEST. 00839300
|
|
//** 00840000
|
|
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00842000
|
|
// COND=(0,LT), 00843000
|
|
// REGION=4096K 00844000
|
|
//DOESVRI1 DD DSN=&&LBL901, 00845000
|
|
// DISP=(OLD,DELETE,DELETE) 00846000
|
|
//SYSOUT DD SYSOUT=* 00847000
|
|
//SYSABOUT DD SYSOUT=* 00848000
|
|
//SYSABEND DD SYSOUT=* 00849000
|
|
//CAIMRPTS DD SYSOUT=* 00849100
|
|
//DOESLBL1 DD SYSOUT=(C), 00849200
|
|
// FCB=P104, 00849300
|
|
// DEST=U@PRT155, 00849400
|
|
// HOLD=&LHOLD. 00849500
|
|
//** 00849600
|