//****                                                                  00000100
//**                                                                    00000200
//**         DAILY CREDITS AND DEBITS - REPORT PROC.                    00000339
//**                                                                    00000605
//DTSRP330 PROC                                                         00000739
//**              DEFNS NEEDED FOR THIS PROC:                           00001105
//**   LVLNODE = DEVL/TEST/PROD                                         00001205
//****                                                                  00001408
//*                                                                     00410039
//STEP0100 EXEC PGM=SORT,                          SORT REPORT RECORDS   00420039
//             COND=(0,LT),                                             00421039
//             REGION=0K                                                00422039
//SYSOUT   DD  SYSOUT=*                                                 00423039
//SORTIN   DD  DSN=&&BE330RPT,                                          00424039
//             DISP=(OLD,DELETE,DELETE)                                 00424139
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00425039
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00426039
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00427039
//SORTOUT  DD  DSN=&&SRTRPT,                                            00428039
//             DISP=(,PASS,DELETE),                                     00429039
//             UNIT=SYSDA,                                              00429139
//             SPACE=(8192,(1000,1000),RLSE),                           00429239
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00429339
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00429441
//****                                                                  00429539
//*                        REPORT GENERATION                            00430037
//STEP0200 EXEC PGM=DTSBD800,                                           00440039
//             COND=(0,LT)                                              00450037
//SYSOUT   DD  SYSOUT=*                                                 00460037
//SYSABOUT DD  SYSOUT=*                                                 00470037
//SYSUDUMP DD  SYSOUT=*                                                 00480037
//**                                                                    00490037
//PARMIN   DD  DUMMY                                                    00500037
//**                                                                    00510037
//ATLSTIN  DD  DUMMY                                                    00520037
//**                                                                    00530037
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00530143
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00531037
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 00532037
//             AMP=('BUFNI=5,BUFND=10')                                 00533037
//*                                                                     00534037
//**   DEBITS AND CREDITS REPORT                                        00535039
//RPT330R1 DD  SYSOUT=Z,                                                00536042
//             HOLD=&LHOLD.,                                            00537037
//             DEST=U@PRT65                                             00538037
//*                                                                     00539037
//RPT330R2 DD  SYSOUT=Z,                                                00539142
//             HOLD=&LHOLD.,                                            00539237
//             DEST=U@PRT65                                             00539337
//*                                                                     00539437
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00539537
//             HOLD=&LHOLD.,                                            00539637
//             DEST=U@PRT65                                             00539737
//*                                                                     00540037