00001  IDENTIFICATION DIVISION.                                         08/31/04
00002  PROGRAM-ID.             DTSBD515.                                DTSBD515
00003  AUTHOR.                 NORTHROP GRUMMAN                            LV001
00004  DATE-WRITTEN.           AUGUST 2004.                             DTSBD515
00005 *DATE-MODIFIED.                                                   DTSBD515
00006  DATE-COMPILED.                                                   DTSBD515
00007                                                                   DTSBD515
00008 *****                                                             DTSBD515
00009 *                                                                 DTSBD515
00010 *    CALLING SEQUENCE:  NONE, DTSBD515 PROCESSES DAILY REPORT     DTSBD515
00011 *                       RECORDS DTSIR302 TO GET THE DATA TO BE    DTSBD515
00012 *                       REPORTED.                                 DTSBD515
00013 *                                                                 DTSBD515
00014 *    FUNCTION:  GENERATE DAILY DEBITS AND CREDITS REPORT.         DTSBD515
00015 *                                                                 DTSBD515
00016 *    MODIFICATION HISTORY:                                        DTSBD515
00017 *                                                                 DTSBD515
00018 * 08-05-04 INITIAL DEVELOPMENT.                                   DTSBD515
00019 *          REFERENCE RFP #****            AUTHOR OF CHANGE - RW1  DTSBD515
00020 *                                                                 DTSBD515
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBD515
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBD515
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBD515
00024 *                                                                 DTSBD515
00025 *    DESCRIPTION:                                                 DTSBD515
00026 *                                                                 DTSBD515
00027 *        DTSBD515 READS THE R302 REPORT RECORDS CREATED DURING    DTSBD515
00028 *        DAILY PROCESSING.  IT PRODUCES A REPORT (319) THAT       DTSBD515
00029 *        LISTS THE DEBITS AND CREDITS ESTABLISHED DURING THE      DTSBD515
00030 *        DAILY UPDATE.                                            DTSBD515
00031 *                                                                 DTSBD515
00032 *                                                                 DTSBD515
00033 *    RECORDS READ:                                                DTSBD515
00034 *                                                                 DTSBD515
00035 *        NONE.                                                    DTSBD515
00036 *                                                                 DTSBD515
00037 *    PRINTED OUTPUTS:                                             DTSBD515
00038 *                                                                 DTSBD515
00039 *       RPT319R1  DAILY CREDITS AND DEBITS                        DTSBD515
00040 *                                                                 DTSBD515
00041 *    RECORDS WRITTEN:                                             DTSBD515
00042 *                                                                 DTSBD515
00043 *        NONE.                                                    DTSBD515
00044 *                                                                 DTSBD515
00045 *    MODULES CALLED:                                              DTSBD515
00046 *                                                                 DTSBD515
00047 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBD515
00048 *        DTSBU005 DATE EDIT/CONVERSION MODULE                     DTSBD515
00049 *        DTSBU941 VARIABLE LENGTH RECORD READ                     DTSBD515
00050 *                                                                 DTSBD515
00051 *****                                                             DTSBD515
00052      EJECT                                                        DTSBD515
00053  ENVIRONMENT DIVISION.                                            DTSBD515
00054      SKIP2                                                        DTSBD515
00055  CONFIGURATION SECTION.                                           DTSBD515
00056  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBD515
00057                                                                   DTSBD515
00058  INPUT-OUTPUT SECTION.                                            DTSBD515
00059                                                                   DTSBD515
00060  FILE-CONTROL.                                                    DTSBD515
00061      SELECT PRT-FILE1 ASSIGN TO RPT319R1.                         DTSBD515
00062      SELECT PRT-FILE2 ASSIGN TO RPT319R2.                         DTSBD515
00063  DATA DIVISION.                                                   DTSBD515
00064                                                                   DTSBD515
00065  FILE SECTION.                                                    DTSBD515
00066                                                                   DTSBD515
00067  FD  PRT-FILE1                                                    DTSBD515
00068      RECORDING MODE IS F                                          DTSBD515
00069      BLOCK CONTAINS 0 RECORDS                                     DTSBD515
00070      LABEL RECORDS ARE OMITTED.                                   DTSBD515
00071                                                                   DTSBD515
00072  01  PRT-RECORD1             PIC X(133).                          DTSBD515
00073                                                                   DTSBD515
00074  FD  PRT-FILE2                                                    DTSBD515
00075      RECORDING MODE IS F                                          DTSBD515
00076      BLOCK CONTAINS 0 RECORDS                                     DTSBD515
00077      LABEL RECORDS ARE OMITTED.                                   DTSBD515
00078                                                                   DTSBD515
00079  01  PRT-RECORD2             PIC X(133).                          DTSBD515
00080                                                                   DTSBD515
00081  WORKING-STORAGE SECTION.                                         DTSBD515
000815 77  PAN-VALET PICTURE X(24) VALUE '001DTSBD515  08/31/04'.       DTSBD515
00082  01  WRK-AREA.                                                    DTSBD515
00083      05  FILE-STATUS                PIC 9(02)  VALUE ZEROS.       DTSBD515
00084      05  WRK-MOD-NAME               PIC X(08)  VALUE 'DTSBD515'.  DTSBD515
00085      05  WRK-ABEND-CD               PIC S9(04) COMP  VALUE +515.  DTSBD515
00086      05  WRK-REPORT-DATE            PIC S9(09) COMP-3 VALUE +0.   DTSBD515
00087                                                                   DTSBD515
00088      05  WS-LINE-CNT                PIC S9(02)  COMP-3 VALUE 60.  DTSBD515
00089      05  WS-LINE-CNT2               PIC S9(02)  COMP-3 VALUE +0.  DTSBD515
00090      05  WS-PAGE-CNT                PIC S9(03)  COMP-3 VALUE +0.  DTSBD515
00091      05  WS-SUM-FOOT-CNT1           PIC S9(07)  COMP-3 VALUE +0.  DTSBD515
00092                                                                   DTSBD515
00093      05  WS-LINE-CNT3               PIC S9(02)  COMP-3 VALUE 60.  DTSBD515
00094      05  WS-LINE-CNT4               PIC S9(02)  COMP-3 VALUE +0.  DTSBD515
00095      05  WS-PAGE-CNT2               PIC S9(03)  COMP-3 VALUE +0.  DTSBD515
00096      05  WS-SUM-FOOT-CNT2           PIC S9(07)  COMP-3 VALUE +0.  DTSBD515
00097                                                                   DTSBD515
00098      05  WS-R302-BATCH-NO           PIC S9(05)  COMP-3 VALUE +0.  DTSBD515
00099      05  WS-R302-ITEM-NO            PIC S9(03)  COMP-3 VALUE +0.  DTSBD515
00100      05  WS-R302-EMP-NO             PIC S9(07)  COMP-3 VALUE +0.  DTSBD515
00101      05  WS-R302-TRANS-TYPE         PIC  X(02)  VALUE SPACES.     DTSBD515
00102      05  WS-NET-BAL                 PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00103                                                                   DTSBD515
00104      05  WS-TOT-CHARGED-AMT         PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00105      05  WS-TOT-PAID-AMT            PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00106      05  WS-TOT-WAIVED-AMT          PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00107      05  WS-TOT-WRITTEN-OFF-AMT     PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00108      05  WS-TOT-TOLER-AMT           PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00109      05  WS-TOT-CREDIT-AMT          PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00110      05  WS-TOT-NET-BAL             PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515
00111                                                                   DTSBD515
00112      05  WS-SUM-CHARGED-AMT         PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00113      05  WS-SUM-PAID-AMT            PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00114      05  WS-SUM-WAIVED-AMT          PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00115      05  WS-SUM-WRITTEN-OFF-AMT     PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00116      05  WS-SUM-TOLER-AMT           PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515
00117      05  WS-SUM-NET-BAL             PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515
00118      05  WS-SUM-DEBITS-AMT          PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515
00119 ***  05  WS-SUM-CREDIT-AMT          PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515
00120                                                                   DTSBD515
00121      05  DISP-WS-TOT-CHARGED-AMT    PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00122      05  DISP-WS-TOT-PAID-AMT       PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00123      05  DISP-WS-TOT-WAIVED-AMT     PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00124      05  DISP-WS-TOT-WRITTEN-OFF-AMT PIC $$,$$$,$$$,$$9.99-.      DTSBD515
00125      05  DISP-WS-TOT-TOLER-AMT      PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00126                                                                   DTSBD515
00127      05  DISP-WS-SUM-CHARGED-AMT    PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00128      05  DISP-WS-SUM-PAID-AMT       PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00129      05  DISP-WS-SUM-WAIVED-AMT     PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00130      05  DISP-WS-SUM-WRITTEN-OFF-AMT PIC $$,$$$,$$$,$$9.99-.      DTSBD515
00131      05  DISP-WS-SUM-TOLER-AMT      PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00132      05  DISP-WS-SUM-NET-BAL        PIC $$,$$$,$$$,$$9.99-.       DTSBD515
00133      05  DISP-WS-NET-BAL            PIC $$$,$$$,$$9.99-.          DTSBD515
00134      05  DISP-R302-PAID-AMT         PIC $$$,$$$,$$9.99-.          DTSBD515
00135      05  DISP-R302-TOLER-AMT        PIC $$$,$$$,$$9.99-.          DTSBD515
00136      05  DISP-R302-EMP-NO           PIC 999B999 BLANK WHEN ZERO.  DTSBD515
00137      05  DISP-R302-BATCH-NO         PIC 99999 VALUE ZEROS.        DTSBD515
00138      05  DISP-R302-ITEM-NO          PIC 999 VALUE ZEROS.          DTSBD515
00139      05  DISP-R302-TRANS-TYPE       PIC X(02) VALUE SPACES.       DTSBD515
00140                                                                   DTSBD515
00141  01  HDR1-1.                                                      DTSBD515
00142      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00143      05  HDR1-RPT-NO                 PIC  X(05)  VALUE '319R1'.   DTSBD515
00144      05  FILLER                      PIC  X(48)  VALUE SPACES.    DTSBD515
00145      05  FILLER                      PIC  X(20)  VALUE            DTSBD515
00146               'DISTRICT OF COLUMBIA'.                             DTSBD515
00147      05  FILLER                      PIC  X(44)  VALUE SPACES.    DTSBD515
00148      05  FILLER                      PIC  X(05)                   DTSBD515
00149             VALUE 'DATE:'.                                        DTSBD515
00150      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00151      05  WS-SYS-DATE                 PIC  X(08)  VALUE SPACE.     DTSBD515
00152                                                                   DTSBD515
00153  01  HDR1-2.                                                      DTSBD515
00154      05  FILLER                      PIC  X(58)  VALUE SPACES.    DTSBD515
00155      05  FILLER                      PIC  X(12)  VALUE            DTSBD515
00156               'TAX DIVISION'.                                     DTSBD515
00157      05  FILLER                      PIC  X(48)  VALUE SPACES.    DTSBD515
00158      05  FILLER                      PIC  X(05)                   DTSBD515
00159             VALUE 'TIME:'.                                        DTSBD515
00160      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00161      05  WS-SYS-TIME                 PIC  X(08)  VALUE SPACE.     DTSBD515
00162                                                                   DTSBD515
00163  01  HDR1-3.                                                      DTSBD515
00164      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00165      05  FILLER                      PIC  X(27)                   DTSBD515
00166             VALUE 'ROUTE TO:  TAX ACCOUNTING  '.                  DTSBD515
00167      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBD515
00168      05  FILLER                      PIC  X(05)                   DTSBD515
00169             VALUE 'PAGE:'.                                        DTSBD515
00170      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBD515
00171      05  PAGE-CNT                    PIC  ZZ,ZZ9.                 DTSBD515
00172                                                                   DTSBD515
00173  01  HDR1-4.                                                      DTSBD515
00174      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00175      05  FILLER                      PIC  X(54)  VALUE SPACE.     DTSBD515
00176      05  FILLER                      PIC  X(18)                   DTSBD515
00177             VALUE 'DEBITS ESTABLISHED'.                           DTSBD515
00178      05  FILLER                      PIC  X(62)  VALUE SPACE.     DTSBD515
00179                                                                   DTSBD515
00180  01  HDR1-5                          PIC  X(133) VALUE SPACES.    DTSBD515
00181                                                                   DTSBD515
00182  01  HDR1-6.                                                      DTSBD515
00183      05  FILLER                      PIC  X(01) VALUE SPACE.      DTSBD515
00184      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBD515
00185      05  FILLER                      PIC  X(06)                   DTSBD515
00186                 VALUE 'EMP NO'.                                   DTSBD515
00187      05  FILLER                      PIC  X(05) VALUE SPACES.     DTSBD515
00188      05  FILLER                      PIC  X(05)                   DTSBD515
00189                 VALUE 'BATCH'.                                    DTSBD515
00190      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBD515
00191      05  FILLER                      PIC  X(04)                   DTSBD515
00192                 VALUE 'ITEM'.                                     DTSBD515
00193      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBD515
00194      05  FILLER                      PIC  X(10)                   DTSBD515
00195                 VALUE 'TRANS TYPE'.                               DTSBD515
00196      05  FILLER                      PIC  X(05) VALUE SPACES.     DTSBD515
00197      05  FILLER                      PIC  X(12)                   DTSBD515
00198                 VALUE 'DEBIT AMOUNT'.                             DTSBD515
00199      05  FILLER                      PIC  X(74) VALUE SPACES.     DTSBD515
00200                                                                   DTSBD515
00201  01  HDR1-7                          PIC  X(133) VALUE SPACES.    DTSBD515
00202                                                                   DTSBD515
00203  01  DETAIL-LINE.                                                 DTSBD515
00204      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00205      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBD515
00206      05  WS-EMP-NO                   PIC  999B999 BLANK WHEN ZERO.DTSBD515
00207      05  FILLER                      PIC  X(04)  VALUE SPACE.     DTSBD515
00208      05  WS-BATCH-NO                 PIC  X(05).                  DTSBD515
00209      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBD515
00210      05  WS-ITEM-NO                  PIC  X(03).                  DTSBD515
00211      05  FILLER                      PIC  X(09)  VALUE SPACES.    DTSBD515
00212      05  WS-TRANS-TYPE               PIC  X(02).                  DTSBD515
00213      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBD515
00214      05  WS-DEBITS-AMT               PIC  $$,$$$,$$$,$$9.99.      DTSBD515
00215      05  FILLER                      PIC  X(75)  VALUE SPACES.    DTSBD515
00216                                                                   DTSBD515
00217  01  CONTROL-SUM-FOOTING.                                         DTSBD515
00218                                                                   DTSBD515
00219      05  SUM-LINE-1                  PIC  X(133) VALUE SPACES.    DTSBD515
00220      05  SUM-LINE-2.                                              DTSBD515
00221          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBD515
00222          10  WS-SUM-FOOT-NUMBER      PIC  ZZ,ZZ9.                 DTSBD515
00223          10  FILLER                  PIC  X(19)                   DTSBD515
00224                 VALUE '  EMPLOYER ACCOUNTS'.                      DTSBD515
00225          10  FILLER                  PIC  X(73)  VALUE SPACES.    DTSBD515
00226      05  SUM-LINE-3.                                              DTSBD515
00227          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBD515
00228          10  WS-SUM-DEBITS-AMOUNT    PIC  $$,$$$,$$9.99-.         DTSBD515
00229          10  FILLER                  PIC  X(25)                   DTSBD515
00230                 VALUE ' TOTAL DEBITS ESTABLISHED'.                DTSBD515
00231          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBD515
00232      05  SUM-ASTR-4.                                              DTSBD515
00233          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBD515
00234          10  FILLER                  PIC  X(26)                   DTSBD515
00235                 VALUE '  *** END OF REPORT       '.               DTSBD515
00236          10  FILLER                  PIC  X(81) VALUE SPACES.     DTSBD515
00237                                                                   DTSBD515
00238  01  HDR2-1.                                                      DTSBD515
00239      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00240      05  HDR2-RPT-NO                 PIC  X(05)  VALUE '319R2'.   DTSBD515
00241      05  FILLER                      PIC  X(48)  VALUE SPACES.    DTSBD515
00242      05  FILLER                      PIC  X(20)  VALUE            DTSBD515
00243               'DISTRICT OF COLUMBIA'.                             DTSBD515
00244      05  FILLER                      PIC  X(44)  VALUE SPACES.    DTSBD515
00245      05  FILLER                      PIC  X(05)                   DTSBD515
00246             VALUE 'DATE:'.                                        DTSBD515
00247      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00248      05  WS-SYS-DATE2                PIC  X(08)  VALUE SPACE.     DTSBD515
00249                                                                   DTSBD515
00250  01  HDR2-2.                                                      DTSBD515
00251      05  FILLER                      PIC  X(58)  VALUE SPACES.    DTSBD515
00252      05  FILLER                      PIC  X(12)  VALUE            DTSBD515
00253               'TAX DIVISION'.                                     DTSBD515
00254      05  FILLER                      PIC  X(48)  VALUE SPACES.    DTSBD515
00255      05  FILLER                      PIC  X(05)                   DTSBD515
00256             VALUE 'TIME:'.                                        DTSBD515
00257      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00258      05  WS-SYS-TIME2                PIC  X(08)  VALUE SPACE.     DTSBD515
00259                                                                   DTSBD515
00260  01  HDR2-3.                                                      DTSBD515
00261      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00262      05  FILLER                      PIC  X(27)                   DTSBD515
00263             VALUE 'ROUTE TO:  TAX ACCOUNTING  '.                  DTSBD515
00264      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBD515
00265      05  FILLER                      PIC  X(05)                   DTSBD515
00266             VALUE 'PAGE:'.                                        DTSBD515
00267      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBD515
00268      05  PAGE-CNT2                   PIC  ZZ,ZZ9.                 DTSBD515
00269                                                                   DTSBD515
00270  01  HDR2-4.                                                      DTSBD515
00271      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00272      05  FILLER                      PIC  X(54)  VALUE SPACE.     DTSBD515
00273      05  FILLER                      PIC  X(19)                   DTSBD515
00274             VALUE 'CREDITS ESTABLISHED'.                          DTSBD515
00275      05  FILLER                      PIC  X(61)  VALUE SPACE.     DTSBD515
00276                                                                   DTSBD515
00277  01  HDR2-5                          PIC  X(133) VALUE SPACES.    DTSBD515
00278                                                                   DTSBD515
00279  01  HDR2-6.                                                      DTSBD515
00280      05  FILLER                      PIC  X(01) VALUE SPACE.      DTSBD515
00281      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBD515
00282      05  FILLER                      PIC  X(06)                   DTSBD515
00283                 VALUE 'EMP NO'.                                   DTSBD515
00284      05  FILLER                      PIC  X(05) VALUE SPACES.     DTSBD515
00285      05  FILLER                      PIC  X(05)                   DTSBD515
00286                 VALUE 'BATCH'.                                    DTSBD515
00287      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBD515
00288      05  FILLER                      PIC  X(04)                   DTSBD515
00289                 VALUE 'ITEM'.                                     DTSBD515
00290      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBD515
00291      05  FILLER                      PIC  X(10)                   DTSBD515
00292                 VALUE 'TRANS TYPE'.                               DTSBD515
00293      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBD515
00294      05  FILLER                      PIC  X(14)                   DTSBD515
00295                 VALUE 'CREDITS AMOUNT'.                           DTSBD515
00296      05  FILLER                      PIC  X(74) VALUE SPACES.     DTSBD515
00297                                                                   DTSBD515
00298  01  HDR2-7                          PIC  X(133) VALUE SPACES.    DTSBD515
00299                                                                   DTSBD515
00300  01  DETAIL-LINE2.                                                DTSBD515
00301      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBD515
00302      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBD515
00303      05  WS-EMP-NO2                  PIC  999B999 BLANK WHEN ZERO.DTSBD515
00304      05  FILLER                      PIC  X(04)  VALUE SPACE.     DTSBD515
00305      05  WS-BATCH-NO2                PIC  X(05).                  DTSBD515
00306      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBD515
00307      05  WS-ITEM-NO2                 PIC  X(03).                  DTSBD515
00308      05  FILLER                      PIC  X(09)  VALUE SPACES.    DTSBD515
00309      05  WS-TRANS-TYPE2              PIC  X(02).                  DTSBD515
00310      05  FILLER                      PIC  X(05)  VALUE SPACES.    DTSBD515
00311      05  WS-CREDITS-AMT              PIC  $$,$$$,$$$,$$9.99.      DTSBD515
00312      05  FILLER                      PIC  X(75)  VALUE SPACES.    DTSBD515
00313                                                                   DTSBD515
00314  01  CONTROL-SUM-FOOTING2.                                        DTSBD515
00315                                                                   DTSBD515
00316      05  SUM-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBD515
00317      05  SUM-LINE-6.                                              DTSBD515
00318          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBD515
00319          10  WS-SUM-FOOT-NUMBER2     PIC  ZZ,ZZ9.                 DTSBD515
00320          10  FILLER                  PIC  X(19)                   DTSBD515
00321                 VALUE '  EMPLOYER ACCOUNTS'.                      DTSBD515
00322          10  FILLER                  PIC  X(73)  VALUE SPACES.    DTSBD515
00323 *    05  SUM-LINE-7.                                              DTSBD515
00324 *        10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBD515
00325 *        10  WS-SUM-CREDITS-AMOUNT   PIC  $$,$$$,$$9.99-.         DTSBD515
00326 *        10  FILLER                  PIC  X(26)                   DTSBD515
00327 *               VALUE ' TOTAL CREDITS ESTABLISHED'.               DTSBD515
00328 *        10  FILLER                  PIC  X(66)  VALUE SPACES.    DTSBD515
00329      05  SUM-ASTR-8.                                              DTSBD515
00330          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBD515
00331          10  FILLER                  PIC  X(26)                   DTSBD515
00332                 VALUE '  *** END OF REPORT       '.               DTSBD515
00333          10  FILLER                  PIC  X(81) VALUE SPACES.     DTSBD515
00334                                                                   DTSBD515
00335  01  L001-LINK-AREA.                                              DTSBD515
00336  ++INCLUDE DTSIL001                                               DTSBD515
00337                                                                   DTSBD515
00338  01  L005-LINK-AREA.                                              DTSBD515
00339  ++INCLUDE DTSIL005                                               DTSBD515
00340                                                                   DTSBD515
00341  01  L032-LINK-AREA.                                              DTSBD515
00342  ++INCLUDE DTSIL032                                               DTSBD515
00343                                                                   DTSBD515
00344  01  L941-LINK-AREA.                                              DTSBD515
00345  ++INCLUDE DTSIL941                                               DTSBD515
00346                                                                   DTSBD515
00347  01  HOLD-ISKL-REC.                                               DTSBD515
00348  ++INCLUDE DTSIRSK1                                               DTSBD515
00349                                                                   DTSBD515
00350  01  L910-LINK-AREA.                                              DTSBD515
00351  ++INCLUDE DTSIL910                                               DTSBD515
00352                                                                   DTSBD515
00353  01  MSKL-REC.                                                    DTSBD515
00354  ++INCLUDE DTSIMSKL                                               DTSBD515
00355                                                                   DTSBD515
00356  01  MHDR-REC.                                                    DTSBD515
00357  ++INCLUDE DTSIMHDR                                               DTSBD515
00358                                                                   DTSBD515
00359  01  MPRF-REC.                                                    DTSBD515
00360  ++INCLUDE DTSIMPRF                                               DTSBD515
00361                                                                   DTSBD515
00362  01  R302-REC.                                                    DTSBD515
00363  ++INCLUDE DTSIR302                                               DTSBD515
00364                                                                   DTSBD515
00365  PROCEDURE DIVISION.                                              DTSBD515
00366      PERFORM I0000-INITIATE     THRU I0000-EXIT.                  DTSBD515
00367                                                                   DTSBD515
00368      PERFORM P0000-PROCESS      THRU P0000-EXIT.                  DTSBD515
00369                                                                   DTSBD515
00370      PERFORM T0000-TERMINATE    THRU T0000-EXIT.                  DTSBD515
00371                                                                   DTSBD515
00372      GOBACK.                                                      DTSBD515
00373                                                                   DTSBD515
00374  I0000-INITIATE.                                                  DTSBD515
00375                                                                   DTSBD515
00376      PERFORM I1000-OPEN-FILES THRU I1000-EXIT.                    DTSBD515
00377      SET L005-FROM-SYS      TO TRUE.                              DTSBD515
00378      PERFORM S005-DATE THRU S005-EXIT.                            DTSBD515
00379      MOVE L005-SLASH-DATE   TO WS-SYS-DATE WS-SYS-DATE2.          DTSBD515
00380      MOVE L005-DISPLAY-TIME TO WS-SYS-TIME WS-SYS-TIME2.          DTSBD515
00381                                                                   DTSBD515
00382  I0000-EXIT.                                                      DTSBD515
00383      EXIT.                                                        DTSBD515
00384                                                                   DTSBD515
00385  I1000-OPEN-FILES.                                                DTSBD515
00386                                                                   DTSBD515
00387      OPEN OUTPUT PRT-FILE1 PRT-FILE2.                             DTSBD515
00388      MOVE SPACES TO PRT-RECORD1 PRT-RECORD2.                      DTSBD515
00389      MOVE 'N'               TO L941-TRACE-IND.                    DTSBD515
00390      MOVE WRK-MOD-NAME      TO L941-MOD-NAME.                     DTSBD515
00391                                                                   DTSBD515
00392      PERFORM S910-OPEN-READ   THRU S910-EXIT.                     DTSBD515
00393      PERFORM S941-OPEN THRU S941-EXIT.                            DTSBD515
00394                                                                   DTSBD515
00395  I1000-EXIT.                                                      DTSBD515
00396      EXIT.                                                        DTSBD515
00397                                                                   DTSBD515
00398  P0000-PROCESS.                                                   DTSBD515
00399      PERFORM P1000-READ-SRTDAILY  THRU P1000-EXIT                 DTSBD515
00400         UNTIL L941-NO-REC-88.                                     DTSBD515
00401                                                                   DTSBD515
00402 *RW  PERFORM P3000-PRINT-REPORT   THRU P3000-EXIT.                DTSBD515
00403                                                                   DTSBD515
00404  P0000-EXIT.                                                      DTSBD515
00405      EXIT.                                                        DTSBD515
00406                                                                   DTSBD515
00407  P1000-READ-SRTDAILY.                                             DTSBD515
00408      PERFORM S941-READ THRU S941-EXIT.                            DTSBD515
00409                                                                   DTSBD515
00410      IF L941-NO-REC-88                                            DTSBD515
00411         GO TO P1000-EXIT.                                         DTSBD515
00412                                                                   DTSBD515
00413      IF RSK1-REC-TYPE < '302'                                     DTSBD515
00414         GO TO P1000-EXIT.                                         DTSBD515
00415                                                                   DTSBD515
00416      IF RSK1-REC-TYPE GREATER THAN '302'                          DTSBD515
00417         SET L941-NO-REC-88 TO TRUE                                DTSBD515
00418         GO TO P1000-EXIT.                                         DTSBD515
00419                                                                   DTSBD515
00420      IF RSK1-REC-TYPE EQUAL '302'                                 DTSBD515
00421         MOVE HOLD-ISKL-REC TO R302-REC                            DTSBD515
00422         PERFORM P1100-PROCESS-R302 THRU P1100-EXIT                DTSBD515
00423      END-IF.                                                      DTSBD515
00424                                                                   DTSBD515
00425  P1000-EXIT.                                                      DTSBD515
00426      EXIT.                                                        DTSBD515
00427                                                                   DTSBD515
00428  P1100-PROCESS-R302.                                              DTSBD515
00429                                                                   DTSBD515
00430      IF R302-TRAN-DATA-88                                         DTSBD515
00431         IF (R302-BATCH-NO = WS-R302-BATCH-NO) AND                 DTSBD515
00432              (R302-ITEM-NO = WS-R302-ITEM-NO)                     DTSBD515
00433            NEXT SENTENCE                                          DTSBD515
00434         ELSE                                                      DTSBD515
00435            PERFORM P1130-NET-BALANCE THRU P1130-EXIT              DTSBD515
00436            IF R302-OK-88                                          DTSBD515
00437 **         AND (R302-TRANS-TYPE = 'OR')                           DTSBD515
00438               MOVE R302-EMP-NO        TO WS-R302-EMP-NO           DTSBD515
00439               MOVE R302-BATCH-NO      TO WS-R302-BATCH-NO         DTSBD515
00440               MOVE R302-ITEM-NO       TO WS-R302-ITEM-NO          DTSBD515
00441               MOVE R302-TRANS-TYPE    TO WS-R302-TRANS-TYPE       DTSBD515
00442            ELSE                                                   DTSBD515
00443               GO TO P1100-EXIT                                    DTSBD515
00444            END-IF                                                 DTSBD515
00445         END-IF                                                    DTSBD515
00446      END-IF.                                                      DTSBD515
00447                                                                   DTSBD515
00448      IF R302-ACCT-DATA-88                                         DTSBD515
00449         IF  (R302-BATCH-NO = WS-R302-BATCH-NO)                    DTSBD515
00450         AND (R302-ITEM-NO = WS-R302-ITEM-NO)                      DTSBD515
00451            IF (R302-ACCT-IND = 'CR')                              DTSBD515
00452               PERFORM P1110-CREDIT   THRU P1110-EXIT              DTSBD515
00453            ELSE                                                   DTSBD515
00454               PERFORM P1120-DEBIT    THRU P1120-EXIT              DTSBD515
00455            END-IF                                                 DTSBD515
00456         END-IF                                                    DTSBD515
00457      END-IF.                                                      DTSBD515
00458                                                                   DTSBD515
00459  P1100-EXIT.                                                      DTSBD515
00460      EXIT.                                                        DTSBD515
00461                                                                   DTSBD515
00462  P1110-CREDIT.                                                    DTSBD515
00463      IF R302-PAID-AMT > ZERO                                      DTSBD515
00464      OR R302-TOLER-AMT NOT = ZERO                                 DTSBD515
00465         ADD R302-PAID-AMT TO WS-TOT-CREDIT-AMT                    DTSBD515
00466         ADD R302-TOLER-AMT  TO WS-TOT-CREDIT-AMT                  DTSBD515
00467      END-IF.                                                      DTSBD515
00468  P1110-EXIT.                                                      DTSBD515
00469      EXIT.                                                        DTSBD515
00470                                                                   DTSBD515
00471  P1120-DEBIT.                                                     DTSBD515
00472      ADD R302-CHARGED-AMT     TO WS-TOT-CHARGED-AMT               DTSBD515
00473                                  WS-SUM-CHARGED-AMT.              DTSBD515
00474      ADD R302-PAID-AMT        TO WS-TOT-PAID-AMT                  DTSBD515
00475                                  WS-SUM-PAID-AMT.                 DTSBD515
00476      ADD R302-WAIVED-AMT      TO WS-TOT-WAIVED-AMT                DTSBD515
00477                                  WS-SUM-WAIVED-AMT.               DTSBD515
00478      ADD R302-WRITTEN-OFF-AMT TO WS-TOT-WAIVED-AMT                DTSBD515
00479                                  WS-SUM-WAIVED-AMT.               DTSBD515
00480      ADD R302-TOLER-AMT       TO WS-TOT-TOLER-AMT                 DTSBD515
00481                                  WS-SUM-TOLER-AMT.                DTSBD515
00482  P1120-EXIT.                                                      DTSBD515
00483      EXIT.                                                        DTSBD515
00484                                                                   DTSBD515
00485  P1130-NET-BALANCE.                                               DTSBD515
00486      IF WS-R302-BATCH-NO  = ZEROS                                 DTSBD515
00487         GO TO P1130-EXIT                                          DTSBD515
00488      ELSE                                                         DTSBD515
00489         IF WS-TOT-CREDIT-AMT > ZERO                               DTSBD515
00490            PERFORM P1300-WRITE-CREDITS-REPORT THRU P1300-EXIT     DTSBD515
00491         ELSE                                                      DTSBD515
00492            COMPUTE WS-NET-BAL = (WS-TOT-CHARGED-AMT               DTSBD515
00493                - WS-TOT-PAID-AMT - WS-TOT-WAIVED-AMT              DTSBD515
00494                - WS-TOT-WRITTEN-OFF-AMT - WS-TOT-TOLER-AMT)       DTSBD515
00495            IF WS-NET-BAL > ZERO                                   DTSBD515
00496               PERFORM P1200-WRITE-DEBITS-REPORT THRU P1200-EXIT   DTSBD515
00497            END-IF                                                 DTSBD515
00498         END-IF                                                    DTSBD515
00499      END-IF.                                                      DTSBD515
00500                                                                   DTSBD515
00501      MOVE ZEROS         TO WS-TOT-CHARGED-AMT                     DTSBD515
00502                            WS-TOT-PAID-AMT                        DTSBD515
00503                            WS-TOT-WAIVED-AMT                      DTSBD515
00504                            WS-TOT-WRITTEN-OFF-AMT                 DTSBD515
00505                            WS-TOT-TOLER-AMT                       DTSBD515
00506                            WS-TOT-CREDIT-AMT.                     DTSBD515
00507                                                                   DTSBD515
00508  P1130-EXIT.                                                      DTSBD515
00509      EXIT.                                                        DTSBD515
00510                                                                   DTSBD515
00511  P1200-WRITE-DEBITS-REPORT.                                       DTSBD515
00512      MOVE LOW-VALUE        TO MSKL-KEY-AREA.                      DTSBD515
00513      MOVE WS-R302-EMP-NO   TO MSKL-EMP-NO.                        DTSBD515
00514      SET MSKL-PRF-88       TO TRUE.                               DTSBD515
00515                                                                   DTSBD515
00516      PERFORM S910-READ     THRU S910-EXIT.                        DTSBD515
00517      IF L910-NO-REC-88                                            DTSBD515
00518         NEXT SENTENCE                                             DTSBD515
00519      ELSE                                                         DTSBD515
00520         MOVE MSKL-REC         TO MPRF-REC                         DTSBD515
00521         IF MPRF-TOT-BALANCE-AMT = ZERO                            DTSBD515
00522            GO TO P1200-EXIT                                       DTSBD515
00523         END-IF                                                    DTSBD515
00524      END-IF.                                                      DTSBD515
00525                                                                   DTSBD515
00526      MOVE WS-R302-EMP-NO      TO DISP-R302-EMP-NO.                DTSBD515
00527      MOVE WS-R302-BATCH-NO    TO DISP-R302-BATCH-NO.              DTSBD515
00528      MOVE WS-R302-ITEM-NO     TO DISP-R302-ITEM-NO.               DTSBD515
00529      MOVE WS-R302-TRANS-TYPE  TO DISP-R302-TRANS-TYPE.            DTSBD515
00530      MOVE WS-NET-BAL          TO DISP-WS-NET-BAL.                 DTSBD515
00531      ADD WS-NET-BAL           TO WS-SUM-DEBITS-AMT.               DTSBD515
00532                                                                   DTSBD515
00533      DISPLAY DISP-R302-EMP-NO '    ' DISP-R302-BATCH-NO '    '    DTSBD515
00534              DISP-R302-ITEM-NO '    ' DISP-R302-TRANS-TYPE        DTSBD515
00535              '    D' DISP-WS-NET-BAL.                             DTSBD515
00536                                                                   DTSBD515
00537      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBD515
00538      MOVE WS-R302-EMP-NO      TO WS-EMP-NO.                       DTSBD515
00539      MOVE WS-R302-BATCH-NO    TO WS-BATCH-NO.                     DTSBD515
00540      MOVE WS-R302-ITEM-NO     TO WS-ITEM-NO.                      DTSBD515
00541      MOVE WS-R302-TRANS-TYPE  TO WS-TRANS-TYPE.                   DTSBD515
00542      MOVE WS-NET-BAL          TO WS-DEBITS-AMT.                   DTSBD515
00543                                                                   DTSBD515
00544      WRITE PRT-RECORD1 FROM DETAIL-LINE AFTER 2.                  DTSBD515
00545      MOVE +0   TO WS-NET-BAL.                                     DTSBD515
00546      ADD +2    TO WS-LINE-CNT2                                    DTSBD515
00547      ADD +1    TO WS-SUM-FOOT-CNT1.                               DTSBD515
00548                                                                   DTSBD515
00549  P1200-EXIT.                                                      DTSBD515
00550      EXIT.                                                        DTSBD515
00551                                                                   DTSBD515
00552  P1300-WRITE-CREDITS-REPORT.                                      DTSBD515
00553      MOVE LOW-VALUE        TO MSKL-KEY-AREA.                      DTSBD515
00554      MOVE WS-R302-EMP-NO   TO MSKL-EMP-NO.                        DTSBD515
00555      SET MSKL-PRF-88       TO TRUE.                               DTSBD515
00556                                                                   DTSBD515
00557      PERFORM S910-READ     THRU S910-EXIT.                        DTSBD515
00558      IF L910-NO-REC-88                                            DTSBD515
00559         NEXT SENTENCE                                             DTSBD515
00560      ELSE                                                         DTSBD515
00561         MOVE MSKL-REC         TO MPRF-REC                         DTSBD515
00562         IF MPRF-TOT-CREDIT-AMT = ZERO                             DTSBD515
00563            GO TO P1300-EXIT                                       DTSBD515
00564         END-IF                                                    DTSBD515
00565      END-IF.                                                      DTSBD515
00566                                                                   DTSBD515
00567                                                                   DTSBD515
00568      MOVE WS-R302-EMP-NO     TO DISP-R302-EMP-NO.                 DTSBD515
00569      MOVE WS-R302-BATCH-NO   TO DISP-R302-BATCH-NO.               DTSBD515
00570      MOVE WS-R302-ITEM-NO    TO DISP-R302-ITEM-NO.                DTSBD515
00571      MOVE WS-R302-TRANS-TYPE TO DISP-R302-TRANS-TYPE.             DTSBD515
00572      MOVE WS-TOT-CREDIT-AMT  TO DISP-R302-PAID-AMT.               DTSBD515
00573 **   ADD WS-TOT-CREDIT-AMT   TO WS-SUM-CREDIT-AMT.                DTSBD515
00574                                                                   DTSBD515
00575      DISPLAY DISP-R302-EMP-NO '    ' DISP-R302-BATCH-NO '    '    DTSBD515
00576              DISP-R302-ITEM-NO '    ' DISP-R302-TRANS-TYPE        DTSBD515
00577              '    C' DISP-R302-PAID-AMT.                          DTSBD515
00578                                                                   DTSBD515
00579      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBD515
00580      MOVE WS-R302-EMP-NO     TO WS-EMP-NO2.                       DTSBD515
00581      MOVE WS-R302-BATCH-NO   TO WS-BATCH-NO2.                     DTSBD515
00582      MOVE WS-R302-ITEM-NO    TO WS-ITEM-NO2.                      DTSBD515
00583      MOVE WS-R302-TRANS-TYPE TO WS-TRANS-TYPE2.                   DTSBD515
00584      MOVE WS-TOT-CREDIT-AMT  TO WS-CREDITS-AMT.                   DTSBD515
00585                                                                   DTSBD515
00586      WRITE PRT-RECORD2 FROM DETAIL-LINE2 AFTER 2.                 DTSBD515
00587      ADD +2    TO WS-LINE-CNT4                                    DTSBD515
00588      ADD +1    TO WS-SUM-FOOT-CNT2.                               DTSBD515
00589                                                                   DTSBD515
00590  P1300-EXIT.                                                      DTSBD515
00591      EXIT.                                                        DTSBD515
00592                                                                   DTSBD515
00593  P2000-PRINT-HEADER.                                              DTSBD515
00594      IF WS-LINE-CNT GREATER 56 OR                                 DTSBD515
00595           WS-LINE-CNT2 GREATER 56                                 DTSBD515
00596         MOVE +0          TO WS-LINE-CNT                           DTSBD515
00597         MOVE +0          TO WS-LINE-CNT2                          DTSBD515
00598         ADD  +1          TO WS-PAGE-CNT                           DTSBD515
00599         MOVE WS-PAGE-CNT TO PAGE-CNT                              DTSBD515
00600         WRITE PRT-RECORD1 FROM HDR1-1 AFTER TOP-OF-PAGE           DTSBD515
00601         WRITE PRT-RECORD1 FROM HDR1-2 AFTER 1                     DTSBD515
00602         WRITE PRT-RECORD1 FROM HDR1-3 AFTER 1                     DTSBD515
00603         WRITE PRT-RECORD1 FROM HDR1-4 AFTER 1                     DTSBD515
00604         WRITE PRT-RECORD1 FROM HDR1-5 AFTER 1                     DTSBD515
00605         WRITE PRT-RECORD1 FROM HDR1-6 AFTER 1                     DTSBD515
00606 *       WRITE PRT-RECORD1 FROM HDR1-7 AFTER 1                     DTSBD515
00607         ADD +6    TO WS-LINE-CNT2.                                DTSBD515
00608                                                                   DTSBD515
00609  P2000-EXIT.                                                      DTSBD515
00610      EXIT.                                                        DTSBD515
00611                                                                   DTSBD515
00612  P3000-PRINT-HEADER.                                              DTSBD515
00613      IF WS-LINE-CNT3 GREATER 56 OR                                DTSBD515
00614           WS-LINE-CNT4 GREATER 56                                 DTSBD515
00615         MOVE +0          TO WS-LINE-CNT3                          DTSBD515
00616         MOVE +0          TO WS-LINE-CNT4                          DTSBD515
00617         ADD  +1          TO WS-PAGE-CNT2                          DTSBD515
00618         MOVE WS-PAGE-CNT2 TO PAGE-CNT2                            DTSBD515
00619         WRITE PRT-RECORD2 FROM HDR2-1 AFTER TOP-OF-PAGE           DTSBD515
00620         WRITE PRT-RECORD2 FROM HDR2-2 AFTER 1                     DTSBD515
00621         WRITE PRT-RECORD2 FROM HDR2-3 AFTER 1                     DTSBD515
00622         WRITE PRT-RECORD2 FROM HDR2-4 AFTER 1                     DTSBD515
00623         WRITE PRT-RECORD2 FROM HDR2-5 AFTER 1                     DTSBD515
00624         WRITE PRT-RECORD2 FROM HDR2-6 AFTER 1                     DTSBD515
00625 *       WRITE PRT-RECORD2 FROM HDR2-7 AFTER 1                     DTSBD515
00626         ADD +6    TO WS-LINE-CNT4.                                DTSBD515
00627                                                                   DTSBD515
00628  P3000-EXIT.                                                      DTSBD515
00629      EXIT.                                                        DTSBD515
00630                                                                   DTSBD515
00631  S001-DATE.                                                       DTSBD515
00632      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD515
00633  S001-EXIT.                                                       DTSBD515
00634      EXIT.                                                        DTSBD515
00635                                                                   DTSBD515
00636  S005-DATE.                                                       DTSBD515
00637      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD515
00638  S005-EXIT.                                                       DTSBD515
00639      EXIT.                                                        DTSBD515
00640                                                                   DTSBD515
00641  S910-OPEN-READ.                                                  DTSBD515
00642      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD515
00643      GO TO S910-MSTR-IO.                                          DTSBD515
00644                                                                   DTSBD515
00645  S910-READ.                                                       DTSBD515
00646      SET L910-READ-88 TO TRUE.                                    DTSBD515
00647      GO TO S910-MSTR-IO.                                          DTSBD515
00648                                                                   DTSBD515
00649  S910-CLOSE.                                                      DTSBD515
00650      SET L910-CLOSE-88     TO TRUE.                               DTSBD515
00651      GO TO S910-MSTR-IO.                                          DTSBD515
00652                                                                   DTSBD515
00653  S910-MSTR-IO.                                                    DTSBD515
00654      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD515
00655                            MSKL-REC.                              DTSBD515
00656  S910-EXIT.                                                       DTSBD515
00657      EXIT.                                                        DTSBD515
00658                                                                   DTSBD515
00659  S941-OPEN.                                                       DTSBD515
00660      SET L941-OPEN-READ-88 TO TRUE.                               DTSBD515
00661      GO TO S941-I.                                                DTSBD515
00662                                                                   DTSBD515
00663  S941-READ.                                                       DTSBD515
00664      SET L941-READ-NEXT-88 TO TRUE.                               DTSBD515
00665      GO TO S941-I.                                                DTSBD515
00666                                                                   DTSBD515
00667  S941-CLOSE.                                                      DTSBD515
00668      SET L941-CLOSE-88 TO TRUE.                                   DTSBD515
00669      GO TO S941-I.                                                DTSBD515
00670                                                                   DTSBD515
00671  S941-I.                                                          DTSBD515
00672      CALL 'DTSBU941' USING L941-LINK-AREA,                        DTSBD515
00673                            HOLD-ISKL-REC.                         DTSBD515
00674  S941-EXIT.                                                       DTSBD515
00675      EXIT.                                                        DTSBD515
00676                                                                   DTSBD515
00677  S999-ABEND.                                                      DTSBD515
00678      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD515
00679      SKIP2                                                        DTSBD515
00680  S999-EXIT.                                                       DTSBD515
00681      EXIT.                                                        DTSBD515
00682                                                                   DTSBD515
00683  T0000-TERMINATE.                                                 DTSBD515
00684                                                                   DTSBD515
00685      IF WS-LINE-CNT2 > 52 OR WS-LINE-CNT > 52                     DTSBD515
00686         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBD515
00687      END-IF.                                                      DTSBD515
00688                                                                   DTSBD515
00689      MOVE WS-SUM-DEBITS-AMT  TO WS-SUM-DEBITS-AMOUNT.             DTSBD515
00690      MOVE WS-SUM-FOOT-CNT1   TO WS-SUM-FOOT-NUMBER.               DTSBD515
00691      WRITE PRT-RECORD1 FROM SUM-LINE-1 AFTER 1.                   DTSBD515
00692      WRITE PRT-RECORD1 FROM SUM-LINE-2 AFTER 2.                   DTSBD515
00693      WRITE PRT-RECORD1 FROM SUM-LINE-3 AFTER 2.                   DTSBD515
00694      WRITE PRT-RECORD1 FROM SUM-ASTR-4 AFTER 2.                   DTSBD515
00695                                                                   DTSBD515
00696      IF WS-LINE-CNT4 > 52 OR WS-LINE-CNT3 > 52                    DTSBD515
00697         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBD515
00698      END-IF.                                                      DTSBD515
00699                                                                   DTSBD515
00700 **   MOVE WS-SUM-CREDIT-AMT  TO WS-SUM-CREDITS-AMOUNT.            DTSBD515
00701      MOVE WS-SUM-FOOT-CNT2   TO WS-SUM-FOOT-NUMBER2.              DTSBD515
00702      WRITE PRT-RECORD2 FROM SUM-LINE-5 AFTER 1.                   DTSBD515
00703      WRITE PRT-RECORD2 FROM SUM-LINE-6 AFTER 2.                   DTSBD515
00704 **   WRITE PRT-RECORD2 FROM SUM-LINE-7 AFTER 2.                   DTSBD515
00705      WRITE PRT-RECORD2 FROM SUM-ASTR-8 AFTER 2.                   DTSBD515
00706                                                                   DTSBD515
00707      COMPUTE WS-SUM-NET-BAL = (WS-SUM-CHARGED-AMT                 DTSBD515
00708                   - WS-SUM-PAID-AMT - WS-SUM-WAIVED-AMT           DTSBD515
00709                   - WS-SUM-WRITTEN-OFF-AMT - WS-SUM-TOLER-AMT).   DTSBD515
00710                                                                   DTSBD515
00711      MOVE WS-SUM-NET-BAL TO DISP-WS-SUM-NET-BAL                   DTSBD515
00712                                                                   DTSBD515
00713      DISPLAY '      '.                                            DTSBD515
00714      MOVE WS-SUM-CHARGED-AMT TO DISP-WS-SUM-CHARGED-AMT.          DTSBD515
00715      DISPLAY 'TOTAL DAILY CHARGED AMT = ' DISP-WS-SUM-CHARGED-AMT.DTSBD515
00716      MOVE WS-SUM-PAID-AMT TO DISP-WS-SUM-PAID-AMT.                DTSBD515
00717      DISPLAY 'TOTAL DAILY PAYMENT AMT = ' DISP-WS-SUM-PAID-AMT.   DTSBD515
00718      MOVE WS-SUM-WAIVED-AMT  TO DISP-WS-SUM-WAIVED-AMT.           DTSBD515
00719      DISPLAY 'TOTAL DAILY WAIVED  AMT = ' DISP-WS-SUM-WAIVED-AMT. DTSBD515
00720      MOVE WS-SUM-WRITTEN-OFF-AMT TO DISP-WS-SUM-WRITTEN-OFF-AMT.  DTSBD515
00721      DISPLAY 'TOTAL WRITTEN  OFF  AMT = '                         DTSBD515
00722                       DISP-WS-SUM-WRITTEN-OFF-AMT.                DTSBD515
00723      MOVE WS-SUM-TOLER-AMT  TO DISP-WS-SUM-TOLER-AMT.             DTSBD515
00724      DISPLAY 'TOTAL DAILY  TOLER  AMT = ' DISP-WS-SUM-TOLER-AMT.  DTSBD515
00725                                                                   DTSBD515
00726      DISPLAY '      '.                                            DTSBD515
00727      DISPLAY '  TOTAL NET BALANCE AMT = ' DISP-WS-SUM-NET-BAL.    DTSBD515
00728                                                                   DTSBD515
00729      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBD515
00730      PERFORM S941-CLOSE THRU S941-EXIT.                           DTSBD515
00731      CLOSE PRT-FILE1 PRT-FILE2.                                   DTSBD515
00732  T0000-EXIT.                                                      DTSBD515
00733      EXIT.                                                        DTSBD515
00734                                                                   DTSBD515
