//DTSUXCGP PROC 00000115 //** PERIODIC CHARGE REPORTING PROCESS 00000999 //**** 00001484 //STEP0100 EXEC PGM=CHGBD205, 00002123 // COND=(0,LT) 00002223 //SYSOUT DD SYSOUT=* 00002323 //SYSABOUT DD SYSOUT=* 00002423 //SYSUDUMP DD SYSOUT=* 00002523 //SYSIN DD DUMMY 00002773 //BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00003081 // AMP=('BUFNI=5,BUFND=30') 00003167 //* 00003284 //BD205CHG DD DSN=&&CHGBD205, 00003332 // DISP=(NEW,PASS,DELETE), 00003431 // UNIT=SYSDA, 00003531 // SPACE=(32000,(1000,1000),RLSE), 00003686 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00003731 //* 00003884 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00004284 // DISP=(NEW,CATLG,DELETE), 00004399 // UNIT=SYSDA, 00004531 // SPACE=(80,(2,10),RLSE), 00004631 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 00004731 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00004874 //* 00004975 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00007775 // AMP=('BUFNI=5,BUFND=10') 00007837 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00008082 // DISP=(NEW,CATLG,DELETE), 00008699 // UNIT=SYSDA, 00008899 // SPACE=(8192,(5000,5000),RLSE), 00008999 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00009099 //**** 00009199 //STEP0200 EXEC PGM=SORT, SORT CHARGE RECORDS 00009299 // COND=(0,LT) 00009399 //SYSOUT DD SYSOUT=* 00009499 //SORTIN DD DSN=&&CHGBD205, 00009599 // DISP=(OLD,PASS,DELETE), 00009699 // UNIT=SYSDA, 00009799 // SPACE=(8192,(3000,1000),RLSE), 00009899 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00009999 //SORTOUT DD DSN=&&BD205SRT, 00010099 // DISP=(NEW,PASS,DELETE), 00010199 // UNIT=SYSDA, 00010299 // SPACE=(32000,(1000,1000),RLSE), 00010399 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00010499 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRECZ),DISP=SHR 00010599 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010699 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010799 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010899 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00010999 //**** 00011099 //STEP0300 EXEC PGM=CHGBD210, 00011199 // COND=(0,LT) 00011299 //SYSOUT DD SYSOUT=* 00011399 //SYSABOUT DD SYSOUT=* 00011499 //SYSUDUMP DD SYSOUT=* 00011599 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00011699 // DISP=OLD 00011999 //BD205CHG DD DSN=&&BD205SRT, 00020031 // DISP=(OLD,PASS,DELETE), 00030023 // UNIT=SYSDA, 00040023 // SPACE=(32000,(1000,1000),RLSE), 00050086 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00060023 //BD210CHG DD DSN=&&CHGBD210, 00080032 // DISP=(NEW,PASS,DELETE), 00090000 // UNIT=SYSDA, 00100000 // SPACE=(31040,(1000,1000),RLSE), 00110086 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00130007 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00150082 // DISP=(MOD,PASS,DELETE), 00161099 // UNIT=SYSDA, 00170000 // SPACE=(8192,(5000,5000),RLSE), 00180099 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00190000 //* 00191096 //DTSWGHDC DD DSN=DOESTAX.&LVLNODE..VSAM.WGHDCA,DISP=SHR, 00192098 // AMP=('BUFNI=5,BUFND=10') 00193096 //* 00200076 //*OCFMSTR INCLUDE MEMBER=DOCIMSTR 00260299 //* 00260387 //*B6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 00260499 //* 00260577 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00261076 //* 00262076 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00290076 // AMP=('BUFNI=5,BUFND=10') 00300037 //**** 00371076 //STEP0400 EXEC PGM=SORT, SORT CHARGE RECORDS 00371124 // COND=(0,LT) 00371211 //SYSOUT DD SYSOUT=* 00371311 //SORTIN DD DSN=&&CHGBD210, 00371531 // DISP=(OLD,PASS,DELETE), 00371611 // UNIT=SYSDA, 00371711 // SPACE=(8192,(10000,3000),RLSE), 00371850 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00371911 //SORTOUT DD DSN=&&BD210SRT, 00372631 // DISP=(NEW,PASS,DELETE), 00372712 // UNIT=SYSDA, 00372811 // SPACE=(31040,(1000,1000),RLSE), 00372986 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00373111 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC2),DISP=SHR 00373330 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373450 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373550 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373650 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 00373786 //* 00373886 //STEP0500 EXEC PGM=CHGBD220, 00373986 // COND=(0,LT) 00374086 //SYSOUT DD SYSOUT=* 00374186 //SYSABOUT DD SYSOUT=* 00374286 //SYSUDUMP DD SYSOUT=* 00374386 //BD210CHG DD DSN=&&BD210SRT, 00374486 // DISP=(OLD,DELETE,DELETE), 00374586 // UNIT=SYSDA, 00374686 // SPACE=(31040,(1000,1000),RLSE), 00374786 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00374886 //** THIS FILE FEEDS THE CHGBD300 REPORTING 00374988 //BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00375086 //* DISP=SHR 00375199 // DISP=(NEW,CATLG,DELETE), 00375299 // UNIT=SYSDA, 00375399 // SPACE=(CYL,(10,5),RLSE), 00375599 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00375699 //BD230CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 00375799 // DISP=SHR, 00375890 // AMP=('BUFNI=5,BUFND=30') 00375990 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00376090 // DISP=OLD 00376299 //** THIS FILE FEEDS THE CHGBD800 REPORTING 00376399 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00376499 // DISP=(MOD,PASS,DELETE), 00376599 // UNIT=SYSDA, 00376699 // SPACE=(8192,(5000,5000),RLSE), 00376799 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00377065 //**** 00389577