136 lines
11 KiB
Plaintext
136 lines
11 KiB
Plaintext
//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
|