//**** 00000100 //** 00000200 //** INITIAL LOAD: ACCOUNTING DATABASE. 00000399 //** (*NO* MSTR UPDATE) 00000505 //** 00000605 //DTSBX354 PROC 00000799 //* 00000899 //** DEFNS NEEDED FOR THIS PROC: 00001105 //** LVLNODE = DEVL/TEST/PROD 00001205 //**** 00001408 //STEP0100 EXEC PGM=DTSBX354, PERIODIC EXTRACT 00001599 // COND=(0,LT), 00001699 // TIME=90, 00001799 // PARM='&RUNTYPE.' 00001899 //* 00001919 //SYSOUT DD SYSOUT=* 00004001 //SYSABOUT DD SYSOUT=* 00005001 //SYSUDUMP DD SYSOUT=* 00006001 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00012299 // AMP=('BUFNI=5,BUFND=10') 00013001 //CHARGESI DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR 00014099 //DTSFVRO1 DD DUMMY 00020039 //DTSFBTCO DD DUMMY 00050039 //**** 00082099 //DTSFSERV DD DSN=ECNTSUP.DOESTAX.&LVLNODE..TAX.INT.X101, 00083099 //** DISP=(NEW,CATLG,CATLG), 00084099 // DISP=(OLD,KEEP,KEEP), 00085099 // UNIT=SYSDA, 00085199 // SPACE=(6,(1000,1000),RLSE), 00085299 // DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00085399 //* 00085499 //DTSFPRF DD DUMMY 00085599 //** DISP=(NEW,CATLG,CATLG), 00085699 //** DISP=(OLD,KEEP,KEEP), 00085799 //** UNIT=SYSDA, 00085899 //** SPACE=(CYL,(10,5),RLSE), 00085999 //** DCB=(RECFM=FB,LRECL=88,BLKSIZE=26400) 00086099 //* 00086199 //DTSFDET DD DUMMY 00086299 //** DISP=(NEW,CATLG,CATLG), 00086399 //** DISP=(OLD,KEEP,KEEP), 00086499 //** UNIT=SYSDA, 00086599 //** SPACE=(CYL,(10,5),RLSE), 00086699 //** DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500) 00086799 //* 00086899 //DTSFFSC DD DUMMY 00086999 //** DISP=(NEW,CATLG,CATLG), 00087099 //** DISP=(OLD,KEEP,KEEP), 00087199 //** UNIT=SYSDA, 00087299 //** SPACE=(CYL,(10,5),RLSE), 00087399 //** DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600) 00087499 //* 00087599 //DTSFADR DD DUMMY 00087699 //** DISP=(NEW,CATLG,CATLG), 00087799 //** DISP=(OLD,KEEP,KEEP), 00087899 //** UNIT=SYSDA, 00087999 //** SPACE=(CYL,(50,10),RLSE), 00088099 //** DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00088199 //* 00088299 //DTSFDST DD DUMMY 00088399 //*** DISP=(NEW,CATLG,KEEP), 00088499 //* DISP=(OLD,KEEP,KEEP), 00088599 //* UNIT=SYSDA, 00088699 //* SPACE=(CYL,(100,50),RLSE), 00088799 //* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00088899 //** 00088999 //DTSFDST1 DD DUMMY 00089099 //** DISP=(NEW,PASS,DELETE), 00089199 //** UNIT=SYSDA, 00089299 //** SPACE=(CYL,(100,50),RLSE), 00089399 //** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00089499 //** 00089599 //DTSFDST2 DD DUMMY 00089699 //** DISP=(NEW,PASS,DELETE), 00089799 //** UNIT=SYSDA, 00089899 //** SPACE=(CYL,(100,50),RLSE), 00089999 //** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00090099 //* 00090199 //DTSFRATE DD DUMMY 00090299 //** DISP=(NEW,CATLG,KEEP), 00090399 //** DISP=(OLD,KEEP,KEEP), 00090499 //** UNIT=SYSDA, 00090599 //** SPACE=(CYL,(25,5),RLSE), 00090699 //** DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00090799 //** 00090899 //DTSFACC1 DD DSN=&&ACCT1, 00090999 // DISP=(NEW,PASS,DELETE), 00091099 // UNIT=SYSDA, 00091199 // SPACE=(CYL,(100,50),RLSE), 00091299 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00091399 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091499 //* 00091599 //DTSFACC2 DD DSN=&&ACCT2, 00091699 // DISP=(NEW,PASS,DELETE), 00091799 // UNIT=SYSDA, 00091899 // SPACE=(CYL,(50,50),RLSE), 00091999 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092099 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092199 //* 00092299 //DTSFACC3 DD DSN=&&ACCT3, 00092399 // DISP=(NEW,PASS,DELETE), 00092499 // UNIT=SYSDA, 00092599 // SPACE=(CYL,(50,50),RLSE), 00092699 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092799 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092899 //* 00092999 //DTSFQTR1 DD DUMMY 00093099 //** DISP=(NEW,PASS,DELETE), 00093199 //** UNIT=SYSDA, 00093299 //** SPACE=(CYL,(200,50),RLSE), 00093399 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093499 //* 00093599 //DTSFQTR2 DD DUMMY 00093699 //** DISP=(NEW,PASS,DELETE), 00093799 //** UNIT=SYSDA, 00093899 //** SPACE=(CYL,(200,50),RLSE), 00093999 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094099 //* 00094199 //DTSFQTR3 DD DUMMY 00094299 //** DISP=(NEW,PASS,DELETE), 00094399 //** UNIT=SYSDA, 00094499 //** SPACE=(CYL,(200,50),RLSE), 00094599 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094699 //* 00094799 //DTSFTRN1 DD DUMMY 00094899 //** DISP=(NEW,PASS,DELETE), 00094999 //** UNIT=SYSDA, 00095099 //** SPACE=(CYL,(120,40),RLSE), 00095199 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095299 //* 00095399 //DTSFTRN2 DD DUMMY 00095499 //** DISP=(NEW,PASS,DELETE), 00095599 //** UNIT=SYSDA, 00095699 //** SPACE=(CYL,(60,40),RLSE), 00095799 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095899 //** 00095999 //DTSFTRN3 DD DUMMY 00096099 //** DISP=(NEW,PASS,DELETE), 00096199 //** UNIT=SYSDA, 00096299 //** SPACE=(CYL,(60,40),RLSE), 00096399 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00096499 //** 00096599 //DTSFQCOL DD DUMMY 00096699 //** DISP=(NEW,CATLG,KEEP), 00096799 //** DISP=(OLD,KEEP,KEEP), 00096899 //** UNIT=SYSDA, 00096999 //** SPACE=(CYL,(150,50),RLSE), 00097099 //** DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00097199 //** 00097299 //DTSFBNK DD DUMMY 00097399 //** DISP=(NEW,CATLG,KEEP), 00097499 //** DISP=(OLD,KEEP,KEEP), 00097599 //** UNIT=SYSDA, 00097699 //** SPACE=(CYL,(5,1),RLSE), 00097799 //** DCB=(RECFM=FB,LRECL=42,BLKSIZE=25200) 00097899 //** 00097999 //DTSFREL DD DUMMY 00098099 //** DISP=(NEW,CATLG,KEEP), 00098199 //** DISP=(OLD,KEEP,KEEP), 00098299 //** UNIT=SYSDA, 00098399 //** SPACE=(CYL,(5,2),RLSE), 00098499 //** DCB=(RECFM=FB,LRECL=47,BLKSIZE=28200) 00098599 //** 00098699 //DTSFNAM DD DUMMY 00098799 //** DISP=(NEW,CATLG,KEEP), 00098899 //** DISP=(OLD,KEEP,KEEP), 00098999 //** UNIT=SYSDA, 00099099 //** SPACE=(CYL,(5,3),RLSE), 00099199 //** DCB=(RECFM=FB,LRECL=53,BLKSIZE=31800) 00099299 //** 00099399 //DTSFOPO DD DUMMY 00099499 //** DISP=(NEW,CATLG,KEEP), 00099599 //** DISP=(OLD,KEEP,KEEP), 00099699 //** UNIT=SYSDA, 00099799 //** SPACE=(CYL,(50,15),RLSE), 00099899 //** DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00099999 //** 00100099 //DTSFAUDT DD DUMMY 00100199 //** DISP=(NEW,CATLG,KEEP), 00100299 //** DISP=(OLD,KEEP,KEEP), 00100399 //** UNIT=SYSDA, 00100499 //** SPACE=(CYL,(2,5),RLSE), 00100599 //** DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00100699 //** 00100799 //DTSFSUM DD DUMMY 00100899 //** DISP=(NEW,CATLG,CATLG), 00100999 //* DISP=(OLD,KEEP,KEEP), 00101099 //* UNIT=SYSDA, 00101199 //* SPACE=(21900,(1000,1000),RLSE), 00101299 //* DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101399 //DTSFSUM1 DD DUMMY 00101499 //** DISP=(NEW,PASS,DELETE), 00101599 //** UNIT=SYSDA, 00101699 //** SPACE=(21900,(1000,1000),RLSE), 00101799 //** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101899 //** 00101999 //DTSFSUM2 DD DUMMY 00102099 //** DISP=(NEW,PASS,DELETE), 00102199 //** UNIT=SYSDA, 00102299 //** SPACE=(21900,(1000,1000),RLSE), 00102399 //** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00102499 //** 00102599 //CHARGESO DD DUMMY 00102699 //** DISP=(OLD,KEEP,KEEP), 00102799 //** UNIT=SYSDA, 00102899 //** SPACE=(CYL,(20,10),RLSE), 00102999 //** DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00103099 //* 00103199 //DTSFLIEN DD DUMMY 00103299 //** DISP=(NEW,CATLG,CATLG), 00103399 //** DISP=(OLD,KEEP,KEEP), 00103499 //** UNIT=SYSDA, 00103599 //** SPACE=(CYL,(10,4),RLSE), 00103699 //** DCB=(RECFM=FB,LRECL=88,BLKSIZE=28160) 00103799 //* 00103899 //DTSFLINQ DD DUMMY 00103999 //** DISP=(NEW,CATLG,CATLG), 00104099 //** DISP=(OLD,KEEP,KEEP), 00104199 //** UNIT=SYSDA, 00104299 //** SPACE=(CYL,(10,4),RLSE), 00104399 //** DCB=(RECFM=FB,LRECL=26,BLKSIZE=26000) 00104499 //* 00104599 //DTSFDPC DD DUMMY 00104699 //** DISP=(NEW,CATLG,CATLG), 00104799 //** DISP=(OLD,KEEP,KEEP), 00104899 //** UNIT=SYSDA, 00104999 //** SPACE=(CYL,(10,4),RLSE), 00105099 //** DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00105199 //* 00105299 //DTSFDPCQ DD DUMMY 00105399 //** DISP=(NEW,CATLG,CATLG), 00105499 //** DISP=(OLD,KEEP,KEEP), 00105599 //** UNIT=SYSDA, 00105699 //** SPACE=(CYL,(10,4),RLSE), 00105799 //** DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00105899 //* 00105999 //DTSFMLOG DD DUMMY 00106099 //** DISP=(NEW,CATLG,CATLG), 00106199 //** DISP=(OLD,KEEP,KEEP), 00106299 //** UNIT=SYSDA, 00106399 //** SPACE=(CYL,(2,1),RLSE), 00106499 //** DCB=(RECFM=FB,LRECL=41,BLKSIZE=4100) 00106599 //* 00106699 //*STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCOUNTING DETAIL 00106799 //* COND=(0,LT) 00106899 //*SYSOUT DD SYSOUT=* 00106999 //** 00107099 //*SORTIN DD DSN=&&ACCT1,DISP=(OLD,DELETE,DELETE) 00107199 //* DD DSN=&&ACCT2,DISP=(OLD,DELETE,DELETE) 00107299 //*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107399 //*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107499 //*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107599 //*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107699 //*SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107799 //*SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107899 //*SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107999 //*SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT, 00108099 //*** DISP=(NEW,CATLG,KEEP), 00108199 //* DISP=(OLD,KEEP,KEEP), 00108299 //* UNIT=SYSDA, 00108399 //* SPACE=(CYL,(350,75),RLSE), 00108499 //* DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00108599 //* 00108699 //**** 00108799 //*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00108899 //STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCT INCREMENTAL 00108999 // COND=(0,LT) 00109099 //SYSOUT DD SYSOUT=* 00109199 //* 00109299 //SORTIN DD DSN=&&ACCT3,DISP=(OLD,DELETE,DELETE) 00109399 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109499 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109599 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109699 //SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ESSP.ACCT, 00109799 //* DISP=(NEW,CATLG,KEEP), 00109899 // DISP=(OLD,KEEP,KEEP), 00109999 // UNIT=SYSDA, 00110099 // SPACE=(CYL,(50,50),RLSE), 00110199 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00110299 //** DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00110399 //* 00110499 //**** 00110599 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110699 //**** 00110799 //*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTION DETAIL 00111099 //* COND=(0,LT) 00120099 //*YSOUT DD SYSOUT=* 00130099 //* 00140099 //*ORTIN DD DSN=&&TRAN1,DISP=(OLD,DELETE,DELETE) 00150099 //* DD DSN=&&TRAN2,DISP=(OLD,DELETE,DELETE) 00160099 //*ORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00170099 //*ORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00180099 //*ORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00190099 //*ORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00200099 //*UITOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN, 00210099 //* DISP=(NEW,CATLG,KEEP), 00220099 //* DISP=(OLD,KEEP,KEEP), 00230099 //* UNIT=SYSDA, 00240099 //* SPACE=(CYL,(200,100),RLSE), 00241099 //* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00242099 //* 00270099 //**** 00280099 //*YSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX342),DISP=SHR 00290099 //**** 00300099 //**EP0310 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANS INCREMENTAL 00301099 //** COND=(0,LT) 00302099 //**SOUT DD SYSOUT=* 00303099 //* 00304099 //**RTIN DD DSN=&&TRAN3,DISP=(OLD,DELETE,DELETE) 00305099 //**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00306099 //**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00307099 //**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00308099 //**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN.INCR, 00309099 //** DISP=(NEW,CATLG,KEEP), 00309199 //** DISP=(OLD,KEEP,KEEP), 00309299 //** UNIT=SYSDA, 00309399 //** SPACE=(CYL,(180,60),RLSE), 00309499 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00309599 //** 00309699 //**** 00309799 //**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00309899 //**** 00309999 //**EP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT QUARTER DETAIL 00310099 //** COND=(0,LT) 00320099 //**SOUT DD SYSOUT=* 00330099 //* 00340099 //**RTIN DD DSN=&&QTR1,DISP=(OLD,DELETE,DELETE) 00350099 //** DD DSN=&&QTR2,DISP=(OLD,DELETE,DELETE) 00360099 //** DD DSN=&&QTR3,DISP=(OLD,DELETE,DELETE) 00361099 //**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00370099 //**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00380099 //**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00390099 //**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00400099 //**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QTR, 00410099 //** DISP=(NEW,CATLG,KEEP), 00420099 //** DISP=(OLD,KEEP,KEEP), 00430099 //** UNIT=SYSDA, 00440099 //** SPACE=(CYL,(200,50),RLSE), 00441099 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00442099 //** 00470099 //**** 00480099 //**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00490099 //**** 00500099 //**EP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAY DIST 00501099 //** COND=(0,LT) 00502099 //**SOUT DD SYSOUT=* 00503099 //* 00504099 //**RTIN DD DSN=&&PAYDIST1,DISP=(OLD,DELETE,DELETE) 00505099 //** DD DSN=&&PAYDIST2,DISP=(OLD,DELETE,DELETE) 00506099 //**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00507099 //**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00508099 //**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00509099 //**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00509199 //**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 00509299 //** DISP=(NEW,CATLG,KEEP), 00509399 //** DISP=(OLD,KEEP,KEEP), 00509499 //** UNIT=SYSDA, 00509599 //** SPACE=(CYL,(100,50),RLSE), 00509699 //** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00509799 //** 00509899 //**** 00509999 //**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00510099 //**** 00510199 //**EP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT ERR 00511099 //** COND=(0,LT) 00520099 //**SOUT DD SYSOUT=* 00530099 //** 00540099 //**RTIN DD DSN=&&ERR1,DISP=(OLD,DELETE,DELETE) 00550099 //** DD DSN=&&ERR2,DISP=(OLD,DELETE,DELETE) 00560099 //**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00570099 //**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00580099 //**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00590099 //**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00600099 //**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00610099 //** DISP=(NEW,CATLG,KEEP), 00620099 //** DISP=(OLD,KEEP,KEEP), 00630099 //** UNIT=SYSDA, 00640099 //** SPACE=(21900,(1000,1000),RLSE), 00650099 //** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00660099 //** 00670099 //**** 00680099 //**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00690099 //**** 00700099