//**** 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,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.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00290099 //**** 00300099 //STEP0310 EXEC PGM=SORT,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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