//****                                                                  00000100
//**                                                                    00000200
//**         CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT.        00000300
//**                   (*NO* MSTR UPDATE)                               00000500
//**                                                                    00000600
//*        PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'               00000701
//**           RUNTYPE='RQ',                                            00000801
//***          PREBACK='N',                                             00000901
//**           CHKONLY='N',                                             00001001
//**           IOTRACE='N'                                              00001101
//****                                                                  00001400
//STEP0991 EXEC PGM=DTSBD400,                         PERIODIC EXTRACT  00001501
//             COND=(0,LT),                                             00001600
//             PARM='QE,N,N,N'                                          00001702
//*                                                                     00003000
//SYSOUT   DD  SYSOUT=*                                                 00004000
//SYSABOUT DD  SYSOUT=*                                                 00005000
//SYSUDUMP DD  SYSOUT=*                                                 00006000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00007000
//X330FILE DD  DSN=&&DTSBE330,                                          00007100
//             DISP=(NEW,PASS,DELETE),                                  00007200
//             UNIT=SYSDA,                                              00007400
//             SPACE=(25000,(1000,1000),RLSE),                          00007500
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00007600
//*                                                                     00007700
//BE330PRM DD  DSN=&&BE330PRM,                                          00007800
//             DISP=(NEW,PASS,DELETE),                                  00008000
//             UNIT=SYSDA,                                              00008100
//             SPACE=(5,(1000,1000),RLSE),                              00008200
//             DCB=(RECFM=FB,LRECL=5,BLKSIZE=5)                         00008300
//*                                                                     00008400
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00008500
//             AMP=('BUFNI=5,BUFND=10')                                 00009000
//DTSFVRO1 DD  DUMMY                                                    00010000
//DTSFBTCO DD  DUMMY                                                    00050000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ330),DISP=SHR    00082001
//****                                                                  00090000
//STEP0992 EXEC PGM=SORT,PARM='VLTEST=0',                               00100001
//             COND=(0,LT)                                              00110000
//SYSOUT   DD  SYSOUT=*                                                 00120000
//SORTIN   DD  DSN=&&DTSBE330,                                          00130000
//             DISP=(OLD,DELETE,DELETE),                                00140000
//             UNIT=SYSDA,                                              00150000
//             SPACE=(25000,(1000,1000),RLSE),                          00160000
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00170000
//SORTOUT  DD  DSN=&&BE330SRT,                                          00180000
//             DISP=(,PASS,DELETE),                                     00190000
//             UNIT=SYSDA,                                              00200000
//             SPACE=(25000,(1000,1000),RLSE),                          00210000
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00220000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00230000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00240000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00250000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSS776),DISP=SHR     00260000
//**                                                                    00270000
//STEP0993 EXEC PGM=DTSBX330,                                           00280001
//             COND=(0,LT),                                             00290000
//             REGION=4096K                                             00300000
//SYSOUT   DD  SYSOUT=*                                                 00310000
//SYSABOUT DD  SYSOUT=*                                                 00320000
//SYSABEND DD  SYSOUT=*                                                 00330000
//DTSX330  DD  DSN=&&BE330SRT,                                          00340000
//             DISP=(OLD,DELETE,DELETE),                                00350000
//             UNIT=SYSDA,                                              00360000
//             SPACE=(25000,(1000,1000),RLSE),                          00370000
//             DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)                    00380000
//**                                                                    00390000
//BE330PRM DD  DSN=&&BE330PRM,                                          00400000
//             DISP=(OLD,DELETE,DELETE),                                00401000
//             UNIT=SYSDA,                                              00402000
//             SPACE=(5,(1000,1000),RLSE),                              00403000
//             DCB=(RECFM=FB,LRECL=5,BLKSIZE=5)                         00404000
//*                                                                     00405000
//DTSFVRO1 DD  DSN=&&BE330RPT,                                          00406000
//             DISP=(NEW,PASS,DELETE),                                  00406200
//             UNIT=SYSDA,                                              00407100
//             SPACE=(16394,(900,900),RLSE),                            00408000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00409000
//*                        REPORT RECORD SORT                           00410000
//*                                                                     00420001
//STEP0994 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS   00430001
//             COND=(0,LT),                                             00440001
//             REGION=0K                                                00450001
//SYSOUT   DD  SYSOUT=*                                                 00460001
//SORTIN   DD  DSN=&&BE330RPT,                                          00470001
//             DISP=(OLD,DELETE,DELETE)                                 00480001
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00490001
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00500001
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00510001
//SORTOUT  DD  DSN=&&SRTRPT,                                            00520001
//             DISP=(,PASS,DELETE),                                     00530001
//             UNIT=SYSDA,                                              00540001
//             SPACE=(8192,(1000,1000),RLSE),                           00550001
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00560001
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00570001
//****                                                                  00580001
//*                        REPORT GENERATION                            00590001
//STEP0995 EXEC PGM=DTSBD800,                                           00600001
//             COND=(0,LT)                                              00610001
//SYSOUT   DD  SYSOUT=*                                                 00620001
//SYSABOUT DD  SYSOUT=*                                                 00630001
//SYSUDUMP DD  SYSOUT=*                                                 00640001
//**                                                                    00650001
//PARMIN   DD  DUMMY                                                    00660001
//**                                                                    00670001
//ATLSTIN  DD  DUMMY                                                    00680001
//**                                                                    00690001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00691003
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00700001
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 00720001
//             AMP=('BUFNI=5,BUFND=10')                                 00730001
//*                                                                     00740001
//**   DEBITS AND CREDITS REPORT                                        00750001
//RPT330R1 DD  SYSOUT=(V,DTS330D1),HOLD=&LVDHOLD.,                      00761001
//             DEST=&LDEST.                                             00762001
//*                                                                     00790001
//RPT330R2 DD  SYSOUT=(V,DTS330D2),HOLD=&LVDHOLD.,                      00801001
//             DEST=U@PRT65                                             00820001
//*                                                                     00830001
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00840001
//             HOLD=&LVDHOLD.,                                          00850001
//             DEST=&LDEST.                                             00851001