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