167 lines
13 KiB
Plaintext
167 lines
13 KiB
Plaintext
//**** 00000125
|
|
//* REPORTING FOR VIEWDIRECT FOR THE QUARTERLY CHARGE RUN 00061085
|
|
//**** 00080025
|
|
//DTSCHGQ1 PROC 00081097
|
|
//* DEFNS NEEDED FOR THIS PROC: 00082025
|
|
//* LVLNODE=DEVL/TEST/PROD 00083025
|
|
//* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084036
|
|
//* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084151
|
|
//* =SPECXX FOR ALL OTHER RUNS 00084282
|
|
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085036
|
|
//* LHOLD=NO/YES 00085136
|
|
//**** 00085257
|
|
//STEP0100 EXEC PGM=CHGBD300, 00091044
|
|
// PARM='1', 00092096
|
|
// COND=(0,LT) 00100020
|
|
//SYSOUT DD SYSOUT=* 00110020
|
|
//SYSABOUT DD SYSOUT=* 00120020
|
|
//SYSUDUMP DD SYSOUT=* 00130020
|
|
//** 00210040
|
|
//DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00212089
|
|
// DISP=SHR 00213089
|
|
//** 00214089
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00220079
|
|
// DISP=OLD 00230099
|
|
//** 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 DUMMY 00260099
|
|
//*PC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00260199
|
|
//* DISP=(NEW,CATLG,DELETE), 00261099
|
|
//* UNIT=SYSDA, 00270099
|
|
//* SPACE=(13600,(1000,1000),RLSE), 00280099
|
|
//* DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00290099
|
|
//** 00291040
|
|
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHGSI.TPS.&QTRLY., 00360099
|
|
// DISP=(NEW,CATLG,DELETE), 00370099
|
|
//* DISP=SHR, 00371099
|
|
// 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 DUMMY 00550099
|
|
//** CHRG SUMMARY-RATED 00550348
|
|
//RPC100R3 DD DUMMY 00550499
|
|
//** LTR - CHARGES (SELF-INS) 00551046
|
|
//RPC110R1 DD DUMMY 00560099
|
|
//*PC110R1 DD SYSOUT=I,COPIES=2, 00560199
|
|
//* DEST=&LDEST., 00560299
|
|
//* HOLD=&LHOLD. 00560399
|
|
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561046
|
|
//RPC110R2 DD DUMMY 00570099
|
|
//*PC110R2 DD SYSOUT=(V,DTSCG1Q1),HOLD=&LVDHOLD, 00570199
|
|
//* DEST=&LDEST. 00570299
|
|
//** CHRG SUMMARY-CWC (OTHER STS) 00571051
|
|
//RPC120R1 DD DUMMY 00580099
|
|
//*PC120R1 DD SYSOUT=(V,DTSCG2Q1),HOLD=&LVDHOLD, 00580199
|
|
//* DEST=&LDEST. 00580299
|
|
//** CHRG SUMMARY-FEDERAL 00581036
|
|
//RPC130R1 DD DUMMY 00590099
|
|
//*PC130R1 DD SYSOUT=(V,DTSCG3Q1),HOLD=&LVDHOLD, 00591099
|
|
//* DEST=&LDEST. 00600099
|
|
//** NO CHARGES FOUND REPORT 00602071
|
|
//RPC140R1 DD DUMMY /* COPIES=1, 00603085
|
|
//** CHRG SUMMARY-TEUC 00606072
|
|
//RPC150R1 DD DUMMY /* COPIES=1, 00607085
|
|
//** CHRG SUMMARY-DC GOVT 00608088
|
|
//RPC160R1 DD DUMMY 00609099
|
|
//*PC160R1 DD SYSOUT=(V,DTSCG4Q1),HOLD=&LVDHOLD, 00609199
|
|
//* DEST=&LDEST. 00610099
|
|
//**** SORT REPORT RECORDS (901/907) 00640176
|
|
//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
|