//****                                                                  00000100
//**                                                                    00000200
//**         CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT.        00000324
//**                   (*NO* MSTR UPDATE)                               00000505
//**                                                                    00000605
//DTSUX332 PROC RUNTYPE='ME',                                           00000774
//             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
//X332FILE DD  DSN=&&DTSBE332,                                          00007147
//             DISP=(NEW,PASS,DELETE),                                  00007239
//             UNIT=SYSDA,                                              00007419
//             SPACE=(30150,(1000,1000),RLSE),                          00007548
//             DCB=(RECFM=FB,LRECL=67,BLKSIZE=30150)                    00007648
//*                                                                     00007719
//BE332PRM DD  DSN=&&BE332PRM,                                          00007867
//             DISP=(NEW,PASS,DELETE),                                  00008024
//             UNIT=SYSDA,                                              00008124
//             SPACE=(11,(1000,1000),RLSE),                             00008268
//             DCB=(RECFM=FB,LRECL=11,BLKSIZE=11)                       00008368
//*                                                                     00008424
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00008501
//             AMP=('BUFNI=5,BUFND=10')                                 00009001
//DTSFVRO1 DD  DUMMY                                                    00010062
//DTSFBTCO DD  DUMMY                                                    00050039
//SYSIN    DD  DDNAME=EXTPARM                                           00081019
//****                                                                  00090001
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',                               00100025
//             COND=(0,LT)                                              00110025
//SYSOUT   DD  SYSOUT=*                                                 00120025
//SORTIN   DD  DSN=&&DTSBE332,                                          00130047
//             DISP=(OLD,DELETE,DELETE),                                00140039
//             UNIT=SYSDA,                                              00150025
//             SPACE=(30150,(1000,1000),RLSE),                          00160048
//             DCB=(RECFM=FB,LRECL=67,BLKSIZE=30150)                    00170048
//SORTOUT  DD  DSN=&&BE332SRT,                                          00180047
//             DISP=(,PASS,DELETE),                                     00190025
//             UNIT=SYSDA,                                              00200025
//             SPACE=(30150,(1000,1000),RLSE),                          00210048
//             DCB=(RECFM=FB,LRECL=67,BLKSIZE=30150)                    00220048
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00230025
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00240025
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00250025
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSS776),DISP=SHR          00260073
//**                                                                    00270025
//STEP0300 EXEC PGM=DTSBX332,                                           00280042
//             COND=(0,LT),                                             00290025
//             REGION=4096K                                             00300025
//SYSOUT   DD  SYSOUT=*                                                 00310025
//SYSABOUT DD  SYSOUT=*                                                 00320025
//SYSABEND DD  SYSOUT=*                                                 00330025
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00331052
//DTSX332  DD  DSN=&&BE332SRT,                                          00340047
//             DISP=(OLD,DELETE,DELETE),                                00350039
//             UNIT=SYSDA,                                              00360025
//             SPACE=(30150,(1000,1000),RLSE),                          00370048
//             DCB=(RECFM=FB,LRECL=67,BLKSIZE=30150)                    00380048
//**                                                                    00390025
//BE332PRM DD  DSN=&&BE332PRM,                                          00400069
//             DISP=(OLD,DELETE,DELETE),                                00401029
//             UNIT=SYSDA,                                              00402025
//             SPACE=(11,(1000,1000),RLSE),                             00403068
//             DCB=(RECFM=FB,LRECL=11,BLKSIZE=11)                       00404068
//*                                                                     00405025
//*DTSFVRO1 DD  DSN=&&BE332RPT,                                         00411072
//*             DISP=(NEW,PASS,DELETE),                                 00412072
//*             UNIT=SYSDA,                                             00413072
//*             SPACE=(16394,(50,100),RLSE),                            00414072
//*             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                  00415072
//***                                                                   00416071
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+3),                       00417073
//             DISP=(,CATLG,DELETE),                                    00418072
//             SPACE=(16394,(5900,5900),RLSE),                          00419175
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        00420072
//*************                                                         00430072