385 lines
30 KiB
Plaintext
385 lines
30 KiB
Plaintext
//**** 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, 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, 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, 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, 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, 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, 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, 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
|