//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