//****                                                                  00000100
//**                                                                    00000200
//**         CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT.        00000324
//**                   (*NO* MSTR UPDATE)                               00000505
//**                                                                    00000605
//DTSUX309 PROC RUNTYPE='RQ',                                           00000730
//             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
//X330FILE DD  DSN=&&DTSBE330,                                          00007139
//             DISP=(NEW,PASS,DELETE),                                  00007239
//             UNIT=SYSDA,                                              00007419
//             SPACE=(25000,(1000,1000),RLSE),                          00007526
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00007626
//*                                                                     00007719
//BE330PRM DD  DSN=&&BE330PRM,                                          00007830
//             DISP=(NEW,PASS,DELETE),                                  00008024
//             UNIT=SYSDA,                                              00008124
//             SPACE=(5,(1000,1000),RLSE),                              00008224
//             DCB=(RECFM=FB,LRECL=5,BLKSIZE=5)                         00008324
//*                                                                     00008424
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00008501
//             AMP=('BUFNI=5,BUFND=10')                                 00009001
//DTSFVRO1 DD  DUMMY                                                    00010039
//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=&&DTSBE330,                                          00130039
//             DISP=(OLD,DELETE,DELETE),                                00140039
//             UNIT=SYSDA,                                              00150025
//             SPACE=(25000,(1000,1000),RLSE),                          00160027
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00170027
//SORTOUT  DD  DSN=&&BE330SRT,                                          00180030
//             DISP=(,PASS,DELETE),                                     00190025
//             UNIT=SYSDA,                                              00200025
//             SPACE=(25000,(1000,1000),RLSE),                          00210026
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00220026
//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.&LVLNODE..APPL.PARMLIB(DTSS776),DISP=SHR     00260042
//**                                                                    00270025
//STEP0300 EXEC PGM=DTSBX330,                                           00280034
//             COND=(0,LT),                                             00290025
//             REGION=4096K                                             00300025
//SYSOUT   DD  SYSOUT=*                                                 00310025
//SYSABOUT DD  SYSOUT=*                                                 00320025
//SYSABEND DD  SYSOUT=*                                                 00330025
//DTSX330  DD  DSN=&&BE330SRT,                                          00340030
//             DISP=(OLD,DELETE,DELETE),                                00350039
//             UNIT=SYSDA,                                              00360025
//             SPACE=(25000,(1000,1000),RLSE),                          00370026
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00380026
//**                                                                    00390025
//BE330PRM DD  DSN=&&BE330PRM,                                          00400030
//             DISP=(OLD,DELETE,DELETE),                                00401029
//             UNIT=SYSDA,                                              00402025
//             SPACE=(5,(1000,1000),RLSE),                              00403025
//             DCB=(RECFM=FB,LRECL=5,BLKSIZE=5)                         00404025
//*                                                                     00405025
//DTSFVRO1 DD  DSN=&&BE330RPT,                                          00406039
//             DISP=(NEW,PASS,DELETE),                                  00406239
//             UNIT=SYSDA,                                              00407135
//             SPACE=(16394,(900,900),RLSE),                            00408033
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00409034
//*                        REPORT RECORD SORT                           00410037