378 lines
30 KiB
Plaintext
378 lines
30 KiB
Plaintext
//**** 00000100
|
|
//** 00000200
|
|
//** INITIAL LOAD: ACCOUNTING DATABASE. 00000399
|
|
//** (*NO* MSTR UPDATE) 00000505
|
|
//** 00000605
|
|
//DTSBX340 PROC 00000799
|
|
//* 00000899
|
|
//** DEFNS NEEDED FOR THIS PROC: 00001105
|
|
//** LVLNODE = DEVL/TEST/PROD 00001205
|
|
//**** 00001408
|
|
//STEP0100 EXEC PGM=DTSBX340, PERIODIC EXTRACT 00001599
|
|
// COND=(0,LT), 00001699
|
|
// PARM='&RUNTYPE.' 00001799
|
|
//* 00001819
|
|
//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 DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF, 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 DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DET, 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 DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.FSC, 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 DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ADR, 00087699
|
|
//** DISP=(NEW,CATLG,CATLG), 00087799
|
|
// DISP=SHR, 00087899
|
|
// UNIT=SYSDA, 00087999
|
|
// SPACE=(CYL,(50,10),RLSE), 00088099
|
|
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00088199
|
|
//* 00088299
|
|
//*DTSFDST DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 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 DSN=&&PAYDIST1, 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 DSN=&&PAYDIST2, 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 DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.RATE, 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=72,BLKSIZE=30240) 00091399
|
|
//* 00091499
|
|
//DTSFACC2 DD DSN=&&ACCT2, 00091599
|
|
// DISP=(NEW,PASS,DELETE), 00091699
|
|
// UNIT=SYSDA, 00091799
|
|
// SPACE=(CYL,(50,50),RLSE), 00091899
|
|
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091999
|
|
//* 00092099
|
|
//DTSFACC3 DD DSN=&&ACCT3, 00092199
|
|
// DISP=(NEW,PASS,DELETE), 00092299
|
|
// UNIT=SYSDA, 00092399
|
|
// SPACE=(CYL,(50,50),RLSE), 00092499
|
|
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092599
|
|
//* 00092699
|
|
//DTSFQTR1 DD DSN=&&QTR1, 00092799
|
|
// DISP=(NEW,PASS,DELETE), 00092899
|
|
// UNIT=SYSDA, 00092999
|
|
// SPACE=(CYL,(200,50),RLSE), 00093099
|
|
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093199
|
|
//* 00093299
|
|
//DTSFQTR2 DD DSN=&&QTR2, 00093399
|
|
// DISP=(NEW,PASS,DELETE), 00093499
|
|
// UNIT=SYSDA, 00093599
|
|
// SPACE=(CYL,(200,50),RLSE), 00093699
|
|
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093799
|
|
//* 00093899
|
|
//DTSFQTR3 DD DSN=&&QTR3, 00093999
|
|
// DISP=(NEW,PASS,DELETE), 00094099
|
|
// UNIT=SYSDA, 00094199
|
|
// SPACE=(CYL,(200,50),RLSE), 00094299
|
|
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094399
|
|
//* 00094499
|
|
//DTSFTRN1 DD DSN=&&TRAN1, 00094599
|
|
// DISP=(NEW,PASS,DELETE), 00094699
|
|
// UNIT=SYSDA, 00094799
|
|
// SPACE=(CYL,(120,40),RLSE), 00094899
|
|
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00094999
|
|
//* 00095099
|
|
//DTSFTRN2 DD DSN=&&TRAN2, 00095199
|
|
// DISP=(NEW,PASS,DELETE), 00095299
|
|
// UNIT=SYSDA, 00095399
|
|
// SPACE=(CYL,(60,40),RLSE), 00095499
|
|
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095599
|
|
//** 00095699
|
|
//DTSFTRN3 DD DSN=&&TRAN3, 00095799
|
|
// DISP=(NEW,PASS,DELETE), 00095899
|
|
// UNIT=SYSDA, 00095999
|
|
// SPACE=(CYL,(60,40),RLSE), 00096099
|
|
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00096199
|
|
//** 00096299
|
|
//DTSFQCOL DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QCOLL, 00096399
|
|
//** DISP=(NEW,CATLG,KEEP), 00096499
|
|
// DISP=(OLD,KEEP,KEEP), 00096599
|
|
// UNIT=SYSDA, 00096699
|
|
// SPACE=(CYL,(150,50),RLSE), 00096799
|
|
// DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00096899
|
|
//** 00096999
|
|
//DTSFREL DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.REL, 00097099
|
|
//** DISP=(NEW,CATLG,KEEP), 00097199
|
|
// DISP=(OLD,KEEP,KEEP), 00097299
|
|
// UNIT=SYSDA, 00097399
|
|
// SPACE=(CYL,(5,2),RLSE), 00097499
|
|
// DCB=(RECFM=FB,LRECL=47,BLKSIZE=28200) 00097599
|
|
//** 00097699
|
|
//DTSFNAM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.EMP.NAME, 00097799
|
|
//** DISP=(NEW,CATLG,KEEP), 00097899
|
|
// DISP=(OLD,KEEP,KEEP), 00097999
|
|
// UNIT=SYSDA, 00098099
|
|
// SPACE=(CYL,(5,3),RLSE), 00098199
|
|
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=31800) 00098299
|
|
//** 00098399
|
|
//DTSFOPO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.OPO, 00098499
|
|
//** DISP=(NEW,CATLG,KEEP), 00098599
|
|
// DISP=(OLD,KEEP,KEEP), 00098699
|
|
// UNIT=SYSDA, 00098799
|
|
// SPACE=(CYL,(50,15),RLSE), 00098899
|
|
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00098999
|
|
//** 00099099
|
|
//DTSFAUDT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.AUDIT, 00099199
|
|
//** DISP=(NEW,CATLG,KEEP), 00099299
|
|
// DISP=(OLD,KEEP,KEEP), 00099399
|
|
// UNIT=SYSDA, 00099499
|
|
// SPACE=(CYL,(2,5),RLSE), 00099599
|
|
// DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00099699
|
|
//** 00099799
|
|
//*DTSFSUM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00099899
|
|
//** DISP=(NEW,CATLG,CATLG), 00099999
|
|
//* DISP=(OLD,KEEP,KEEP), 00100099
|
|
//* UNIT=SYSDA, 00100199
|
|
//* SPACE=(21900,(1000,1000),RLSE), 00100299
|
|
//* DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00100399
|
|
//DTSFSUM1 DD DSN=&&ERR1, 00100499
|
|
// DISP=(NEW,PASS,DELETE), 00100599
|
|
// UNIT=SYSDA, 00100699
|
|
// SPACE=(21900,(1000,1000),RLSE), 00100799
|
|
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00100899
|
|
//** 00100999
|
|
//DTSFSUM2 DD DSN=&&ERR2, 00101099
|
|
// DISP=(NEW,PASS,DELETE), 00101199
|
|
// UNIT=SYSDA, 00101299
|
|
// SPACE=(21900,(1000,1000),RLSE), 00101399
|
|
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101499
|
|
//* 00101599
|
|
//DTSFLIEN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.LIEN, 00101699
|
|
//** DISP=(NEW,CATLG,CATLG), 00101799
|
|
// DISP=(OLD,KEEP,KEEP), 00101899
|
|
// UNIT=SYSDA, 00101999
|
|
// SPACE=(CYL,(10,4),RLSE), 00102099
|
|
// DCB=(RECFM=FB,LRECL=88,BLKSIZE=28160) 00102199
|
|
//* 00102299
|
|
//DTSFLINQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.LIEN.QTR, 00102399
|
|
//** DISP=(NEW,CATLG,CATLG), 00102499
|
|
// DISP=(OLD,KEEP,KEEP), 00102599
|
|
// UNIT=SYSDA, 00102699
|
|
// SPACE=(CYL,(10,4),RLSE), 00102799
|
|
// DCB=(RECFM=FB,LRECL=26,BLKSIZE=26000) 00102899
|
|
//* 00102999
|
|
//DTSFDPC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DPC, 00103099
|
|
//** DISP=(NEW,CATLG,CATLG), 00103199
|
|
// DISP=(OLD,KEEP,KEEP), 00103299
|
|
// UNIT=SYSDA, 00103399
|
|
// SPACE=(CYL,(10,4),RLSE), 00103499
|
|
// DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00103599
|
|
//* 00103699
|
|
//DTSFDPCQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DPC.QTR, 00103799
|
|
//** DISP=(NEW,CATLG,CATLG), 00103899
|
|
// DISP=(OLD,KEEP,KEEP), 00103999
|
|
// UNIT=SYSDA, 00104099
|
|
// SPACE=(CYL,(10,4),RLSE), 00104199
|
|
// DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00104299
|
|
//* 00104399
|
|
//DTSFMLOG DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.MLOG, 00104499
|
|
//** DISP=(NEW,CATLG,CATLG), 00104599
|
|
// DISP=(OLD,KEEP,KEEP), 00104699
|
|
// UNIT=SYSDA, 00104799
|
|
// SPACE=(CYL,(2,1),RLSE), 00104899
|
|
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=3000) 00104999
|
|
//* 00105099
|
|
//* 00105199
|
|
//** 00105299
|
|
//** NO LONGER NEEDED IN THIS JOB, FILE CREATED DURING THE DAILY CHARGIN00105399
|
|
//** JOB DTSCHGD1 00105499
|
|
//** 00105599
|
|
//*HARGESO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.CHARGE, 00105699
|
|
//* DISP=(OLD,KEEP,KEEP), 00105799
|
|
//* UNIT=SYSDA, 00105899
|
|
//* SPACE=(CYL,(20,10),RLSE), 00105999
|
|
//* DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00106099
|
|
//* 00106199
|
|
//*STEP0200 EXEC PGM=SORT, SORT ACCOUNTING DETAIL 00106299
|
|
//* COND=(0,LT) 00106399
|
|
//*SYSOUT DD SYSOUT=* 00106499
|
|
//** 00106599
|
|
//*SORTIN DD DSN=&&ACCT1,DISP=(OLD,DELETE,DELETE) 00106699
|
|
//* DD DSN=&&ACCT2,DISP=(OLD,DELETE,DELETE) 00106799
|
|
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00106899
|
|
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00106999
|
|
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107099
|
|
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107199
|
|
//*SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107299
|
|
//*SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107399
|
|
//*SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107499
|
|
//*SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT, 00107599
|
|
//*** DISP=(NEW,CATLG,KEEP), 00107699
|
|
//* DISP=(OLD,KEEP,KEEP), 00107799
|
|
//* UNIT=SYSDA, 00107899
|
|
//* SPACE=(CYL,(350,75),RLSE), 00107999
|
|
//* DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00108099
|
|
//* 00108199
|
|
//**** 00108299
|
|
//*SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00108399
|
|
//STEP0210 EXEC PGM=SORT, SORT ACCT INCREMENTAL 00108499
|
|
// COND=(0,LT) 00108599
|
|
//SYSOUT DD SYSOUT=* 00108699
|
|
//* 00108799
|
|
//SORTIN DD DSN=&&ACCT3,DISP=(OLD,DELETE,DELETE) 00108899
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00108999
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109199
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.ACCT.INCR, 00109299
|
|
//* DISP=(NEW,KEEP,KEEP), 00109399
|
|
// DISP=(OLD,KEEP,KEEP), 00109499
|
|
// UNIT=SYSDA, 00109599
|
|
// SPACE=(CYL,(50,50),RLSE), 00109699
|
|
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00109799
|
|
//* 00109899
|
|
//**** 00109999
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110099
|
|
//**** 00110199
|
|
//*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.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00290099
|
|
//**** 00300099
|
|
//STEP0310 EXEC PGM=SORT, SORT TRANS INCREMENTAL 00301099
|
|
// COND=(0,LT) 00302099
|
|
//SYSOUT DD SYSOUT=* 00303099
|
|
//* 00304099
|
|
//SORTIN DD DSN=&&TRAN3,DISP=(OLD,DELETE,DELETE) 00305099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00306099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00307099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00308099
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..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
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00309899
|
|
//**** 00309999
|
|
//STEP0400 EXEC PGM=SORT, SORT QUARTER DETAIL 00310099
|
|
// COND=(0,LT) 00320099
|
|
//SYSOUT DD SYSOUT=* 00330099
|
|
//* 00340099
|
|
//SORTIN DD DSN=&&QTR1,DISP=(OLD,DELETE,DELETE) 00350099
|
|
// DD DSN=&&QTR2,DISP=(OLD,DELETE,DELETE) 00360099
|
|
// DD DSN=&&QTR3,DISP=(OLD,DELETE,DELETE) 00361099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00370099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00380099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00390099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00400099
|
|
//SORTOUT 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
|
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00490099
|
|
//**** 00500099
|
|
//STEP0500 EXEC PGM=SORT, SORT PAY DIST 00501099
|
|
// COND=(0,LT) 00502099
|
|
//SYSOUT DD SYSOUT=* 00503099
|
|
//* 00504099
|
|
//SORTIN DD DSN=&&PAYDIST1,DISP=(OLD,DELETE,DELETE) 00505099
|
|
// DD DSN=&&PAYDIST2,DISP=(OLD,DELETE,DELETE) 00506099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00507099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00508099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00509099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00509199
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 00509299
|
|
//** DISP=(NEW,CATLG,KEEP), 00509399
|
|
// DISP=SHR 00509499
|
|
//* UNIT=SYSDA, 00509599
|
|
//* SPACE=(CYL,(100,50),RLSE), 00509699
|
|
//* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00509799
|
|
//* 00509899
|
|
//**** 00509999
|
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00510099
|
|
//**** 00510199
|
|
//STEP0600 EXEC PGM=SORT, SORT ERR 00511099
|
|
// COND=(0,LT) 00520099
|
|
//SYSOUT DD SYSOUT=* 00530099
|
|
//* 00540099
|
|
//SORTIN DD DSN=&&ERR1,DISP=(OLD,DELETE,DELETE) 00550099
|
|
// DD DSN=&&ERR2,DISP=(OLD,DELETE,DELETE) 00560099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00570099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00580099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00590099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00600099
|
|
//SORTOUT 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
|
|
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00690099
|
|
//**** 00700099
|