//****                                                                  00000100
//**                                                                    00000200
//**         INITIAL LOAD: ACCOUNTING DATABASE.                         00000399
//**                   (*NO* MSTR UPDATE)                               00000505
//**                                                                    00000605
//DTSUX335 PROC RUNTYPE='RQ',                                           00000799
//             PREBACK='N',                                             00000821
//             CHKONLY='N',                                             00000921
//             IOTRACE='N'                                              00001038
//**              DEFNS NEEDED FOR THIS PROC:                           00001105
//**   LVLNODE = DEVL/TEST/PROD                                         00001205
//****                                                                  00001408
//STEP0100 EXEC PGM=DTSBD400,                         PERIODIC EXTRACT  00001519
//             COND=(0,LT),                                             00001619
//         PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'               00001722
//*                                                                     00001819
//SYSOUT   DD  SYSOUT=*                                                 00004001
//SYSABOUT DD  SYSOUT=*                                                 00005001
//SYSUDUMP DD  SYSOUT=*                                                 00006001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00007014
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00012201
//             AMP=('BUFNI=5,BUFND=10')                                 00013001
//DTSFVRO1 DD  DUMMY                                                    00020039
//DTSFBTCO DD  DUMMY                                                    00050039
//SYSIN    DD  DDNAME=EXTPARM                                           00081019
//****                                                                  00082099
//DTSFPARM DD  DSN=&&X335PARM,                                          00082199
//             DISP=(NEW,PASS,DELETE),                                  00082299
//             UNIT=SYSDA,                                              00082499
//             SPACE=(16,(10,10),RLSE),                                 00082599
//             DCB=(RECFM=FB,LRECL=16,BLKSIZE=16)                       00082699
//*                                                                     00082799
//DTSFPRF  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF,                   00082899
//**           DISP=(NEW,CATLG,CATLG),                                  00082999
//             DISP=(OLD,KEEP,KEEP),                                    00083099
//             UNIT=SYSDA,                                              00083199
//             SPACE=(CYL,(10,5),RLSE),                                 00083299
//             DCB=(RECFM=FB,LRECL=72,BLKSIZE=28800)                    00083399
//*                                                                     00083499
//DTSFDET  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DET,                   00083599
//**           DISP=(NEW,CATLG,CATLG),                                  00083699
//             DISP=(OLD,KEEP,KEEP),                                    00083799
//             UNIT=SYSDA,                                              00083899
//             SPACE=(CYL,(10,5),RLSE),                                 00083999
//             DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500)                    00084099
//*                                                                     00084199
//DTSFFSC  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.FSC,                   00084299
//**           DISP=(NEW,CATLG,CATLG),                                  00084399
//             DISP=(OLD,KEEP,KEEP),                                    00084499
//             UNIT=SYSDA,                                              00084599
//             SPACE=(CYL,(10,5),RLSE),                                 00084699
//             DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)                     00084799
//*                                                                     00084899
//DTSFADR  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ADR,                   00084999
//**           DISP=(NEW,CATLG,CATLG),                                  00085099
//             DISP=(OLD,KEEP,KEEP),                                    00085199
//             UNIT=SYSDA,                                              00085299
//             SPACE=(CYL,(10,5),RLSE),                                 00085399
//             DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900)                   00085499
//*                                                                     00085599
//DTSFACCT DD  DSN=&&ACCT,                                              00085699
//             DISP=(NEW,PASS,DELETE),                                  00085799
//             UNIT=SYSDA,                                              00085899
//             SPACE=(CYL,(75,10),RLSE),                                00086099
//             DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500)                    00086199
//*                                                                     00086299
//DTSFTRAN DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN,                  00086399
//**           DISP=(NEW,CATLG,KEEP),                                   00086499
//             DISP=(OLD,KEEP,KEEP),                                    00086599
//             UNIT=SYSDA,                                              00086699
//             SPACE=(CYL,(20,5),RLSE),                                 00086799
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)                   00086899
//**                                                                    00086999
//DTSFQTR  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QTR,                   00087099
//**           DISP=(NEW,CATLG,KEEP),                                   00087199
//             DISP=(OLD,KEEP,KEEP),                                    00087299
//             UNIT=SYSDA,                                              00087399
//             SPACE=(CYL,(10,5),RLSE),                                 00087499
//             DCB=(RECFM=FB,LRECL=41,BLKSIZE=28700)                    00087599
//**                                                                    00087699
//DTSFRATE DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.RATE,                  00087799
//**           DISP=(NEW,CATLG,KEEP),                                   00087899
//             DISP=(OLD,KEEP,KEEP),                                    00087999
//             UNIT=SYSDA,                                              00088099
//             SPACE=(CYL,(10,5),RLSE),                                 00088199
//             DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000)                    00088299
//**                                                                    00088399
//DTSFQCOL DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QCOLL,                 00088499
//**           DISP=(NEW,CATLG,KEEP),                                   00088599
//             DISP=(OLD,KEEP,KEEP),                                    00088699
//             UNIT=SYSDA,                                              00088799
//             SPACE=(CYL,(10,5),RLSE),                                 00088899
//             DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500)                    00088999
//**                                                                    00089099
//DTSFSUM  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR,                   00089199
//**           DISP=(NEW,CATLG,CATLG),                                  00089299
//             DISP=(OLD,KEEP,KEEP),                                    00089399
//             UNIT=SYSDA,                                              00089499
//             SPACE=(CYL,(10,5),RLSE),                                 00089599
//             DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900)                    00089699
//**                                                                    00089799
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',   SORT ACCOUNTING DETAIL      00089899
//            COND=(0,LT)                                               00089999
//SYSOUT DD SYSOUT=*                                                    00090099
//*                                                                     00090199
//SORTIN DD DSN=&&ACCT,                                                 00091099
//             DISP=(OLD,DELETE,DELETE)                                 00100099
//*                                                                     00101099
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)                      00102099
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)                      00103099
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)                      00104099
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)                      00105099
//SORTOUT  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT,                  00108099
//**           DISP=(NEW,CATLG,KEEP),                                   00109099
//             DISP=(OLD,KEEP,KEEP),                                    00109199
//             UNIT=SYSDA,                                              00109299
//             SPACE=(CYL,(75,10),RLSE),                                00109399
//             DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500)                    00109499
//****                                                                  00110001
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX335),DISP=SHR    00120099