140 lines
11 KiB
Plaintext
140 lines
11 KiB
Plaintext
//**** 00000100
|
|
//* REPORTING FOR VIEWDIRECT FOR THE QUARTERLY CHARGE RUN 00061000
|
|
//**** 00080000
|
|
//DTSCHGQ4 PROC 00081001
|
|
//* DEFNS NEEDED FOR THIS PROC: 00082000
|
|
//* LVLNODE=DEVL/TEST/PROD 00083000
|
|
//* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084000
|
|
//* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084100
|
|
//* =SPECXX FOR ALL OTHER RUNS 00084200
|
|
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085000
|
|
//* LHOLD=NO/YES 00085100
|
|
//**** 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=(OLD,PASS,DELETE) 00230000
|
|
//** 00240000
|
|
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.CWC.&QTRLY, 00243000
|
|
// DISP=SHR 00243100
|
|
//** 00247100
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248000
|
|
// AMP=('BUFNI=5,BUFND=10') 00249000
|
|
//** 00250000
|
|
//RPC100R2 DD DUMMY 00260000
|
|
//** 00291000
|
|
//TPSCHRG DD DUMMY 00360000
|
|
//** TO BE PROCESSED IN THE NEXT DAILY RUN 00401000
|
|
//DTSFBTCO DD DUMMY 00411000
|
|
//** 00451000
|
|
//** SM - TOTAL CHARGES (RATED) 00540200
|
|
//RPC100R1 DD DUMMY 00550000
|
|
//** CHRG SUMMARY-RATED 00550300
|
|
//RPC100R3 DD DUMMY 00550400
|
|
//** LTR - CHARGES (SELF-INS) 00551000
|
|
//RPC110R1 DD DUMMY 00560000
|
|
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561000
|
|
//RPC110R2 DD DUMMY 00570000
|
|
//** CHRG SUMMARY-CWC (OTHER STS) 00571000
|
|
//RPC120R1 DD SYSOUT=0 00580003
|
|
//** CHRG SUMMARY-FEDERAL 00581000
|
|
//RPC130R1 DD SYSOUT=0 00591003
|
|
//** 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=0 00610003
|
|
//**** 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=(OLD,PASS,DELETE) 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, /* NO DOES LABELS PRINTED SEE Q3 00842002
|
|
// 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=* 00849202
|
|
//* FCB=P104, 00849302
|
|
//* DEST=U@PRT155 00849402
|
|
//** 00849600
|