135 lines
11 KiB
Plaintext
135 lines
11 KiB
Plaintext
//DTSUXCGP PROC 00000100
|
|
//** PERIODIC CHARGE REPORTING PROCESS 00000900
|
|
//**** 00001400
|
|
//STEP0100 EXEC PGM=CHGBD205, 00002100
|
|
// COND=(0,LT) 00002200
|
|
//SYSOUT DD SYSOUT=* 00002300
|
|
//SYSABOUT DD SYSOUT=* 00002400
|
|
//SYSUDUMP DD SYSOUT=* 00002500
|
|
//SYSIN DD DUMMY 00002700
|
|
//BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00003000
|
|
// AMP=('BUFNI=5,BUFND=30') 00003100
|
|
//* 00003200
|
|
//BD205CHG DD DSN=&&CHGBD205, 00003300
|
|
// DISP=(NEW,PASS,DELETE), 00003400
|
|
// UNIT=SYSDA, 00003500
|
|
// SPACE=(32000,(1000,1000),RLSE), 00003600
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00003700
|
|
//* 00003800
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00004200
|
|
// DISP=(NEW,PASS,DELETE), 00004301
|
|
// UNIT=SYSDA, 00004500
|
|
// SPACE=(80,(2,10),RLSE), 00004600
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 00004700
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00004800
|
|
//* 00004900
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00007700
|
|
// AMP=('BUFNI=5,BUFND=10') 00007800
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00008000
|
|
// DISP=(NEW,PASS,DELETE), 00008601
|
|
// UNIT=SYSDA, 00008800
|
|
// SPACE=(8192,(2000,2000),RLSE), 00008900
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00009000
|
|
//**** 00009100
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00009200
|
|
// COND=(0,LT) 00009300
|
|
//SYSOUT DD SYSOUT=* 00009400
|
|
//SORTIN DD DSN=&&CHGBD205, 00009500
|
|
// DISP=(OLD,PASS,DELETE), 00009600
|
|
// UNIT=SYSDA, 00009700
|
|
// SPACE=(8192,(3000,1000),RLSE), 00009800
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00009900
|
|
//SORTOUT DD DSN=&&BD205SRT, 00010000
|
|
// DISP=(NEW,PASS,DELETE), 00010100
|
|
// UNIT=SYSDA, 00010200
|
|
// SPACE=(32000,(1000,1000),RLSE), 00010300
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00010400
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC3),DISP=SHR 00010500
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010600
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010700
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010800
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010900
|
|
//**** 00011000
|
|
//STEP0300 EXEC PGM=CHGBD210, 00011100
|
|
// COND=(0,LT) 00011200
|
|
//SYSOUT DD SYSOUT=* 00011300
|
|
//SYSABOUT DD SYSOUT=* 00011400
|
|
//SYSUDUMP DD SYSOUT=* 00011500
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00011600
|
|
// DISP=(OLD,PASS,DELETE) 00011701
|
|
//BD205CHG DD DSN=&&BD205SRT, 00020000
|
|
// DISP=(OLD,PASS,DELETE), 00030000
|
|
// UNIT=SYSDA, 00040000
|
|
// SPACE=(32000,(1000,1000),RLSE), 00050000
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00060000
|
|
//BD210CHG DD DSN=&&CHGBD210, 00080000
|
|
// DISP=(NEW,PASS,DELETE), 00090000
|
|
// UNIT=SYSDA, 00100000
|
|
// SPACE=(31040,(1000,1000),RLSE), 00110000
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00130000
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00150000
|
|
// DISP=(MOD,PASS,DELETE), 00161001
|
|
// UNIT=SYSDA, 00170000
|
|
// SPACE=(8192,(1000,1000),RLSE), 00180000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00190000
|
|
//* 00191000
|
|
//DTSWGHDC DD DSN=DOESTAX.&LVLNODE..VSAM.WGHDCA,DISP=SHR, 00192000
|
|
// AMP=('BUFNI=5,BUFND=10') 00193000
|
|
//* 00200000
|
|
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR 00260200
|
|
//* 00260300
|
|
//IB6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 00260400
|
|
//* 00260500
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00261000
|
|
//* 00262000
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00290000
|
|
// AMP=('BUFNI=5,BUFND=10') 00300000
|
|
//**** 00371000
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00371100
|
|
// COND=(0,LT) 00371200
|
|
//SYSOUT DD SYSOUT=* 00371300
|
|
//SORTIN DD DSN=&&CHGBD210, 00371500
|
|
// DISP=(OLD,PASS,DELETE), 00371600
|
|
// UNIT=SYSDA, 00371700
|
|
// SPACE=(8192,(10000,3000),RLSE), 00371800
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00371900
|
|
//SORTOUT DD DSN=&&BD210SRT, 00372600
|
|
// DISP=(NEW,PASS,DELETE), 00372700
|
|
// UNIT=SYSDA, 00372800
|
|
// SPACE=(31040,(1000,1000),RLSE), 00372900
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00373100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC2),DISP=SHR 00373300
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373400
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373500
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373600
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373700
|
|
//* 00373800
|
|
//STEP0500 EXEC PGM=CHGBD220, 00373900
|
|
// COND=(0,LT) 00374000
|
|
//SYSOUT DD SYSOUT=* 00374100
|
|
//SYSABOUT DD SYSOUT=* 00374200
|
|
//SYSUDUMP DD SYSOUT=* 00374300
|
|
//BD210CHG DD DSN=&&BD210SRT, 00374400
|
|
// DISP=(OLD,DELETE,DELETE), 00374500
|
|
// UNIT=SYSDA, 00374600
|
|
// SPACE=(31040,(1000,1000),RLSE), 00374700
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00374800
|
|
//** THIS FILE FEEDS THE CHGBD300 REPORTING 00374900
|
|
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00375000
|
|
// DISP=(NEW,PASS,DELETE), 00375101
|
|
// UNIT=SYSDA, 00375200
|
|
// SPACE=(31040,(1000,1000),RLSE), 00375300
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00375400
|
|
//BD230CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 00375500
|
|
// DISP=SHR, 00375700
|
|
// AMP=('BUFNI=5,BUFND=30') 00375800
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00375900
|
|
// DISP=(OLD,PASS,DELETE) 00376001
|
|
//** THIS FILE FEEDS THE CHGBD800 REPORTING 00376200
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00376300
|
|
// DISP=(MOD,PASS,DELETE), 00376401
|
|
// UNIT=SYSDA, 00376500
|
|
// SPACE=(8192,(1000,1000),RLSE), 00376600
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00377000
|
|
//**** 00389500
|