//**** 00000100 //** 00000200 //** ESSP DAILY: ACCOUNTING JOURNAL EXTRACT 00000300 //** (*NO* MSTR UPDATE) 00000500 //** 00000600 //DTSESDAY PROC 00000700 //* 00000800 //** DEFNS NEEDED FOR THIS PROC: 00001100 //** LVLNODE = DEVL/TEST/PROD 00001200 //**** 00001400 //STEP0100 EXEC PGM=DTSBX520, 00001500 // COND=(0,LT), 00001600 // TIME=90, 00001700 // PARM='&RUNTYPE.' 00001800 //* 00001900 //SYSOUT DD SYSOUT=* 00004000 //SYSABOUT DD SYSOUT=* 00005000 //SYSUDUMP DD SYSOUT=* 00006000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007000 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00012200 // AMP=('BUFNI=5,BUFND=10') 00013000 //CHARGESI DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR 00014000 //DTSFVRO1 DD DUMMY 00020000 //DTSFBTCO DD DUMMY 00050000 //**** 00082000 //DTSFSERV DD DUMMY 00083000 //** DISP=(NEW,CATLG,CATLG), 00084000 //** DISP=(OLD,KEEP,KEEP), 00085000 //** UNIT=SYSDA, 00085100 //** SPACE=(6,(1000,1000),RLSE), 00085200 //** DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00085300 //* 00085400 //DTSFPRF DD DUMMY 00085500 //** DISP=(NEW,CATLG,CATLG), 00085600 //** DISP=(OLD,KEEP,KEEP), 00085700 //** UNIT=SYSDA, 00085800 //** SPACE=(CYL,(10,5),RLSE), 00085900 //** DCB=(RECFM=FB,LRECL=88,BLKSIZE=26400) 00086000 //* 00086100 //DTSFDET DD DUMMY 00086200 //** DISP=(NEW,CATLG,CATLG), 00086300 //** DISP=(OLD,KEEP,KEEP), 00086400 //** UNIT=SYSDA, 00086500 //** SPACE=(CYL,(10,5),RLSE), 00086600 //** DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500) 00086700 //* 00086800 //DTSFFSC DD DUMMY 00086900 //** DISP=(NEW,CATLG,CATLG), 00087000 //** DISP=(OLD,KEEP,KEEP), 00087100 //** UNIT=SYSDA, 00087200 //** SPACE=(CYL,(10,5),RLSE), 00087300 //** DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600) 00087400 //* 00087500 //DTSFADR DD DUMMY 00087600 //** DISP=(NEW,CATLG,CATLG), 00087700 //** DISP=(OLD,KEEP,KEEP), 00087800 //** UNIT=SYSDA, 00087900 //** SPACE=(CYL,(50,10),RLSE), 00088000 //** DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00088100 //* 00088200 //DTSFDST DD DUMMY 00088300 //*** DISP=(NEW,CATLG,KEEP), 00088400 //* DISP=(OLD,KEEP,KEEP), 00088500 //* UNIT=SYSDA, 00088600 //* SPACE=(CYL,(100,50),RLSE), 00088700 //* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00088800 //** 00088900 //DTSFDST1 DD DUMMY 00089000 //** DISP=(NEW,PASS,DELETE), 00089100 //** UNIT=SYSDA, 00089200 //** SPACE=(CYL,(100,50),RLSE), 00089300 //** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00089400 //** 00089500 //DTSFDST2 DD DUMMY 00089600 //** DISP=(NEW,PASS,DELETE), 00089700 //** UNIT=SYSDA, 00089800 //** SPACE=(CYL,(100,50),RLSE), 00089900 //** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00090000 //* 00090100 //DTSFRATE DD DUMMY 00090200 //** DISP=(NEW,CATLG,KEEP), 00090300 //** DISP=(OLD,KEEP,KEEP), 00090400 //** UNIT=SYSDA, 00090500 //** SPACE=(CYL,(25,5),RLSE), 00090600 //** DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00090700 //** 00090800 //DTSFACC1 DD DSN=&&ACCT1, 00090900 // DISP=(NEW,PASS,DELETE), 00091000 // UNIT=SYSDA, 00091100 // SPACE=(CYL,(100,50),RLSE), 00091200 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00091300 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091400 //* 00091500 //DTSFACC2 DD DSN=&&ACCT2, 00091600 // DISP=(NEW,PASS,DELETE), 00091700 // UNIT=SYSDA, 00091800 // SPACE=(CYL,(50,50),RLSE), 00091900 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092000 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092100 //* 00092200 //DTSFACC3 DD DSN=&&ACCT3, 00092300 // DISP=(NEW,PASS,DELETE), 00092400 // UNIT=SYSDA, 00092500 // SPACE=(CYL,(50,50),RLSE), 00092600 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092700 //* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092800 //* 00092900 //DTSFQTR1 DD DUMMY 00093000 //** DISP=(NEW,PASS,DELETE), 00093100 //** UNIT=SYSDA, 00093200 //** SPACE=(CYL,(200,50),RLSE), 00093300 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093400 //* 00093500 //DTSFQTR2 DD DUMMY 00093600 //** DISP=(NEW,PASS,DELETE), 00093700 //** UNIT=SYSDA, 00093800 //** SPACE=(CYL,(200,50),RLSE), 00093900 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094000 //* 00094100 //DTSFQTR3 DD DUMMY 00094200 //** DISP=(NEW,PASS,DELETE), 00094300 //** UNIT=SYSDA, 00094400 //** SPACE=(CYL,(200,50),RLSE), 00094500 //** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094600 //* 00094700 //DTSFTRN1 DD DUMMY 00094800 //** DISP=(NEW,PASS,DELETE), 00094900 //** UNIT=SYSDA, 00095000 //** SPACE=(CYL,(120,40),RLSE), 00095100 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095200 //* 00095300 //DTSFTRN2 DD DUMMY 00095400 //** DISP=(NEW,PASS,DELETE), 00095500 //** UNIT=SYSDA, 00095600 //** SPACE=(CYL,(60,40),RLSE), 00095700 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095800 //** 00095900 //DTSFTRN3 DD DUMMY 00096000 //** DISP=(NEW,PASS,DELETE), 00096100 //** UNIT=SYSDA, 00096200 //** SPACE=(CYL,(60,40),RLSE), 00096300 //** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00096400 //** 00096500 //DTSFQCOL DD DUMMY 00096600 //** DISP=(NEW,CATLG,KEEP), 00096700 //** DISP=(OLD,KEEP,KEEP), 00096800 //** UNIT=SYSDA, 00096900 //** SPACE=(CYL,(150,50),RLSE), 00097000 //** DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00097100 //** 00097200 //DTSFBNK DD DUMMY 00097300 //** DISP=(NEW,CATLG,KEEP), 00097400 //** DISP=(OLD,KEEP,KEEP), 00097500 //** UNIT=SYSDA, 00097600 //** SPACE=(CYL,(5,1),RLSE), 00097700 //** DCB=(RECFM=FB,LRECL=42,BLKSIZE=25200) 00097800 //** 00097900 //DTSFREL DD DUMMY 00098000 //** DISP=(NEW,CATLG,KEEP), 00098100 //** DISP=(OLD,KEEP,KEEP), 00098200 //** UNIT=SYSDA, 00098300 //** SPACE=(CYL,(5,2),RLSE), 00098400 //** DCB=(RECFM=FB,LRECL=47,BLKSIZE=28200) 00098500 //** 00098600 //DTSFNAM DD DUMMY 00098700 //** DISP=(NEW,CATLG,KEEP), 00098800 //** DISP=(OLD,KEEP,KEEP), 00098900 //** UNIT=SYSDA, 00099000 //** SPACE=(CYL,(5,3),RLSE), 00099100 //** DCB=(RECFM=FB,LRECL=53,BLKSIZE=31800) 00099200 //** 00099300 //DTSFOPO DD DUMMY 00099400 //** DISP=(NEW,CATLG,KEEP), 00099500 //** DISP=(OLD,KEEP,KEEP), 00099600 //** UNIT=SYSDA, 00099700 //** SPACE=(CYL,(50,15),RLSE), 00099800 //** DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00099900 //** 00100000 //DTSFAUDT DD DUMMY 00100100 //** DISP=(NEW,CATLG,KEEP), 00100200 //** DISP=(OLD,KEEP,KEEP), 00100300 //** UNIT=SYSDA, 00100400 //** SPACE=(CYL,(2,5),RLSE), 00100500 //** DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00100600 //** 00100700 //DTSFSUM DD DUMMY 00100800 //** DISP=(NEW,CATLG,CATLG), 00100900 //* DISP=(OLD,KEEP,KEEP), 00101000 //* UNIT=SYSDA, 00101100 //* SPACE=(21900,(1000,1000),RLSE), 00101200 //* DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101300 //DTSFSUM1 DD DUMMY 00101400 //** DISP=(NEW,PASS,DELETE), 00101500 //** UNIT=SYSDA, 00101600 //** SPACE=(21900,(1000,1000),RLSE), 00101700 //** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101800 //** 00101900 //DTSFSUM2 DD DUMMY 00102000 //** DISP=(NEW,PASS,DELETE), 00102100 //** UNIT=SYSDA, 00102200 //** SPACE=(21900,(1000,1000),RLSE), 00102300 //** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00102400 //** 00102500 //CHARGESO DD DUMMY 00102600 //** DISP=(OLD,KEEP,KEEP), 00102700 //** UNIT=SYSDA, 00102800 //** SPACE=(CYL,(20,10),RLSE), 00102900 //** DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00103000 //* 00103100 //DTSFLIEN DD DUMMY 00103200 //** DISP=(NEW,CATLG,CATLG), 00103300 //** DISP=(OLD,KEEP,KEEP), 00103400 //** UNIT=SYSDA, 00103500 //** SPACE=(CYL,(10,4),RLSE), 00103600 //** DCB=(RECFM=FB,LRECL=88,BLKSIZE=28160) 00103700 //* 00103800 //DTSFLINQ DD DUMMY 00103900 //** DISP=(NEW,CATLG,CATLG), 00104000 //** DISP=(OLD,KEEP,KEEP), 00104100 //** UNIT=SYSDA, 00104200 //** SPACE=(CYL,(10,4),RLSE), 00104300 //** DCB=(RECFM=FB,LRECL=26,BLKSIZE=26000) 00104400 //* 00104500 //DTSFDPC DD DUMMY 00104600 //** DISP=(NEW,CATLG,CATLG), 00104700 //** DISP=(OLD,KEEP,KEEP), 00104800 //** UNIT=SYSDA, 00104900 //** SPACE=(CYL,(10,4),RLSE), 00105000 //** DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00105100 //* 00105200 //DTSFDPCQ DD DUMMY 00105300 //** DISP=(NEW,CATLG,CATLG), 00105400 //** DISP=(OLD,KEEP,KEEP), 00105500 //** UNIT=SYSDA, 00105600 //** SPACE=(CYL,(10,4),RLSE), 00105700 //** DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00105800 //* 00105900 //DTSFMLOG DD DUMMY 00106000 //** DISP=(NEW,CATLG,CATLG), 00106100 //** DISP=(OLD,KEEP,KEEP), 00106200 //** UNIT=SYSDA, 00106300 //** SPACE=(CYL,(2,1),RLSE), 00106400 //** DCB=(RECFM=FB,LRECL=41,BLKSIZE=4100) 00106500 //* 00106600 //STEP0200 EXEC PGM=SORT, SORT ACCT INCREMENTAL 00108900 // COND=(0,LT) 00109000 //SYSOUT DD SYSOUT=* 00109100 //* 00109200 //SORTIN DD DSN=&&ACCT3,DISP=(OLD,DELETE,DELETE) 00109300 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(400,100),RLSE) 00109400 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(400,100),RLSE) 00109500 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(400,100),RLSE) 00109600 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(400,100),RLSE) 00109700 //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(400,100),RLSE) 00109800 //SORTOUT DD DSN=DOESTAX.&LVLNODE..ESSP.DAILY.MJRNACCT(+1), 00109900 // DISP=(NEW,CATLG,KEEP), 00110000 //* DISP=(OLD,KEEP,KEEP), 00110100 // UNIT=SYSDA, 00110200 // SPACE=(CYL,(10,5),RLSE), 00110300 // DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00110400 //* 00110600 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110800 //**** 00700000 //STEP0300 EXEC PGM=DTSBX521, 00710000 // COND=(0,LT) 00720000 //* 00730000 //SYSOUT DD SYSOUT=* 00740000 //SYSABOUT DD SYSOUT=* 00750000 //SYSUDUMP DD SYSOUT=* 00760000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00770000 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00780000 // AMP=('BUFNI=5,BUFND=10') 00790000 //CHARGESI DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR 00800000 //DTSFVRO1 DD DUMMY 00810000 //DTSFBTCO DD DUMMY 00820000 //**** 00830000 //DTSFTRAN DD DSN=DOESTAX.&LVLNODE..ESSP.DAILY.MJRNACCT(+1), 00840000 // DISP=(OLD,KEEP,KEEP) 00850000 //* 00860000 //DTSFACCT DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT, 00880000 //* DISP=(NEW,CATLG,KEEP), 00890000 // DISP=(OLD,KEEP,KEEP), 00900000 // UNIT=SYSDA, 00920000 // SPACE=(CYL,(50,50),RLSE), 00930000 // DCB=(RECFM=FB,LRECL=253,BLKSIZE=25300) 00940000 //* 00950000 //DTSFPAYT DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT, 00960000 //* DISP=(NEW,CATLG,KEEP), 00970000 // DISP=(OLD,KEEP,KEEP), 00980000 // UNIT=SYSDA, 01000000 // SPACE=(CYL,(50,50),RLSE), 01010000 // DCB=(RECFM=FB,LRECL=120,BLKSIZE=12000) 01020000 //* 01030000 //DTSFPAYD DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS, 01040000 //* DISP=(NEW,CATLG,KEEP), 01050000 // DISP=(OLD,KEEP,KEEP), 01060000 // UNIT=SYSDA, 01080000 // SPACE=(CYL,(50,50),RLSE), 01090000 // DCB=(RECFM=FB,LRECL=63,BLKSIZE=6300) 01100000 //* 01110000 //********************************************************************* 01111000 //STEP0400 EXEC PGM=IDCAMS, COPY MJRN TO GDG 01112000 // COND=(0,LT) 01113000 //SYSPRINT DD SYSOUT=* 01114000 //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT, 01115000 // DISP=SHR, 01116000 // UNIT=SYSDA, 01117000 // SPACE=(8192,(100,200),RLSE), 01118000 // DCB=(RECFM=FB,LRECL=253,BLKSIZE=25300) 01119002 //OUTDD01 DD DSN=DOESTAX.CONV.DOES.DBKUP.MJRNACCT(+1), 01119100 // DISP=(,CATLG,DELETE), 01119200 // SPACE=(25600,(100,200),RLSE), 01119300 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=253,BLKSIZE=25300) 01119402 //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 01119500 //* 01119600 //********************************************************************* 01119700 //STEP0410 EXEC PGM=IDCAMS, COPY PAYMT TO GDG 01119800 // COND=(0,LT) 01119900 //SYSPRINT DD SYSOUT=* 01120000 //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT, 01120100 // DISP=SHR, 01120200 // UNIT=SYSDA, 01120300 // SPACE=(8192,(100,200),RLSE), 01120400 // DCB=(RECFM=FB,LRECL=120,BLKSIZE=12000) 01120502 //OUTDD01 DD DSN=DOESTAX.CONV.DOES.DBKUP.TAXPAYMT(+1), 01120600 // DISP=(,CATLG,DELETE), 01120700 // SPACE=(25600,(100,200),RLSE), 01120800 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=120,BLKSIZE=12000) 01120902 //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 01121000 //* 01121100 //STEP0420 EXEC PGM=IDCAMS, COPY CRDEIT TO GDG 01121200 // COND=(0,LT) 01121300 //SYSPRINT DD SYSOUT=* 01121400 //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS, 01121501 // DISP=SHR, 01121600 // UNIT=SYSDA, 01121700 // SPACE=(8192,(100,200),RLSE), 01121800 // DCB=(RECFM=FB,LRECL=63,BLKSIZE=6300) 01121902 //OUTDD01 DD DSN=DOESTAX.CONV.DOES.DBKUP.CREDITS(+1), 01122000 // DISP=(,CATLG,DELETE), 01122100 // SPACE=(25600,(100,200),RLSE), 01122200 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=63,BLKSIZE=6300) 01122302 //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 01122400 //* 01122500 //********************************************************************* 01123000 //******************* END OF PROC ZL1 12/10/15 ********************* 01130000