00001  IDENTIFICATION DIVISION.                                         01/02/06
00002  PROGRAM-ID.             DTSBR301.                                DTSBR301
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV103
00004                          UPDATED BY TRC/BDM OCT  1998.            DTSBR301
00005  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBR301
00006                          MODIFIED BY TRW MARCH 1999               DTSBR301
00007  DATE-COMPILED.                                                   DTSBR301
00008      SKIP3                                                        DTSBR301
00009 *****                                                             DTSBR301
00010 *                                                                 DTSBR301
00011 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR301
00012 *                       DTSBD180 WHICH UPDATES DTSIR301           DTSBR301
00013 *                       DTSBR301 READS DTSIR301 RECORDS.          DTSBR301
00014 *                                                                 DTSBR301
00015 *                                                                 DTSBR301
00016 *    MODIFICATION HISTORY:                                        DTSBR301
00017 *                                                                 DTSBR301
00018 * 09-29-94 INITIAL DEVELOPMENT                                    DTSBR301
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR301
00020 *                                                                 DTSBR301
00021 * 05-09-95 AHDR-*-ITEM-CNT  WERE CHANGED TO  AHDR-*-TRAN-CNT.     DTSBR301
00022 *          THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS.       DTSBR301
00023 *          REFERENCE RFP #CR076           AUTHOR OF CHANGE - RHC  DTSBR301
00024 *                                                                 DTSBR301
00025 * 07-13-95 ADDED "ROUTING" INFO, LEFT OFF IN ORIGINAL DESIGN...   DTSBR301
00026 *          REFERENCE RFP #PROD RECOVERY          PROGRAMMER: MJA  DTSBR301
00027 *                                                                 DTSBR301
00028 * 11-11-99 ADDED LINE-CNT2 TO COUNT PRINTED LINES SO REPORT LINES DTSBR301
00029 *          WOULD NOT OVERFLOW ON PAGES           PROGRAMMER: **FB DTSBR301
00030 *                                                                 DTSBR301
00031 * 12-20-05 ADDED BANK BATCH NUMBER JUST BELOW THE REGULAR ACCOUNT DTSBR301
00032 *          BATCH NUMBER ON THE REPORT.           PROGRAMMER: **RW1DTSBR301
00033 *                                                                 DTSBR301
00034 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR301
00035 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR301
00036 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR301
00037 *                                                                 DTSBR301
00038 *                                                                 DTSBR301
00039 *    DESCRIPTION:                                                 DTSBR301
00040 *                                                                 DTSBR301
00041 *        THIS MODULE IDENTIFIES BATCHES OF LIABILITY ACCOUNTING   DTSBR301
00042 *        TRANSACTIONS ON THE TRANSACTION COLLECTION FILE.         DTSBR301
00043 *                                                                 DTSBR301
00044 *                                                                 DTSBR301
00045 *    RECORDS READ:                                                DTSBR301
00046 *                                                                 DTSBR301
00047 *        NONE.                                                    DTSBR301
00048 *                                                                 DTSBR301
00049 *                                                                 DTSBR301
00050 *    PRINTED OUTPUTS:                                             DTSBR301
00051 *                                                                 DTSBR301
00052 *        301R1  BATCH CONTROL SUMMARY                             DTSBR301
00053 *                                                                 DTSBR301
00054 *                                                                 DTSBR301
00055 *    RECORDS WRITTEN:                                             DTSBR301
00056 *                                                                 DTSBR301
00057 *        NONE.                                                    DTSBR301
00058 *                                                                 DTSBR301
00059 *                                                                 DTSBR301
00060 *    MODULES CALLED:                                              DTSBR301
00061 *                                                                 DTSBR301
00062 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR301
00063 *                                                                 DTSBR301
00064 *                                                                 DTSBR301
00065 *****                                                             DTSBR301
00066      EJECT                                                        DTSBR301
00067  ENVIRONMENT DIVISION.                                            DTSBR301
00068  CONFIGURATION SECTION.                                           DTSBR301
00069  SPECIAL-NAMES.                                                   DTSBR301
00070      C01 IS TOP-OF-PAGE.                                          DTSBR301
00071                                                                   DTSBR301
00072  INPUT-OUTPUT SECTION.                                            DTSBR301
00073  FILE-CONTROL.                                                    DTSBR301
00074      SELECT PRT-FILE  ASSIGN TO RPT301R1.                         DTSBR301
00075      EJECT                                                        DTSBR301
00076  DATA DIVISION.                                                   DTSBR301
00077  FILE SECTION.                                                    DTSBR301
00078  FD  PRT-FILE                                                     DTSBR301
00079      RECORDING MODE IS F.                                         DTSBR301
00080  01  PRT-RECORD              PIC X(133).                          DTSBR301
00081      EJECT                                                        DTSBR301
00082  WORKING-STORAGE SECTION.                                         DTSBR301
000825 77  PAN-VALET PICTURE X(24) VALUE '103DTSBR301  01/02/06'.       DTSBR301
00083      SKIP3                                                        DTSBR301
00084  01  WRK-AREA.                                                    DTSBR301
00085      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +301.DTSBR301
00086      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR301
00087      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +1. DTSBR301
00088      05  WS-DEPOSIT-DATE             PIC  X(10).                  DTSBR301
00089 *    05  WS-DEPOSIT-DATE             PIC  X(08).                  DTSBR301
00090      05  WS-ESTB-DATE                PIC  X(10).                  DTSBR301
00091      05  WS-CHNG-DATE                PIC  X(10).                  DTSBR301
00092      05  WS-TOTAL-REMIT-AMT          PIC S9(09)V99   COMP-3.      DTSBR301
00093      05  WS-TOTAL-TRAN-CNT           PIC S9(03)      COMP-3.      DTSBR301
00094      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR301
00095      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR301
00096      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR301
00097                                                                   DTSBR301
00098  01  HOLD-SUMMARY-TOTALS.                                         DTSBR301
00099      05  HLD-DATE-DEPOSIT   PIC X(10)  VALUE SPACES.              DTSBR301
00100 *    05  HLD-DATE-DEPOSIT   PIC X(08)  VALUE SPACES.              DTSBR301
00101      05  HLD-DATE-TOTALS.                                         DTSBR301
00102          10  HLD-DATE-BAL-NOT-HELD.                               DTSBR301
00103              15  HLD-DATE-BNH-BATCHES    PIC S9(05).              DTSBR301
00104              15  HLD-DATE-BNH-PROC-AMT   PIC S9(07)V99.           DTSBR301
00105              15  HLD-DATE-BNH-PROC-TRNS  PIC S9(05).              DTSBR301
00106              15  HLD-DATE-BNH-RJCT-AMT   PIC S9(07)V99.           DTSBR301
00107              15  HLD-DATE-BNH-RJCT-TRNS  PIC S9(05).              DTSBR301
00108              15  HLD-DATE-BNH-PREV-AMT   PIC S9(07)V99.           DTSBR301
00109              15  HLD-DATE-BNH-PREV-TRNS  PIC S9(05).              DTSBR301
00110              15  HLD-DATE-BNH-TTL-AMT    PIC S9(07)V99.           DTSBR301
00111              15  HLD-DATE-BNH-TTL-TRNS   PIC S9(05).              DTSBR301
00112          10  HLD-DATE-BAL-HELD.                                   DTSBR301
00113              15  HLD-DATE-BH-BATCHES     PIC S9(05).              DTSBR301
00114              15  HLD-DATE-BH-ATC-AMT     PIC S9(07)V99.           DTSBR301
00115              15  HLD-DATE-BH-ATC-TRNS    PIC S9(05).              DTSBR301
00116              15  HLD-DATE-BH-PREV-AMT    PIC S9(07)V99.           DTSBR301
00117              15  HLD-DATE-BH-PREV-TRNS   PIC S9(05).              DTSBR301
00118              15  HLD-DATE-BH-TTL-AMT     PIC S9(07)V99.           DTSBR301
00119              15  HLD-DATE-BH-TTL-TRNS    PIC S9(05).              DTSBR301
00120          10  HLD-DATE-NOT-BAL-NOT-HELD.                           DTSBR301
00121              15  HLD-DATE-NBNH-BATCHES     PIC S9(05).            DTSBR301
00122              15  HLD-DATE-NBNH-ATC-AMT     PIC S9(07)V99.         DTSBR301
00123              15  HLD-DATE-NBNH-ATC-TRNS    PIC S9(05).            DTSBR301
00124              15  HLD-DATE-NBNH-PREV-AMT    PIC S9(07)V99.         DTSBR301
00125              15  HLD-DATE-NBNH-PREV-TRNS   PIC S9(05).            DTSBR301
00126              15  HLD-DATE-NBNH-TTL-AMT     PIC S9(07)V99.         DTSBR301
00127              15  HLD-DATE-NBNH-TTL-TRNS    PIC S9(05).            DTSBR301
00128          10  HLD-DATE-NOT-BAL-HELD.                               DTSBR301
00129              15  HLD-DATE-NBH-BATCHES      PIC S9(05).            DTSBR301
00130              15  HLD-DATE-NBH-ATC-AMT      PIC S9(07)V99.         DTSBR301
00131              15  HLD-DATE-NBH-ATC-TRNS     PIC S9(05).            DTSBR301
00132              15  HLD-DATE-NBH-PREV-AMT     PIC S9(07)V99.         DTSBR301
00133              15  HLD-DATE-NBH-PREV-TRNS    PIC S9(05).            DTSBR301
00134              15  HLD-DATE-NBH-TTL-AMT      PIC S9(07)V99.         DTSBR301
00135              15  HLD-DATE-NBH-TTL-TRNS     PIC S9(05).            DTSBR301
00136      05  HLD-TOTAL-TOTALS.                                        DTSBR301
00137          10  HLD-TOTAL-BAL-NOT-HELD.                              DTSBR301
00138              15  HLD-TOTAL-BNH-BATCHES   PIC S9(05).              DTSBR301
00139              15  HLD-TOTAL-BNH-PROC-AMT  PIC S9(07)V99.           DTSBR301
00140              15  HLD-TOTAL-BNH-PROC-TRNS PIC S9(05).              DTSBR301
00141              15  HLD-TOTAL-BNH-RJCT-AMT  PIC S9(07)V99.           DTSBR301
00142              15  HLD-TOTAL-BNH-RJCT-TRNS PIC S9(05).              DTSBR301
00143              15  HLD-TOTAL-BNH-PREV-AMT  PIC S9(07)V99.           DTSBR301
00144              15  HLD-TOTAL-BNH-PREV-TRNS PIC S9(05).              DTSBR301
00145              15  HLD-TOTAL-BNH-TTL-AMT   PIC S9(07)V99.           DTSBR301
00146              15  HLD-TOTAL-BNH-TTL-TRNS  PIC S9(05).              DTSBR301
00147          10  HLD-TOTAL-BAL-HELD.                                  DTSBR301
00148              15  HLD-TOTAL-BH-BATCHES    PIC S9(05).              DTSBR301
00149              15  HLD-TOTAL-BH-ATC-AMT    PIC S9(07)V99.           DTSBR301
00150              15  HLD-TOTAL-BH-ATC-TRNS   PIC S9(05).              DTSBR301
00151              15  HLD-TOTAL-BH-PREV-AMT   PIC S9(07)V99.           DTSBR301
00152              15  HLD-TOTAL-BH-PREV-TRNS  PIC S9(05).              DTSBR301
00153              15  HLD-TOTAL-BH-TTL-AMT    PIC S9(07)V99.           DTSBR301
00154              15  HLD-TOTAL-BH-TTL-TRNS   PIC S9(05).              DTSBR301
00155          10  HLD-TOTAL-NOT-BAL-NOT-HELD.                          DTSBR301
00156              15  HLD-TOTAL-NBNH-BATCHES    PIC S9(05).            DTSBR301
00157              15  HLD-TOTAL-NBNH-ATC-AMT    PIC S9(07)V99.         DTSBR301
00158              15  HLD-TOTAL-NBNH-ATC-TRNS   PIC S9(05).            DTSBR301
00159              15  HLD-TOTAL-NBNH-PREV-AMT   PIC S9(07)V99.         DTSBR301
00160              15  HLD-TOTAL-NBNH-PREV-TRNS  PIC S9(05).            DTSBR301
00161              15  HLD-TOTAL-NBNH-TTL-AMT    PIC S9(07)V99.         DTSBR301
00162              15  HLD-TOTAL-NBNH-TTL-TRNS   PIC S9(05).            DTSBR301
00163          10  HLD-TOTAL-NOT-BAL-HELD.                              DTSBR301
00164              15  HLD-TOTAL-NBH-BATCHES     PIC S9(05).            DTSBR301
00165              15  HLD-TOTAL-NBH-ATC-AMT     PIC S9(07)V99.         DTSBR301
00166              15  HLD-TOTAL-NBH-ATC-TRNS    PIC S9(05).            DTSBR301
00167              15  HLD-TOTAL-NBH-PREV-AMT    PIC S9(07)V99.         DTSBR301
00168              15  HLD-TOTAL-NBH-PREV-TRNS   PIC S9(05).            DTSBR301
00169              15  HLD-TOTAL-NBH-TTL-AMT     PIC S9(07)V99.         DTSBR301
00170              15  HLD-TOTAL-NBH-TTL-TRNS    PIC S9(05).            DTSBR301
00171                                                                   DTSBR301
00172  01  HEADER-1.                                                    DTSBR301
00173      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00174      05  FILLER                   PIC X(49) VALUE '301R1'.        DTSBR301
00175      05  FILLER                   PIC X(60) VALUE                 DTSBR301
00176          'DISTRICT OF COLUMBIA'.                                  DTSBR301
00177      05  FILLER                   PIC X(06) VALUE 'DATE:'.        DTSBR301
00178      05  HDR1-LRCM-SYS-DATE       PIC X(08).                      DTSBR301
00179                                                                   DTSBR301
00180  01  HEADER-2.                                                    DTSBR301
00181      05  FILLER                   PIC X(54) VALUE SPACES.         DTSBR301
00182      05  FILLER                   PIC X(56) VALUE                 DTSBR301
00183          'TAX DIVISION'.                                          DTSBR301
00184      05  FILLER                   PIC X(06) VALUE 'TIME:'.        DTSBR301
00185      05  HDR2-LRCM-SYS-TIME       PIC X(08).                      DTSBR301
00186                                                                   DTSBR301
00187  01  HEADER-3.                                                    DTSBR301
00188      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00189      05  FILLER                   PIC X(49) VALUE                 DTSBR301
00190          'ROUTE TO: ACCOUNTING'.                                  DTSBR301
00191      05  HDR3-LITERAL             PIC X(60) VALUE                 DTSBR301
00192          'BATCH CONTROL SUMMARY'.                                 DTSBR301
00193      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR301
00194      05  HDR3-PAGE                PIC ZZ,ZZ9.                     DTSBR301
00195                                                                   DTSBR301
00196  01  HEADER-4.                                                    DTSBR301
00197      05  FILLER                    PIC X(11) VALUE SPACES.        DTSBR301
00198      05  FILLER                    PIC X(03) VALUE 'FMS'.         DTSBR301
00199                                                                   DTSBR301
00200  01  HEADER-5.                                                    DTSBR301
00201      05  FILLER                   PIC X(02) VALUE SPACES.         DTSBR301
00202      05  FILLER                   PIC X(59) VALUE                 DTSBR301
00203          'DEPOSIT'.                                               DTSBR301
00204      05  FILLER                   PIC X(45) VALUE                 DTSBR301
00205          'REMITTANCE   NUMBER     -------ENTRY-------'.           DTSBR301
00206      05  FILLER                   PIC X(20) VALUE                 DTSBR301
00207          '-------CHANGE-------'.                                  DTSBR301
00208  01  HEADER-6.                                                    DTSBR301
00209      05  FILLER                   PIC X(03) VALUE SPACES.         DTSBR301
00210      05  FILLER                   PIC X(60) VALUE                 DTSBR301
00211          'DATE     BATCH NBR      BATCH STATUS'.                  DTSBR301
00212      05  FILLER                   PIC X(55) VALUE                 DTSBR301
00213          'AMOUNT    OF TRANS    OPID       DATE      OPID'.       DTSBR301
00214      05  FILLER                   PIC X(04) VALUE                 DTSBR301
00215          'DATE'.                                                  DTSBR301
00216  01  HEADER-7.                                                    DTSBR301
00217      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00218      05  FILLER                   PIC X(59) VALUE                 DTSBR301
00219          '---------- ---------      ------------'.                DTSBR301
00220      05  FILLER                   PIC X(46) VALUE                 DTSBR301
00221          '-----------  --------    -------------------'.          DTSBR301
00222      05  FILLER                   PIC X(20) VALUE                 DTSBR301
00223          '--------------------'.                                  DTSBR301
00224  01  HEADER-8.                                                    DTSBR301
00225      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00226      05  FILLER                   PIC X(42) VALUE                 DTSBR301
00227          '********** DEPOSIT DATE TOTALS **********'.             DTSBR301
00228  01  HEADER-9.                                                    DTSBR301
00229      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00230      05  FILLER                   PIC X(42) VALUE                 DTSBR301
00231          '********** OVERALL TOTALS **********'.                  DTSBR301
00232  01  DETAIL-LINE.                                                 DTSBR301
00233      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00234      05  DTL1-DEPOSIT-DATE        PIC X(11).                      DTSBR301
00235 *RW1                                                              DTSBR301
00236      05  DTL1-BANK-LITERAL REDEFINES DTL1-DEPOSIT-DATE PIC X(11). DTSBR301
00237 *RW2                                                              DTSBR301
00238      05  FILLER                   PIC X(02) VALUE SPACES.         DTSBR301
00239      05  DTL1-BATCH-NBR           PIC X(13).                      DTSBR301
00240 *    05  DTL1-BATCH-NBR           PIC X(15).                      DTSBR301
00241      05  DTL1-BATCH-STATUS        PIC X(17).                      DTSBR301
00242      05  DTL1-BATCH-LITERAL       PIC X(14).                      DTSBR301
00243      05  DTL1-AMOUNT              PIC --,---,---.99.              DTSBR301
00244      05  DTL1-TRANS               PIC ZZZZ,ZZ9.                   DTSBR301
00245      05  FILLER                   PIC X(06) VALUE SPACES.         DTSBR301
00246      05  DTL1-ESTB-OPID           PIC X(09).                      DTSBR301
00247      05  DTL1-ESTB-DATE           PIC X(12).                      DTSBR301
00248      05  DTL1-CHANGE-OPID         PIC X(10).                      DTSBR301
00249      05  DTL1-CHANGE-DATE         PIC X(10).                      DTSBR301
00250  01  DETAIL-LINE2.                                                DTSBR301
00251      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00252 *    05  DTL2-DEPOSIT-DATE        PIC X(09).                      DTSBR301
00253      05  DTL2-DEPOSIT-DATE        PIC X(11).                      DTSBR301
00254      05  DTL2-LINE-LITERAL        PIC X(11).                      DTSBR301
00255 *    05  DTL2-NBR-BATCHES         PIC XXXX.                       DTSBR301
00256 *    05  DTL2-NBR-BATCHES-9 REDEFINES DTL2-NBR-BATCHES PIC ZZZ9.  DTSBR301
00257      05  DTL2-NBR-BATCHES         PIC XXX.                        DTSBR301
00258      05  DTL2-NBR-BATCHES-9 REDEFINES DTL2-NBR-BATCHES PIC ZZ9.   DTSBR301
00259 *    05  FILLER                   PIC X(02) VALUE SPACES.         DTSBR301
00260      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR301
00261      05  DTL2-BATCH-STATUS        PIC X(17).                      DTSBR301
00262      05  DTL2-BATCH-LITERAL       PIC X(14).                      DTSBR301
00263      05  DTL2-AMOUNT              PIC --,---,---.99.              DTSBR301
00264      05  DTL2-TRANS               PIC ZZZZ,ZZ9.                   DTSBR301
00265      EJECT                                                        DTSBR301
00266  01  L001-LINK-AREA.                                              DTSBR301
00267  ++INCLUDE DTSIL001                                               DTSBR301
00268      EJECT                                                        DTSBR301
00269  LINKAGE SECTION.                                                 DTSBR301
00270      SKIP3                                                        DTSBR301
00271  01  LRCM-LINK-AREA.                                              DTSBR301
00272  ++INCLUDE DTSILRCM                                               DTSBR301
00273      EJECT                                                        DTSBR301
00274  01  R301-REC.                                                    DTSBR301
00275  ++INCLUDE DTSIR301                                               DTSBR301
00276      EJECT                                                        DTSBR301
00277  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR301
00278                           R301-REC.                               DTSBR301
00279      SKIP2                                                        DTSBR301
00280      IF FIRST-TIME-IND = 'Y'                                      DTSBR301
00281          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR301
00282          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR301
00283      SKIP1                                                        DTSBR301
00284      IF LRCM-EOR-88                                               DTSBR301
00285          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR301
00286      ELSE                                                         DTSBR301
00287          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR301
00288      SKIP2                                                        DTSBR301
00289      GOBACK.                                                      DTSBR301
00290      EJECT                                                        DTSBR301
00291  I1000-INITIATE.                                                  DTSBR301
00292      SKIP1                                                        DTSBR301
00293      OPEN OUTPUT PRT-FILE.                                        DTSBR301
00294      MOVE LRCM-SYS-DATE     TO HDR1-LRCM-SYS-DATE.                DTSBR301
00295      MOVE LRCM-SYS-TIME     TO HDR2-LRCM-SYS-TIME.                DTSBR301
00296      MOVE ZEROS             TO HLD-DATE-TOTALS, HLD-TOTAL-TOTALS. DTSBR301
00297      MOVE R301-DEPOSIT-DATE TO L001-FED-8-DATE-9.                 DTSBR301
00298      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR301
00299      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR301
00300      MOVE L001-SLASH-8-DATE   TO WS-DEPOSIT-DATE,                 DTSBR301
00301                                HLD-DATE-DEPOSIT.                  DTSBR301
00302      INITIALIZE WS-LINE-CNT2.                                     DTSBR301
00303      SKIP2                                                        DTSBR301
00304  I1000-EXIT.                                                      DTSBR301
00305      EXIT.                                                        DTSBR301
00306      EJECT                                                        DTSBR301
00307  P1000-PROCESS.                                                   DTSBR301
00308      SKIP1                                                        DTSBR301
00309      MOVE R301-DEPOSIT-DATE TO L001-FED-8-DATE-9.                 DTSBR301
00310      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR301
00311      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR301
00312      MOVE L001-SLASH-8-DATE TO WS-DEPOSIT-DATE.                   DTSBR301
00313                                                                   DTSBR301
00314      IF WS-DEPOSIT-DATE NOT EQUAL HLD-DATE-DEPOSIT                DTSBR301
00315         PERFORM P1030-PROCESS-DATE-TOTALS THRU P1030-EXIT         DTSBR301
00316 *       DISPLAY WS-LINE-CNT '-- LINE-CNT'.                        DTSBR301
00317         MOVE WS-DEPOSIT-DATE   TO HLD-DATE-DEPOSIT                DTSBR301
00318         MOVE ZEROS             TO HLD-DATE-TOTALS                 DTSBR301
00319 *       DISPLAY WS-LINE-CNT2' LINE-CNT2               **FB'.      DTSBR301
00320         MOVE +60               TO WS-LINE-CNT.                    DTSBR301
00321                                                                   DTSBR301
00322      MOVE R301-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR301
00323      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR301
00324      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR301
00325      MOVE L001-SLASH-8-DATE TO WS-ESTB-DATE.                      DTSBR301
00326      SKIP1                                                        DTSBR301
00327      MOVE R301-CHNG-DATE TO L001-FED-8-DATE-9.                    DTSBR301
00328      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR301
00329      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR301
00330      IF L001-INVALID-DATE                                         DTSBR301
00331          MOVE SPACES TO WS-CHNG-DATE                              DTSBR301
00332      ELSE                                                         DTSBR301
00333          MOVE L001-SLASH-8-DATE TO WS-CHNG-DATE.                  DTSBR301
00334      SKIP1                                                        DTSBR301
00335      IF  R301-BATCH-BALANCED-YES-88                               DTSBR301
00336      AND R301-BATCH-HELD-NO-88                                    DTSBR301
00337          ADD R301-SUCCEEDED-PREV-TRAN-CNT,                        DTSBR301
00338              R301-SUCCEEDED-TODAY-TRAN-CNT,                       DTSBR301
00339              R301-FAILED-TODAY-TRAN-CNT,                          DTSBR301
00340             GIVING WS-TOTAL-TRAN-CNT                              DTSBR301
00341          ADD R301-SUCCEEDED-PREV-REMIT-AMT,                       DTSBR301
00342              R301-SUCCEEDED-TODAY-REMIT-AMT,                      DTSBR301
00343              R301-FAILED-TODAY-REMIT-AMT,                         DTSBR301
00344             GIVING WS-TOTAL-REMIT-AMT                             DTSBR301
00345          PERFORM P1010-PROCESS-BAL-NOTHELD THRU P1010-EXIT        DTSBR301
00346      ELSE                                                         DTSBR301
00347          ADD R301-ATC-FILE-TRAN-CNT,                              DTSBR301
00348              R301-SUCCEEDED-PREV-TRAN-CNT,                        DTSBR301
00349             GIVING WS-TOTAL-TRAN-CNT                              DTSBR301
00350          ADD R301-ATC-FILE-REMIT-AMT,                             DTSBR301
00351              R301-SUCCEEDED-PREV-REMIT-AMT,                       DTSBR301
00352             GIVING WS-TOTAL-REMIT-AMT                             DTSBR301
00353          PERFORM P1020-PROCESS-REST THRU P1020-EXIT.              DTSBR301
00354      SKIP2                                                        DTSBR301
00355  P1000-EXIT.                                                      DTSBR301
00356      EXIT.                                                        DTSBR301
00357      SKIP2                                                        DTSBR301
00358  P1010-PROCESS-BAL-NOTHELD.                                       DTSBR301
00359      PERFORM P1090-PRINT-HEADINGS THRU P1090-EXIT.                DTSBR301
00360                                                                   DTSBR301
00361      IF WS-LINE-CNT EQUAL ZEROS                                   DTSBR301
00362         MOVE WS-DEPOSIT-DATE TO DTL1-DEPOSIT-DATE                 DTSBR301
00363      ELSE                                                         DTSBR301
00364         MOVE SPACES          TO DTL1-DEPOSIT-DATE.                DTSBR301
00365                                                                   DTSBR301
00366      MOVE R301-BATCH-NO                  TO DTL1-BATCH-NBR.       DTSBR301
00367      MOVE 'BAL/NOT HELD'                 TO DTL1-BATCH-STATUS.    DTSBR301
00368      MOVE 'PROCESSED'                    TO DTL1-BATCH-LITERAL.   DTSBR301
00369      MOVE R301-SUCCEEDED-TODAY-REMIT-AMT TO DTL1-AMOUNT.          DTSBR301
00370      MOVE R301-SUCCEEDED-TODAY-TRAN-CNT  TO DTL1-TRANS.           DTSBR301
00371      MOVE R301-ESTB-OP-ID                TO DTL1-ESTB-OPID.       DTSBR301
00372      MOVE WS-ESTB-DATE                   TO DTL1-ESTB-DATE.       DTSBR301
00373      MOVE R301-CHNG-OP-ID                TO DTL1-CHANGE-OPID.     DTSBR301
00374      MOVE WS-CHNG-DATE                   TO DTL1-CHANGE-DATE.     DTSBR301
00375      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 2.                   DTSBR301
00376                                                                   DTSBR301
00377      INITIALIZE DETAIL-LINE.                                      DTSBR301
00378 *RW1                                                              DTSBR301
00379      MOVE 'BANK BATCH '          TO DTL1-BANK-LITERAL.            DTSBR301
00380      MOVE R301-BANK-BATCH-NO     TO DTL1-BATCH-NBR.               DTSBR301
00381 *RW2                                                              DTSBR301
00382      MOVE 'REJECTED'                     TO DTL1-BATCH-LITERAL.   DTSBR301
00383      MOVE R301-FAILED-TODAY-REMIT-AMT    TO DTL1-AMOUNT.          DTSBR301
00384      MOVE R301-FAILED-TODAY-TRAN-CNT     TO DTL1-TRANS.           DTSBR301
00385      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 1.                   DTSBR301
00386                                                                   DTSBR301
00387 *RW1                                                              DTSBR301
00388      MOVE SPACES                         TO DTL1-BANK-LITERAL.    DTSBR301
00389      MOVE SPACES                         TO DTL1-BATCH-NBR.       DTSBR301
00390 *RW2                                                              DTSBR301
00391      MOVE 'PREV PROCESSED'               TO DTL1-BATCH-LITERAL.   DTSBR301
00392      MOVE R301-SUCCEEDED-PREV-REMIT-AMT  TO DTL1-AMOUNT.          DTSBR301
00393      MOVE R301-SUCCEEDED-PREV-TRAN-CNT   TO DTL1-TRANS.           DTSBR301
00394      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 1.                   DTSBR301
00395                                                                   DTSBR301
00396      MOVE 'TOTAL'                        TO DTL1-BATCH-LITERAL.   DTSBR301
00397      MOVE WS-TOTAL-REMIT-AMT             TO DTL1-AMOUNT.          DTSBR301
00398      MOVE WS-TOTAL-TRAN-CNT              TO DTL1-TRANS.           DTSBR301
00399      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 1.                   DTSBR301
00400      ADD 4 TO WS-LINE-CNT2.                                       DTSBR301
00401 *    DISPLAY 'LINE-CNT2' WS-LINE-CNT2.                            DTSBR301
00402      ADD +1 TO HLD-DATE-BNH-BATCHES.                              DTSBR301
00403      ADD R301-SUCCEEDED-TODAY-REMIT-AMT TO                        DTSBR301
00404           HLD-DATE-BNH-PROC-AMT.                                  DTSBR301
00405      ADD R301-SUCCEEDED-TODAY-TRAN-CNT  TO                        DTSBR301
00406           HLD-DATE-BNH-PROC-TRNS.                                 DTSBR301
00407      ADD R301-FAILED-TODAY-REMIT-AMT    TO                        DTSBR301
00408           HLD-DATE-BNH-RJCT-AMT.                                  DTSBR301
00409      ADD R301-FAILED-TODAY-TRAN-CNT     TO                        DTSBR301
00410           HLD-DATE-BNH-RJCT-TRNS.                                 DTSBR301
00411      ADD R301-SUCCEEDED-PREV-REMIT-AMT  TO                        DTSBR301
00412           HLD-DATE-BNH-PREV-AMT.                                  DTSBR301
00413      ADD R301-SUCCEEDED-PREV-TRAN-CNT   TO                        DTSBR301
00414           HLD-DATE-BNH-PREV-TRNS.                                 DTSBR301
00415      ADD WS-TOTAL-REMIT-AMT             TO                        DTSBR301
00416           HLD-DATE-BNH-TTL-AMT.                                   DTSBR301
00417      ADD WS-TOTAL-TRAN-CNT              TO                        DTSBR301
00418           HLD-DATE-BNH-TTL-TRNS.                                  DTSBR301
00419  P1010-EXIT.                                                      DTSBR301
00420      EXIT.                                                        DTSBR301
00421                                                                   DTSBR301
00422  P1020-PROCESS-REST.                                              DTSBR301
00423      PERFORM P1090-PRINT-HEADINGS THRU P1090-EXIT.                DTSBR301
00424                                                                   DTSBR301
00425      IF WS-LINE-CNT EQUAL ZEROS                                   DTSBR301
00426         MOVE WS-DEPOSIT-DATE TO DTL1-DEPOSIT-DATE                 DTSBR301
00427      ELSE                                                         DTSBR301
00428         MOVE SPACES          TO DTL1-DEPOSIT-DATE.                DTSBR301
00429                                                                   DTSBR301
00430      IF R301-BATCH-BALANCED-YES-88                                DTSBR301
00431         ADD +1          TO HLD-DATE-BH-BATCHES                    DTSBR301
00432         MOVE 'BAL/HELD' TO DTL1-BATCH-STATUS                      DTSBR301
00433         ADD R301-ATC-FILE-REMIT-AMT TO                            DTSBR301
00434             HLD-DATE-BH-ATC-AMT, HLD-DATE-BH-TTL-AMT              DTSBR301
00435         ADD R301-ATC-FILE-TRAN-CNT TO                             DTSBR301
00436             HLD-DATE-BH-ATC-TRNS, HLD-DATE-BH-TTL-TRNS            DTSBR301
00437         ADD R301-SUCCEEDED-PREV-REMIT-AMT TO                      DTSBR301
00438             HLD-DATE-BH-PREV-AMT, HLD-DATE-BH-TTL-AMT             DTSBR301
00439         ADD R301-SUCCEEDED-PREV-TRAN-CNT TO                       DTSBR301
00440             HLD-DATE-BH-PREV-TRNS, HLD-DATE-BH-TTL-TRNS           DTSBR301
00441      ELSE                                                         DTSBR301
00442         IF R301-BATCH-HELD-NO-88                                  DTSBR301
00443            ADD +1                  TO HLD-DATE-NBNH-BATCHES       DTSBR301
00444            MOVE 'NOT BAL/NOT HELD' TO DTL1-BATCH-STATUS           DTSBR301
00445            ADD R301-ATC-FILE-REMIT-AMT TO                         DTSBR301
00446                HLD-DATE-NBNH-ATC-AMT, HLD-DATE-NBNH-TTL-AMT       DTSBR301
00447            ADD R301-ATC-FILE-TRAN-CNT TO                          DTSBR301
00448                HLD-DATE-NBNH-ATC-TRNS, HLD-DATE-NBNH-TTL-TRNS     DTSBR301
00449            ADD R301-SUCCEEDED-PREV-REMIT-AMT TO                   DTSBR301
00450                HLD-DATE-NBNH-PREV-AMT, HLD-DATE-NBNH-TTL-AMT      DTSBR301
00451            ADD R301-SUCCEEDED-PREV-TRAN-CNT TO                    DTSBR301
00452                HLD-DATE-NBNH-PREV-TRNS, HLD-DATE-NBNH-TTL-TRNS    DTSBR301
00453         ELSE                                                      DTSBR301
00454            ADD +1                  TO HLD-DATE-NBH-BATCHES        DTSBR301
00455            MOVE 'NOT BAL/HELD'     TO DTL1-BATCH-STATUS           DTSBR301
00456            ADD R301-ATC-FILE-REMIT-AMT TO                         DTSBR301
00457                HLD-DATE-NBH-ATC-AMT, HLD-DATE-NBH-TTL-AMT         DTSBR301
00458            ADD R301-ATC-FILE-TRAN-CNT TO                          DTSBR301
00459                HLD-DATE-NBH-ATC-TRNS, HLD-DATE-NBH-TTL-TRNS       DTSBR301
00460            ADD R301-SUCCEEDED-PREV-REMIT-AMT TO                   DTSBR301
00461                HLD-DATE-NBH-PREV-AMT, HLD-DATE-NBH-TTL-AMT        DTSBR301
00462            ADD R301-SUCCEEDED-PREV-TRAN-CNT TO                    DTSBR301
00463                HLD-DATE-NBH-PREV-TRNS, HLD-DATE-NBH-TTL-TRNS.     DTSBR301
00464                                                                   DTSBR301
00465      MOVE R301-BATCH-NO           TO DTL1-BATCH-NBR.              DTSBR301
00466      MOVE 'ATC FILE'              TO DTL1-BATCH-LITERAL.          DTSBR301
00467      MOVE R301-ATC-FILE-REMIT-AMT TO DTL1-AMOUNT.                 DTSBR301
00468      MOVE R301-ATC-FILE-TRAN-CNT  TO DTL1-TRANS.                  DTSBR301
00469      MOVE R301-ESTB-OP-ID         TO DTL1-ESTB-OPID.              DTSBR301
00470      MOVE WS-ESTB-DATE            TO DTL1-ESTB-DATE.              DTSBR301
00471      MOVE R301-CHNG-OP-ID         TO DTL1-CHANGE-OPID.            DTSBR301
00472      MOVE WS-CHNG-DATE            TO DTL1-CHANGE-DATE.            DTSBR301
00473      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 2.                   DTSBR301
00474                                                                   DTSBR301
00475      INITIALIZE DETAIL-LINE.                                      DTSBR301
00476 *RW1                                                              DTSBR301
00477      MOVE 'BANK BATCH '          TO DTL1-BANK-LITERAL.            DTSBR301
00478      MOVE R301-BANK-BATCH-NO     TO DTL1-BATCH-NBR.               DTSBR301
00479 *RW2                                                              DTSBR301
00480      MOVE 'PREV PROCESSED'               TO DTL1-BATCH-LITERAL.   DTSBR301
00481      MOVE R301-SUCCEEDED-PREV-REMIT-AMT  TO DTL1-AMOUNT.          DTSBR301
00482      MOVE R301-SUCCEEDED-PREV-TRAN-CNT   TO DTL1-TRANS.           DTSBR301
00483      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 1.                   DTSBR301
00484 *RW1                                                              DTSBR301
00485      MOVE SPACES                         TO DTL1-BANK-LITERAL.    DTSBR301
00486      MOVE SPACES                         TO DTL1-BATCH-NBR.       DTSBR301
00487 *RW2                                                              DTSBR301
00488                                                                   DTSBR301
00489      MOVE 'TOTAL'                        TO DTL1-BATCH-LITERAL.   DTSBR301
00490      MOVE WS-TOTAL-REMIT-AMT             TO DTL1-AMOUNT.          DTSBR301
00491      MOVE WS-TOTAL-TRAN-CNT              TO DTL1-TRANS.           DTSBR301
00492      WRITE PRT-RECORD FROM DETAIL-LINE AFTER 1.                   DTSBR301
00493      ADD 4 TO WS-LINE-CNT2.                                       DTSBR301
00494                                                                   DTSBR301
00495  P1020-EXIT.                                                      DTSBR301
00496      EXIT.                                                        DTSBR301
00497                                                                   DTSBR301
00498  P1030-PROCESS-DATE-TOTALS.                                       DTSBR301
00499 **FB IF WS-LINE-CNT GREATER 32                                    DTSBR301
00500      IF WS-LINE-CNT2 > 32                                         DTSBR301
00501         MOVE 60 TO WS-LINE-CNT                                    DTSBR301
00502         PERFORM P1090-PRINT-HEADINGS THRU P1090-EXIT.             DTSBR301
00503      WRITE PRT-RECORD FROM HEADER-8 AFTER 2.                      DTSBR301
00504      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00505                                                                   DTSBR301
00506      ADD  HLD-DATE-BNH-BATCHES   TO HLD-TOTAL-BNH-BATCHES.        DTSBR301
00507      ADD  HLD-DATE-BNH-PROC-AMT  TO                               DTSBR301
00508           HLD-TOTAL-BNH-PROC-AMT.                                 DTSBR301
00509      ADD  HLD-DATE-BNH-PROC-TRNS TO                               DTSBR301
00510           HLD-TOTAL-BNH-PROC-TRNS.                                DTSBR301
00511      ADD  HLD-DATE-BNH-RJCT-AMT  TO                               DTSBR301
00512           HLD-TOTAL-BNH-RJCT-AMT.                                 DTSBR301
00513      ADD  HLD-DATE-BNH-RJCT-TRNS TO                               DTSBR301
00514           HLD-TOTAL-BNH-RJCT-TRNS.                                DTSBR301
00515      ADD  HLD-DATE-BNH-PREV-AMT  TO                               DTSBR301
00516           HLD-TOTAL-BNH-PREV-AMT.                                 DTSBR301
00517      ADD  HLD-DATE-BNH-PREV-TRNS TO                               DTSBR301
00518           HLD-TOTAL-BNH-PREV-TRNS.                                DTSBR301
00519      ADD  HLD-DATE-BNH-TTL-AMT   TO                               DTSBR301
00520           HLD-TOTAL-BNH-TTL-AMT.                                  DTSBR301
00521      ADD  HLD-DATE-BNH-TTL-TRNS  TO                               DTSBR301
00522           HLD-TOTAL-BNH-TTL-TRNS.                                 DTSBR301
00523                                                                   DTSBR301
00524      ADD  HLD-DATE-BH-BATCHES   TO HLD-TOTAL-BH-BATCHES.          DTSBR301
00525      ADD  HLD-DATE-BH-ATC-AMT   TO                                DTSBR301
00526           HLD-TOTAL-BH-ATC-AMT.                                   DTSBR301
00527      ADD  HLD-DATE-BH-ATC-TRNS  TO                                DTSBR301
00528           HLD-TOTAL-BH-ATC-TRNS.                                  DTSBR301
00529      ADD  HLD-DATE-BH-PREV-AMT  TO                                DTSBR301
00530           HLD-TOTAL-BH-PREV-AMT.                                  DTSBR301
00531      ADD  HLD-DATE-BH-PREV-TRNS TO                                DTSBR301
00532           HLD-TOTAL-BH-PREV-TRNS.                                 DTSBR301
00533      ADD  HLD-DATE-BH-TTL-AMT   TO                                DTSBR301
00534           HLD-TOTAL-BH-TTL-AMT.                                   DTSBR301
00535      ADD  HLD-DATE-BH-TTL-TRNS  TO                                DTSBR301
00536           HLD-TOTAL-BH-TTL-TRNS.                                  DTSBR301
00537                                                                   DTSBR301
00538      ADD  HLD-DATE-NBNH-BATCHES   TO HLD-TOTAL-NBNH-BATCHES.      DTSBR301
00539      ADD  HLD-DATE-NBNH-ATC-AMT   TO                              DTSBR301
00540           HLD-TOTAL-NBNH-ATC-AMT.                                 DTSBR301
00541      ADD  HLD-DATE-NBNH-ATC-TRNS  TO                              DTSBR301
00542           HLD-TOTAL-NBNH-ATC-TRNS.                                DTSBR301
00543      ADD  HLD-DATE-NBNH-PREV-AMT  TO                              DTSBR301
00544           HLD-TOTAL-NBNH-PREV-AMT.                                DTSBR301
00545      ADD  HLD-DATE-NBNH-PREV-TRNS TO                              DTSBR301
00546           HLD-TOTAL-NBNH-PREV-TRNS.                               DTSBR301
00547      ADD  HLD-DATE-NBNH-TTL-AMT   TO                              DTSBR301
00548           HLD-TOTAL-NBNH-TTL-AMT.                                 DTSBR301
00549      ADD  HLD-DATE-NBNH-TTL-TRNS  TO                              DTSBR301
00550           HLD-TOTAL-NBNH-TTL-TRNS.                                DTSBR301
00551                                                                   DTSBR301
00552      ADD  HLD-DATE-NBH-BATCHES   TO HLD-TOTAL-NBH-BATCHES.        DTSBR301
00553      ADD  HLD-DATE-NBH-ATC-AMT   TO                               DTSBR301
00554           HLD-TOTAL-NBH-ATC-AMT.                                  DTSBR301
00555      ADD  HLD-DATE-NBH-ATC-TRNS  TO                               DTSBR301
00556           HLD-TOTAL-NBH-ATC-TRNS.                                 DTSBR301
00557      ADD  HLD-DATE-NBH-PREV-AMT  TO                               DTSBR301
00558           HLD-TOTAL-NBH-PREV-AMT.                                 DTSBR301
00559      ADD  HLD-DATE-NBH-PREV-TRNS TO                               DTSBR301
00560           HLD-TOTAL-NBH-PREV-TRNS.                                DTSBR301
00561      ADD  HLD-DATE-NBH-TTL-AMT   TO                               DTSBR301
00562           HLD-TOTAL-NBH-TTL-AMT.                                  DTSBR301
00563      ADD  HLD-DATE-NBH-TTL-TRNS  TO                               DTSBR301
00564           HLD-TOTAL-NBH-TTL-TRNS.                                 DTSBR301
00565                                                                   DTSBR301
00566      MOVE 'TTL BATCHES'          TO DTL2-LINE-LITERAL.            DTSBR301
00567      MOVE HLD-DATE-DEPOSIT       TO DTL2-DEPOSIT-DATE.            DTSBR301
00568      MOVE HLD-DATE-BNH-BATCHES   TO DTL2-NBR-BATCHES-9.           DTSBR301
00569      MOVE 'BAL/NOT HELD'         TO DTL2-BATCH-STATUS.            DTSBR301
00570      MOVE 'PROCESSED'            TO DTL2-BATCH-LITERAL.           DTSBR301
00571      MOVE HLD-DATE-BNH-PROC-AMT  TO DTL2-AMOUNT.                  DTSBR301
00572      MOVE HLD-DATE-BNH-PROC-TRNS TO DTL2-TRANS.                   DTSBR301
00573      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00574      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00575                                                                   DTSBR301
00576      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00577      MOVE SPACES                 TO DTL2-NBR-BATCHES.             DTSBR301
00578      MOVE 'REJECTED'             TO DTL2-BATCH-LITERAL.           DTSBR301
00579      MOVE HLD-DATE-BNH-RJCT-AMT  TO DTL2-AMOUNT.                  DTSBR301
00580      MOVE HLD-DATE-BNH-RJCT-TRNS TO DTL2-TRANS.                   DTSBR301
00581      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00582      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00583                                                                   DTSBR301
00584      MOVE 'PREV PROCESSED'       TO DTL2-BATCH-LITERAL.           DTSBR301
00585      MOVE HLD-DATE-BNH-PREV-AMT  TO DTL2-AMOUNT.                  DTSBR301
00586      MOVE HLD-DATE-BNH-PREV-TRNS TO DTL2-TRANS.                   DTSBR301
00587      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00588      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00589                                                                   DTSBR301
00590      MOVE 'TOTAL'               TO DTL2-BATCH-LITERAL.            DTSBR301
00591      MOVE HLD-DATE-BNH-TTL-AMT  TO DTL2-AMOUNT.                   DTSBR301
00592      MOVE HLD-DATE-BNH-TTL-TRNS TO DTL2-TRANS.                    DTSBR301
00593      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00594      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00595                                                                   DTSBR301
00596      MOVE 'TTL BATCHES'        TO DTL2-LINE-LITERAL.              DTSBR301
00597      MOVE HLD-DATE-BH-BATCHES  TO DTL2-NBR-BATCHES-9              DTSBR301
00598      MOVE 'BAL/HELD'           TO DTL2-BATCH-STATUS.              DTSBR301
00599      MOVE 'ATC FILE'           TO DTL2-BATCH-LITERAL.             DTSBR301
00600      MOVE HLD-DATE-BH-ATC-AMT  TO DTL2-AMOUNT.                    DTSBR301
00601      MOVE HLD-DATE-BH-ATC-TRNS TO DTL2-TRANS.                     DTSBR301
00602      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00603      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00604                                                                   DTSBR301
00605      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00606      MOVE SPACES                TO DTL2-NBR-BATCHES.              DTSBR301
00607      MOVE 'PREV PROCESSED'      TO DTL2-BATCH-LITERAL.            DTSBR301
00608      MOVE HLD-DATE-BH-PREV-AMT  TO DTL2-AMOUNT.                   DTSBR301
00609      MOVE HLD-DATE-BH-PREV-TRNS TO DTL2-TRANS.                    DTSBR301
00610      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00611      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00612                                                                   DTSBR301
00613      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00614      MOVE HLD-DATE-BH-TTL-AMT            TO DTL2-AMOUNT.          DTSBR301
00615      MOVE HLD-DATE-BH-TTL-TRNS           TO DTL2-TRANS.           DTSBR301
00616      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00617      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00618                                                                   DTSBR301
00619      MOVE 'TTL BATCHES'                  TO DTL2-LINE-LITERAL.    DTSBR301
00620      MOVE HLD-DATE-NBNH-BATCHES          TO DTL2-NBR-BATCHES-9.   DTSBR301
00621      MOVE 'NOT BAL/NOT HELD'             TO DTL2-BATCH-STATUS.    DTSBR301
00622      MOVE 'ATC FILE'                     TO DTL2-BATCH-LITERAL.   DTSBR301
00623      MOVE HLD-DATE-NBNH-ATC-AMT          TO DTL2-AMOUNT.          DTSBR301
00624      MOVE HLD-DATE-NBNH-ATC-TRNS         TO DTL2-TRANS.           DTSBR301
00625      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00626      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00627                                                                   DTSBR301
00628      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00629      MOVE SPACES                         TO DTL2-NBR-BATCHES.     DTSBR301
00630      MOVE 'PREV PROCESSED'               TO DTL2-BATCH-LITERAL.   DTSBR301
00631      MOVE HLD-DATE-NBNH-PREV-AMT         TO DTL2-AMOUNT.          DTSBR301
00632      MOVE HLD-DATE-NBNH-PREV-TRNS        TO DTL2-TRANS.           DTSBR301
00633      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00634      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00635                                                                   DTSBR301
00636      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00637      MOVE HLD-DATE-NBNH-TTL-AMT          TO DTL2-AMOUNT.          DTSBR301
00638      MOVE HLD-DATE-NBNH-TTL-TRNS         TO DTL2-TRANS.           DTSBR301
00639      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00640      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00641                                                                   DTSBR301
00642      MOVE 'TTL BATCHES'                  TO DTL2-LINE-LITERAL.    DTSBR301
00643      MOVE HLD-DATE-NBH-BATCHES           TO DTL2-NBR-BATCHES-9.   DTSBR301
00644      MOVE 'NOT BAL/HELD'                 TO DTL2-BATCH-STATUS.    DTSBR301
00645      MOVE 'ATC FILE'                     TO DTL2-BATCH-LITERAL.   DTSBR301
00646      MOVE HLD-DATE-NBH-ATC-AMT           TO DTL2-AMOUNT.          DTSBR301
00647      MOVE HLD-DATE-NBH-ATC-TRNS          TO DTL2-TRANS.           DTSBR301
00648      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00649      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00650                                                                   DTSBR301
00651      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00652      MOVE SPACES                         TO DTL2-NBR-BATCHES.     DTSBR301
00653      MOVE 'PREV PROCESSED'               TO DTL2-BATCH-LITERAL.   DTSBR301
00654      MOVE HLD-DATE-NBH-PREV-AMT          TO DTL2-AMOUNT.          DTSBR301
00655      MOVE HLD-DATE-NBH-PREV-TRNS         TO DTL2-TRANS.           DTSBR301
00656      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00657      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00658                                                                   DTSBR301
00659      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00660      MOVE HLD-DATE-NBH-TTL-AMT           TO DTL2-AMOUNT.          DTSBR301
00661      MOVE HLD-DATE-NBH-TTL-TRNS          TO DTL2-TRANS.           DTSBR301
00662      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00663      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00664                                                                   DTSBR301
00665  P1030-EXIT.                                                      DTSBR301
00666      EXIT.                                                        DTSBR301
00667                                                                   DTSBR301
00668  P1090-PRINT-HEADINGS.                                            DTSBR301
00669      IF WS-LINE-CNT GREATER 40 OR                                 DTSBR301
00670           WS-LINE-CNT2 GREATER 40                                 DTSBR301
00671         MOVE +0          TO WS-LINE-CNT                           DTSBR301
00672         MOVE +0          TO WS-LINE-CNT2                          DTSBR301
00673         ADD  +1          TO WS-PAGE-CNT                           DTSBR301
00674         MOVE WS-PAGE-CNT TO HDR3-PAGE                             DTSBR301
00675         WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE          DTSBR301
00676         WRITE PRT-RECORD FROM HEADER-2 AFTER 1                    DTSBR301
00677         WRITE PRT-RECORD FROM HEADER-3 AFTER 1                    DTSBR301
00678         WRITE PRT-RECORD FROM HEADER-4 AFTER 1                    DTSBR301
00679         WRITE PRT-RECORD FROM HEADER-5 AFTER 2                    DTSBR301
00680         WRITE PRT-RECORD FROM HEADER-6 AFTER 1                    DTSBR301
00681         WRITE PRT-RECORD FROM HEADER-7 AFTER 1                    DTSBR301
00682         ADD  7    TO WS-LINE-CNT2.                                DTSBR301
00683  P1090-EXIT.                                                      DTSBR301
00684      EXIT.                                                        DTSBR301
00685                                                                   DTSBR301
00686      EJECT                                                        DTSBR301
00687  T1000-TERMINATE.                                                 DTSBR301
00688      SKIP1                                                        DTSBR301
00689      PERFORM P1030-PROCESS-DATE-TOTALS THRU P1030-EXIT.           DTSBR301
00690                                                                   DTSBR301
00691      MOVE 60 TO WS-LINE-CNT.                                      DTSBR301
00692      PERFORM P1090-PRINT-HEADINGS THRU P1090-EXIT.                DTSBR301
00693      WRITE PRT-RECORD FROM HEADER-9 AFTER 2.                      DTSBR301
00694                                                                   DTSBR301
00695      MOVE 'TTL BATCHES'          TO DTL2-LINE-LITERAL.            DTSBR301
00696      MOVE HLD-TOTAL-BNH-BATCHES  TO DTL2-NBR-BATCHES-9.           DTSBR301
00697      MOVE 'BAL/NOT HELD'         TO DTL2-BATCH-STATUS.            DTSBR301
00698      MOVE 'PROCESSED'            TO DTL2-BATCH-LITERAL.           DTSBR301
00699      MOVE HLD-TOTAL-BNH-PROC-AMT TO DTL2-AMOUNT.                  DTSBR301
00700      MOVE HLD-TOTAL-BNH-PROC-TRNS TO DTL2-TRANS.                  DTSBR301
00701      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00702      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00703                                                                   DTSBR301
00704      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00705      MOVE SPACES                 TO DTL2-NBR-BATCHES.             DTSBR301
00706      MOVE 'REJECTED'             TO DTL2-BATCH-LITERAL.           DTSBR301
00707      MOVE HLD-TOTAL-BNH-RJCT-AMT TO DTL2-AMOUNT.                  DTSBR301
00708      MOVE HLD-TOTAL-BNH-RJCT-TRNS TO DTL2-TRANS.                  DTSBR301
00709      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00710      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00711                                                                   DTSBR301
00712      MOVE 'PREV PROCESSED'       TO DTL2-BATCH-LITERAL.           DTSBR301
00713      MOVE HLD-TOTAL-BNH-PREV-AMT TO DTL2-AMOUNT.                  DTSBR301
00714      MOVE HLD-TOTAL-BNH-PREV-TRNS TO DTL2-TRANS.                  DTSBR301
00715      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00716      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00717                                                                   DTSBR301
00718      MOVE 'TOTAL'               TO DTL2-BATCH-LITERAL.            DTSBR301
00719      MOVE HLD-TOTAL-BNH-TTL-AMT TO DTL2-AMOUNT.                   DTSBR301
00720      MOVE HLD-TOTAL-BNH-TTL-TRNS TO DTL2-TRANS.                   DTSBR301
00721      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00722      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00723                                                                   DTSBR301
00724      MOVE 'TTL BATCHES'        TO DTL2-LINE-LITERAL.              DTSBR301
00725      MOVE HLD-TOTAL-BH-BATCHES TO DTL2-NBR-BATCHES-9              DTSBR301
00726      MOVE 'BAL/HELD'           TO DTL2-BATCH-STATUS.              DTSBR301
00727      MOVE 'ATC FILE'           TO DTL2-BATCH-LITERAL.             DTSBR301
00728      MOVE HLD-TOTAL-BH-ATC-AMT TO DTL2-AMOUNT.                    DTSBR301
00729      MOVE HLD-TOTAL-BH-ATC-TRNS TO DTL2-TRANS.                    DTSBR301
00730      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00731      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00732                                                                   DTSBR301
00733      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00734      MOVE SPACES                TO DTL2-NBR-BATCHES.              DTSBR301
00735      MOVE 'PREV PROCESSED'      TO DTL2-BATCH-LITERAL.            DTSBR301
00736      MOVE HLD-TOTAL-BH-PREV-AMT TO DTL2-AMOUNT.                   DTSBR301
00737      MOVE HLD-TOTAL-BH-PREV-TRNS TO DTL2-TRANS.                   DTSBR301
00738      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00739      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00740                                                                   DTSBR301
00741      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00742      MOVE HLD-TOTAL-BH-TTL-AMT           TO DTL2-AMOUNT.          DTSBR301
00743      MOVE HLD-TOTAL-BH-TTL-TRNS          TO DTL2-TRANS.           DTSBR301
00744      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00745      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00746                                                                   DTSBR301
00747      MOVE 'TTL BATCHES'                  TO DTL2-LINE-LITERAL.    DTSBR301
00748      MOVE HLD-TOTAL-NBNH-BATCHES         TO DTL2-NBR-BATCHES-9.   DTSBR301
00749      MOVE 'NOT BAL/NOT HELD'             TO DTL2-BATCH-STATUS.    DTSBR301
00750      MOVE 'ATC FILE'                     TO DTL2-BATCH-LITERAL.   DTSBR301
00751      MOVE HLD-TOTAL-NBNH-ATC-AMT         TO DTL2-AMOUNT.          DTSBR301
00752      MOVE HLD-TOTAL-NBNH-ATC-TRNS        TO DTL2-TRANS.           DTSBR301
00753      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00754      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00755                                                                   DTSBR301
00756      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00757      MOVE SPACES                         TO DTL2-NBR-BATCHES.     DTSBR301
00758      MOVE 'PREV PROCESSED'               TO DTL2-BATCH-LITERAL.   DTSBR301
00759      MOVE HLD-TOTAL-NBNH-PREV-AMT        TO DTL2-AMOUNT.          DTSBR301
00760      MOVE HLD-TOTAL-NBNH-PREV-TRNS       TO DTL2-TRANS.           DTSBR301
00761      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00762      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00763                                                                   DTSBR301
00764      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00765      MOVE HLD-TOTAL-NBNH-TTL-AMT         TO DTL2-AMOUNT.          DTSBR301
00766      MOVE HLD-TOTAL-NBNH-TTL-TRNS        TO DTL2-TRANS.           DTSBR301
00767      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00768      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00769                                                                   DTSBR301
00770      MOVE 'TTL BATCHES'                  TO DTL2-LINE-LITERAL.    DTSBR301
00771      MOVE HLD-TOTAL-NBH-BATCHES          TO DTL2-NBR-BATCHES-9.   DTSBR301
00772      MOVE 'NOT BAL/HELD'                 TO DTL2-BATCH-STATUS.    DTSBR301
00773      MOVE 'ATC FILE'                     TO DTL2-BATCH-LITERAL.   DTSBR301
00774      MOVE HLD-TOTAL-NBH-ATC-AMT          TO DTL2-AMOUNT.          DTSBR301
00775      MOVE HLD-TOTAL-NBH-ATC-TRNS         TO DTL2-TRANS.           DTSBR301
00776      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00777      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 2.                  DTSBR301
00778                                                                   DTSBR301
00779      INITIALIZE DETAIL-LINE2.                                     DTSBR301
00780      MOVE SPACES                         TO DTL2-NBR-BATCHES.     DTSBR301
00781      MOVE 'PREV PROCESSED'               TO DTL2-BATCH-LITERAL.   DTSBR301
00782      MOVE HLD-TOTAL-NBH-PREV-AMT         TO DTL2-AMOUNT.          DTSBR301
00783      MOVE HLD-TOTAL-NBH-PREV-TRNS        TO DTL2-TRANS.           DTSBR301
00784      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00785      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00786                                                                   DTSBR301
00787      MOVE 'TOTAL'                        TO DTL2-BATCH-LITERAL.   DTSBR301
00788      MOVE HLD-TOTAL-NBH-TTL-AMT          TO DTL2-AMOUNT.          DTSBR301
00789      MOVE HLD-TOTAL-NBH-TTL-TRNS         TO DTL2-TRANS.           DTSBR301
00790      ADD 1 TO WS-LINE-CNT2.                                       DTSBR301
00791      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBR301
00792                                                                   DTSBR301
00793      CLOSE PRT-FILE.                                              DTSBR301
00794      SKIP2                                                        DTSBR301
00795  T1000-EXIT.                                                      DTSBR301
00796      EXIT.                                                        DTSBR301
00797      EJECT                                                        DTSBR301
00798  S001-DATE.                                                       DTSBR301
00799      SKIP1                                                        DTSBR301
00800      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR301
00801      SKIP2                                                        DTSBR301
00802  S001-EXIT.                                                       DTSBR301
00803      EXIT.                                                        DTSBR301
00804      SKIP3                                                        DTSBR301
00805  S999-ABEND.                                                      DTSBR301
00806      SKIP1                                                        DTSBR301
00807      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR301
00808      SKIP2                                                        DTSBR301
00809  S999-EXIT.                                                       DTSBR301
00810      EXIT.                                                        DTSBR301
