347 lines
27 KiB
Plaintext
347 lines
27 KiB
Plaintext
//**** 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,PARM='VLTEST=0', 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
|