00001  IDENTIFICATION DIVISION.                                         04/06/17
00002  PROGRAM-ID.             DTSBR415.                                DTSBR415
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV011
00004  DATE-WRITTEN.           NOV 2002.                                DTSBR415
00005  DATE-COMPILED.                                                   DTSBR415
00006      SKIP3                                                        DTSBR415
00007 *****                                                             DTSBR415
00008 *                                                                 DTSBR415
00009 *    CALLING SEQUENCE:  DTSBD300 CALLS                            DTSBR415
00010 *                       DTSBd327 WHICH CREATES DTSIR415 RECORDS   DTSBR415
00011 *                       DTSBD800 CALLS                            DTSBR415
00012 *                       DTSBR415 WHICH READS DTSIR415 RECORDS     DTSBR415
00013 *                                                                 DTSBR415
00014 *    FUNCTION:  DEBIT MEMO PRINT (overnight)                      DTSBR415
00015 *                                                                 DTSBR415
00016 *    MODIFICATION HISTORY:                                        DTSBR415
00017 *                                                                 DTSBR415
00018 * 11-12-02 MODIFIED TO REFORMAT BILL USING NEW FORM.              DTSBR415
00019 *                                                                 DTSBR415
00020 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR415
00021 *                                                                 DTSBR415
00022 * 03-32-06 MODIFIED TO include administrative assessment as a     DTSBR415
00023 * seperate line item on bill.                                     DTSBR415
00024 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR415
00025 *                                                                 DTSBR415
00026 * 04-06-17 modified program to accomodate verbiage changes for    DTSBR415
00027 * overnight bills and allows staff to create zero statements.     DTSBR415
00028 *          REFERENCE RFP #                       PROGRAMMER: nh1  DTSBR415
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR415
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR415
00031 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR415
00032 *                                                                 DTSBR415
00033 *                                                                 DTSBR415
00034 *  DESCRIPTION:                                                   DTSBR415
00035 *                                                                 DTSBR415
00036 *      THIS MODULE PRINTS DEBIT MEMOS.                            DTSBR415
00037 *                                                                 DTSBR415
00038 *      IF DTSBR415 IS MODIFIED, THERE IS A STRONG PROBABILITY     DTSBR415
00039 *      THAT CORRESPONDING MODIFICATIONS MUST BE MADE TO           DTSBR415
00040 *      DTSCS46 (ON-LINE STATEMENT OF ACCOUNT PRINT).              DTSBR415
00041 *                                                                 DTSBR415
00042 *                                                                 DTSBR415
00043 *  PROCESSING:                                                    DTSBR415
00044 *                                                                 DTSBR415
00045 *      DETAIL:                                                    DTSBR415
00046 *                                                                 DTSBR415
00047 *                                                                 DTSBR415
00048 *    RECORDS READ:                                                DTSBR415
00049 *                                                                 DTSBR415
00050 *        FOPR.                                                    DTSBR415
00051 *                                                                 DTSBR415
00052 *                                                                 DTSBR415
00053 *    PRINTED OUTPUTS:                                             DTSBR415
00054 *                                                                 DTSBR415
00055 *        415R1  STATEMENT OF ACCOUNT (DEBIT OVERNIGHT)            DTSBR415
00056 *                                                                 DTSBR415
00057 *                                                                 DTSBR415
00058 *    RECORDS WRITTEN:                                             DTSBR415
00059 *                                                                 DTSBR415
00060 *        NONE.                                                    DTSBR415
00061 *                                                                 DTSBR415
00062 *                                                                 DTSBR415
00063 *    MODULES CALLED:                                              DTSBR415
00064 *                                                                 DTSBR415
00065 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBR415
00066 *                                                                 DTSBR415
00067 *****                                                             DTSBR415
00068      EJECT                                                        DTSBR415
00069  ENVIRONMENT DIVISION.                                            DTSBR415
00070      SKIP2                                                        DTSBR415
00071  INPUT-OUTPUT SECTION.                                            DTSBR415
00072                                                                   DTSBR415
00073  FILE-CONTROL.                                                    DTSBR415
00074      SELECT PRT-FILE1   ASSIGN TO RPT415R1.                       DTSBR415
00075      SKIP3                                                        DTSBR415
00076  DATA DIVISION.                                                   DTSBR415
00077      SKIP3                                                        DTSBR415
00078  FILE SECTION.                                                    DTSBR415
00079      SKIP3                                                        DTSBR415
00080  FD  PRT-FILE1                                                    DTSBR415
00081      LABEL RECORDS ARE STANDARD.                                  DTSBR415
00082  01  PRT-REC1.                                                    DTSBR415
00083      05  FILLER                      PIC  X(132).                 DTSBR415
00084      SKIP3                                                        DTSBR415
00085  WORKING-STORAGE SECTION.                                         DTSBR415
000855 77  PAN-VALET PICTURE X(24) VALUE '011DTSBR415  04/06/17'.       DTSBR415
00086  77  PAN-VALET PICTURE X(24) VALUE '018DTSBR415  04/06/17'.       DTSBR415
00087  77  PAN-VALET PICTURE X(24) VALUE '009DTSBR415  03/02/11'.       DTSBR415
00088      SKIP3                                                        DTSBR415
00089  01  WRK-AREA-CONSTANTS.                                          DTSBR415
00090      05  WRK-ABEND-CD                PIC S9(04)  COMP             DTSBR415
00091                                                      VALUE +415.  DTSBR415
00092                                                                   DTSBR415
00093      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR415
00094                                                                   DTSBR415
00095      05  TOT-LINE-CNT                PIC S9(04)  COMP  VALUE +29. DTSBR415
00096      05  MAX-QTR-PRINT               PIC S9(04)  COMP  VALUE +10. DTSBR415
00097      05  LINE-CNT                    PIC S9(04)  COMP  VALUE +0.  DTSBR415
00098                                                                   DTSBR415
00099      05  ABEND-MSG                   PIC  X(60)  VALUE SPACE.     DTSBR415
00100                                                                   DTSBR415
00101      05  PRT-FILE1-PAGE-CNT          PIC S9(07)  COMP-3 VALUE +0. DTSBR415
00102                                                                   DTSBR415
00103      05  DISPLAY-CNT                 PIC  X(09)  VALUE ZEROS.     DTSBR415
00104      05  DISPLAY-CNT-Z REDEFINES DISPLAY-CNT                      DTSBR415
00105                                      PIC  Z,ZZZ,ZZ9.              DTSBR415
00106      05  WS-WRK-QTR                  PIC  9(05)  VALUE ZEROS.     DTSBR415
00107      05  WS-WRK-QTR-X REDEFINES WS-WRK-QTR.                       DTSBR415
00108          10  WRK-QTR-YR              PIC  9(04).                  DTSBR415
00109          10  WRK-QTR-Q               PIC  9(01).                  DTSBR415
00110                                                                   DTSBR415
00111      05  WS-PRT-QTR.                                              DTSBR415
00112          10  WRK-PRT-YR              PIC  X(04)  VALUE SPACES.    DTSBR415
00113          10  WRK-PRT-SLASH           PIC  X(01)  VALUE SPACES.    DTSBR415
00114          10  WRK-PRT-Q               PIC  X(01)  VALUE SPACES.    DTSBR415
00115                                                                   DTSBR415
00116      05  WS-EMP-NAME.                                             DTSBR415
00117          10  WRK-FIRST-4             PIC  X(04)  VALUE SPACES.    DTSBR415
00118          10  WRK-LAST-36             PIC  X(36)  VALUE SPACES.    DTSBR415
00119                                                                   DTSBR415
00120      SKIP3                                                        DTSBR415
00121      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR415
00122      05  WS-XREC                     PIC  X(132)  VALUE SPACES.   DTSBR415
00123                                                                   DTSBR415
00124      05  AMT-DISPLAYED-IND           PIC  X(01).                  DTSBR415
00125          88  AMT-DISPLAYED-NO-88            VALUE 'N'.            DTSBR415
00126          88  AMT-DISPLAYED-YES-88           VALUE 'Y'.            DTSBR415
00127                                                                   DTSBR415
00128      05  PRINT-PRIOR-QTRS-IND        PIC  X(01).                  DTSBR415
00129          88  PRINT-PRIOR-QTRS-NO-88         VALUE 'N'.            DTSBR415
00130          88  PRINT-PRIOR-QTRS-YES-88        VALUE 'Y'.            DTSBR415
00131                                                                   DTSBR415
00132      05  PRINT-FNOTE1-IND            PIC  X(01).                  DTSBR415
00133          88  PRINT-FNOTE1-NO-88             VALUE 'N'.            DTSBR415
00134          88  PRINT-FNOTE1-YES-88            VALUE 'Y'.            DTSBR415
00135                                                                   DTSBR415
00136      05  PRINT-FNOTE2-IND            PIC  X(01).                  DTSBR415
00137          88  PRINT-FNOTE2-NO-88             VALUE 'N'.            DTSBR415
00138          88  PRINT-FNOTE2-YES-88            VALUE 'Y'.            DTSBR415
00139                                                                   DTSBR415
00140      05  PRINT-FNOTE3-IND            PIC  X(01).                  DTSBR415
00141          88  PRINT-FNOTE3-NO-88             VALUE 'N'.            DTSBR415
00142          88  PRINT-FNOTE3-YES-88            VALUE 'Y'.            DTSBR415
00143                                                                   DTSBR415
00144      05  PRINT-FNOTE4-IND            PIC  X(01).                  DTSBR415
00145          88  PRINT-FNOTE4-NO-88             VALUE 'N'.            DTSBR415
00146          88  PRINT-FNOTE4-YES-88            VALUE 'Y'.            DTSBR415
00147                                                                   DTSBR415
00148      05  SUM-PRIOR-QTRS-IND          PIC  X(01).                  DTSBR415
00149          88  SUM-PRIOR-QTRS-NO-88         VALUE 'N'.              DTSBR415
00150          88  SUM-PRIOR-QTRS-YES-88        VALUE 'Y'.              DTSBR415
00151                                                                   DTSBR415
00152      SKIP3                                                        DTSBR415
00153      05  WS-TOTAL-CONTRIB-AMT PIC S9(09)V9(02)  COMP-3            DTSBR415
00154                                             VALUE +0.             DTSBR415
00155      05  WS-TOTAL-INTEREST-AMT PIC S9(09)V9(02) COMP-3            DTSBR415
00156                                             VALUE +0.             DTSBR415
00157      05  WS-TOTAL-PENALTY-AMT PIC S9(09)V9(02)  COMP-3            DTSBR415
00158                                             VALUE +0.             DTSBR415
00159      05  WS-TOTAL-BALANCE-AMT PIC S9(09)V9(02)  COMP-3            DTSBR415
00160                                             VALUE +0.             DTSBR415
00161      05  WS-TOTAL-SURCHRG-AMT PIC S9(09)V9(02)  COMP-3            DTSBR415
00162                                             VALUE +0.             DTSBR415
00163      05  WS-STUB-BALANCE-AMT   PIC S9(09)V9(02)  COMP-3           DTSBR415
00164                                             VALUE +0.             DTSBR415
00165      05  WS-QTR-PLUS20        PIC 9(3)      VALUE ZERO.           DTSBR415
00166      05  WS-QTR-CNT           PIC 9(3)      VALUE ZERO.           DTSBR415
00167      05  WS-QTR-IDX           PIC 9(3)      VALUE ZERO.           DTSBR415
00168      05  WRK-CNT              PIC 9(3)                            DTSBR415
00169                                             VALUE ZERO.           DTSBR415
00170      05  WRK-CTR              PIC S9(04)        COMP              DTSBR415
00171             VALUE +0.                                             DTSBR415
00172      05  WS-QTR-FNOTE         PIC X(7)      VALUE SPACES.         DTSBR415
00173      05  WS-QTR-FNOTEX REDEFINES WS-QTR-FNOTE.                    DTSBR415
00174          10 WFNOTE1           PIC X(03).                          DTSBR415
00175          10 WFNOTE2           PIC X(03).                          DTSBR415
00176          10 FILLER            PIC X.                              DTSBR415
00177      EJECT                                                        DTSBR415
00178                                                                   DTSBR415
00179  ++INCLUDE DTSXL415                                               DTSBR415
00180      SKIP3                                                        DTSBR415
00181      05  STUB-LINE.                                               DTSBR415
00182          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR415
00183          10  STUB-EMP-NO             PIC  999B999.                DTSBR415
00184          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00185          10  STUB-EMP-FEIN           PIC  99B9999999.             DTSBR415
00186          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR415
00187          10  STUB-STMT-DATE          PIC  X(10).                  DTSBR415
00188          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR415
00189          10  STUB-COMP-DATE          PIC  X(10).                  DTSBR415
00190          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR415
00191          10  STUB-AMT                PIC  $,$$$,$$$.$$.           DTSBR415
00192                                                                   DTSBR415
00193      05  ADDR01.                                                  DTSBR415
00194          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR415
00195          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR415
00196          10  STUB-ADDR-LINE1         PIC  X(40).                  DTSBR415
00197          10  FILLER                  PIC  X(23)  value spaces.    DTSBR415
00198                                                                   DTSBR415
00199      05  ADDR02.                                                  DTSBR415
00200          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR415
00201          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR415
00202          10  STUB-ADDR-LINE2         PIC  X(40).                  DTSBR415
00203          10  FILLER                  PIC  X(23)  value spaces.    DTSBR415
00204                                                                   DTSBR415
00205      05  ADDR03.                                                  DTSBR415
00206          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR415
00207          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR415
00208          10  STUB-ADDR-LINE3         PIC  X(40).                  DTSBR415
00209          10  FILLER                  PIC  X(23)  value spaces.    DTSBR415
00210                                                                   DTSBR415
00211      05  ADDR04.                                                  DTSBR415
00212          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR415
00213          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR415
00214          10  STUB-ADDR-LINE4         PIC  X(40).                  DTSBR415
00215          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR415
00216                                                                   DTSBR415
00217      05  ADDR05.                                                  DTSBR415
00218          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR415
00219          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR415
00220          10  STUB-ADDR-LINE5         PIC  X(40).                  DTSBR415
00221          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR415
00222                                                                   DTSBR415
00223      05  STMT-LINE2.                                              DTSBR415
00224          10  FILLER                  PIC  X(63)  VALUE SPACE.     DTSBR415
00225          10  STMT-LAST-ACCT-UPDATE-DATE                           DTSBR415
00226                                      PIC  X(10).                  DTSBR415
00227          10  FILLER                  PIC  X(02)  VALUE '. '.      DTSBR415
00228                                                                   DTSBR415
00229      05  STMT-LINE1.                                              DTSBR415
00230          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00231          10  STMT-EMP-NO             PIC  999B999.                DTSBR415
00232          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00233          10  STMT-NAME-CHEK          PIC  X(04).                  DTSBR415
00234          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR415
00235          10  STMT-EMP-FEIN           PIC  99B9999999.             DTSBR415
00236          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00237          10  STMT-STMT-DATE          PIC  X(10).                  DTSBR415
00238          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR415
00239          10  STMT-COMP-DATE          PIC  X(10).                  DTSBR415
00240          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR415
00241                                                                   DTSBR415
00242      05  STMT-QTR-DETAIL.                                         DTSBR415
00243          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00244          10  QTR-DET-YR.                                          DTSBR415
00245              15  QTR-DET-YR1         PIC  X(06).                  DTSBR415
00246              15  QTR-DET-YR2         PIC  X(03).                  DTSBR415
00247          10  QTR-DET-FNOTE.                                       DTSBR415
00248              15  QTR-DET-FNOTE1      PIC  X(06).                  DTSBR415
00249              15  QTR-DET-FNOTE2      PIC  X(01).                  DTSBR415
00250          10  FILLER                  PIC  X(02).                  DTSBR415
00251          10  QTR-DET-CONTRIB-AMT     PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR415
00252 *        10  FILLER                  PIC  X(04).                  DTSBR415
00253          10  QTR-DET-INTEREST-AMT    PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR415
00254 *        10  FILLER                  PIC  X(03).                  DTSBR415
00255          10  QTR-DET-PENALTY-AMT     PIC  Z,ZZZ,ZZZ.ZZ.           DTSBR415
00256 *        10  FILLER                  PIC  X(03).                  DTSBR415
00257          10  QTR-DET-SURCHRG-AMT     PIC  Z,ZZZ,ZZZ.ZZ.           DTSBR415
00258 *        10  FILLER                  PIC  X(02).                  DTSBR415
00259          10  QTR-DET-BALANCE-AMT     PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR415
00260          10  FILLER                  PIC  X(02).                  DTSBR415
00261                                                                   DTSBR415
00262      05  STMT-TOTAL-LINE.                                         DTSBR415
00263          10  FILLER                  PIC  X(21)  VALUE SPACE.     DTSBR415
00264          10  TOTAL-CONTRIB-AMT       PIC  $$$,$$$,$$$.$$.         DTSBR415
00265 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00266          10  TOTAL-INTEREST-AMT      PIC  $$$,$$$,$$$.$$.         DTSBR415
00267 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR415
00268          10  TOTAL-PENALTY-AMT       PIC  $,$$$,$$$.$$.           DTSBR415
00269 *        10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR415
00270          10  TOTAL-SURCHRG-AMT       PIC   $,$$$,$$$.$$.          DTSBR415
00271          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR415
00272          10  TOTAL-BALANCE-AMT       PIC  $$$,$$$,$$9.99.         DTSBR415
00273          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR415
00274                                                                   DTSBR415
00275      05  STMT-EXAMINER-CALLBACK.                                  DTSBR415
00276          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00277          10  FILLER                  PIC  X(49)  VALUE            DTSBR415
00278            'If you have any questions, please contact the Tax'.   DTSBR415
00279          10  FILLER                  PIC  X(38)  VALUE            DTSBR415
00280            ' Division at the number listed below.'.               DTSBR415
00281                                                                   DTSBR415
00282      05  STMT-EXAMINER-LINE1.                                     DTSBR415
00283          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00284          10  RPT-EXAMIN-UNIT         PIC  X(20)  VALUE SPACE.     DTSBR415
00285          10  FILLER                  PIC  X(105) VALUE SPACE.     DTSBR415
00286                                                                   DTSBR415
00287      05  STMT-EXAMINER-LINE2.                                     DTSBR415
00288          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00289          10  RPT-EXAMIN-NAME         PIC  X(20)  VALUE SPACE.     DTSBR415
00290          10  FILLER                  PIC  X(105) VALUE SPACE.     DTSBR415
00291                                                                   DTSBR415
00292      05  STMT-EXAMINER-LINE3.                                     DTSBR415
00293          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00294          10  FILLER                  PIC  X(01)  VALUE '('.       DTSBR415
00295          10  RPT-EXAMIN-AREA-CD      PIC  X(03)  VALUE SPACES.    DTSBR415
00296          10  FILLER                  PIC  X(02)  VALUE ') '.      DTSBR415
00297          10  RPT-EXAMIN-PREFIX       PIC  X(03)  VALUE SPACES.    DTSBR415
00298          10  FILLER                  PIC  X(01)  VALUE '-'.       DTSBR415
00299          10  RPT-EXAMIN-SUFFIX       PIC  X(04)  VALUE SPACES.    DTSBR415
00300          10  FILLER                  PIC  X(105) VALUE SPACE.     DTSBR415
00301                                                                   DTSBR415
00302      05  FNOTE1.                                                  DTSBR415
00303          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00304          10  FILLER                  PIC  X(31)  VALUE            DTSBR415
00305            '(a) = estimated report on file'.                      DTSBR415
00306                                                                   DTSBR415
00307      05  FNOTE2.                                                  DTSBR415
00308          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00309          10  FILLER                  PIC  X(31)  VALUE            DTSBR415
00310            '(b) = report missing          '.                      DTSBR415
00311                                                                   DTSBR415
00312      05  FNOTE3.                                                  DTSBR415
00313          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00314          10  FILLER                  PIC  X(31)  VALUE            DTSBR415
00315            '(c) = annual report           '.                      DTSBR415
00316                                                                   DTSBR415
00317      05  FNOTE4.                                                  DTSBR415
00318          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR415
00319          10  FILLER                  PIC  X(31)  VALUE            DTSBR415
00320            '(d) = appeal pending          '.                      DTSBR415
00321                                                                   DTSBR415
00322      05  FNOTE-MISSING-RPT.                                       DTSBR415
00323          10  FILLER                  PIC  X(33)  VALUE SPACE.     DTSBR415
00324          10  FILLER                  PIC  X(57)  VALUE            DTSBR415
00325       'Balance Due does not include charges for missing reports'. DTSBR415
00326                                                                   DTSBR415
00327      EJECT                                                        DTSBR415
00328  01  L001-LINK-AREA.                                              DTSBR415
00329  ++INCLUDE DTSIL001                                               DTSBR415
00330      EJECT                                                        DTSBR415
00331  01  L082-LINK-AREA.                                              DTSBR415
00332  ++INCLUDE DTSIL082                                               DTSBR415
00333      EJECT                                                        DTSBR415
00334  01  L071-LINK-AREA.                                              DTSBR415
00335  ++INCLUDE DTSIL071                                               DTSBR415
00336      EJECT                                                        DTSBR415
00337  LINKAGE SECTION.                                                 DTSBR415
00338      SKIP3                                                        DTSBR415
00339  01  LRCM-LINK-AREA.                                              DTSBR415
00340  ++INCLUDE DTSILRCM                                               DTSBR415
00341      EJECT                                                        DTSBR415
00342  01  R415-REC.                                                    DTSBR415
00343  ++INCLUDE DTSIR415                                               DTSBR415
00344      EJECT                                                        DTSBR415
00345  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR415
00346                           R415-REC.                               DTSBR415
00347      SKIP2                                                        DTSBR415
00348      IF FIRST-TIME-IND = 'Y'                                      DTSBR415
00349          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR415
00350          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR415
00351                                                                   DTSBR415
00352      IF LRCM-EOR-88                                               DTSBR415
00353          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR415
00354      ELSE                                                         DTSBR415
00355          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR415
00356      SKIP2                                                        DTSBR415
00357      GOBACK.                                                      DTSBR415
00358      EJECT                                                        DTSBR415
00359  I1000-INITIATE.                                                  DTSBR415
00360      OPEN OUTPUT PRT-FILE1.                                       DTSBR415
00361                                                                   DTSBR415
00362      MOVE +0 TO PRT-FILE1-PAGE-CNT.                               DTSBR415
00363                                                                   DTSBR415
00364      MOVE 0      TO STMT-EMP-NO                                   DTSBR415
00365                     STUB-EMP-NO                                   DTSBR415
00366                     STUB-EMP-FEIN                                 DTSBR415
00367                     STMT-EMP-FEIN.                                DTSBR415
00368      MOVE SPACES TO STMT-STMT-DATE                                DTSBR415
00369                     STMT-COMP-DATE.                               DTSBR415
00370                                                                   DTSBR415
00371      MOVE XEROX-8X11-LINE    TO WS-REC.                           DTSBR415
00372      WRITE PRT-REC1 FROM WS-REC                                   DTSBR415
00373            AFTER ADVANCING PAGE.                                  DTSBR415
00374                                                                   DTSBR415
00375      MOVE XEROX-CNTL-LINE2   TO WS-REC.                           DTSBR415
00376      WRITE PRT-REC1 FROM WS-REC                                   DTSBR415
00377            AFTER ADVANCING 1.                                     DTSBR415
00378                                                                   DTSBR415
00379  I1000-EXIT.                                                      DTSBR415
00380      EXIT.                                                        DTSBR415
00381      SKIP3                                                        DTSBR415
00382  P1000-PROCESS.                                                   DTSBR415
00383                                                                   DTSBR415
00384      SET PRINT-FNOTE1-NO-88  TO TRUE.                             DTSBR415
00385      SET PRINT-FNOTE2-NO-88  TO TRUE.                             DTSBR415
00386      SET PRINT-FNOTE3-NO-88  TO TRUE.                             DTSBR415
00387      SET PRINT-FNOTE4-NO-88  TO TRUE.                             DTSBR415
00388      MOVE SPACES             TO WS-REC.                           DTSBR415
00389                                                                   DTSBR415
00390      MOVE +0              TO WS-TOTAL-CONTRIB-AMT                 DTSBR415
00391                              WS-TOTAL-PENALTY-AMT                 DTSBR415
00392                              WS-TOTAL-INTEREST-AMT                DTSBR415
00393                              WS-TOTAL-SURCHRG-AMT                 DTSBR415
00394                              WS-STUB-BALANCE-AMT                  DTSBR415
00395                              WS-TOTAL-BALANCE-AMT.                DTSBR415
00396                                                                   DTSBR415
00397      PERFORM P1100-STUB-STMT-TOTALS THRU P1100-EXIT               DTSBR415
00398           VARYING R415-QTR-IDX FROM 1 BY 1                        DTSBR415
00399           UNTIL R415-QTR-IDX >  R415-QTR-CNT.                     DTSBR415
00400                                                                   DTSBR415
00401      MOVE R415-EMP-NO        TO STUB-EMP-NO                       DTSBR415
00402                                 STMT-EMP-NO.                      DTSBR415
00403      MOVE R415-EMP-FEIN      TO STUB-EMP-FEIN                     DTSBR415
00404                                 STMT-EMP-FEIN.                    DTSBR415
00405      MOVE WS-STUB-BALANCE-AMT   TO STUB-AMT.                      DTSBR415
00406                                                                   DTSBR415
00407      MOVE R415-STMT-DATE     TO L001-FED-8-DATE-9.                DTSBR415
00408      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR415
00409      MOVE L001-SLASH-8-DATE  TO STUB-STMT-DATE                    DTSBR415
00410                                 STMT-STMT-DATE.                   DTSBR415
00411                                                                   DTSBR415
00412      MOVE R415-COMP-DATE     TO L001-FED-8-DATE-9.                DTSBR415
00413      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR415
00414      IF L001-INVALID-DATE                                         DTSBR415
00415          MOVE SPACES            TO STUB-COMP-DATE                 DTSBR415
00416                                    STMT-COMP-DATE                 DTSBR415
00417      ELSE                                                         DTSBR415
00418          MOVE L001-SLASH-8-DATE TO STUB-COMP-DATE                 DTSBR415
00419                                    STMT-COMP-DATE.                DTSBR415
00420                                                                   DTSBR415
00421      MOVE R415-FMT-LINE (1)     TO STUB-ADDR-LINE1                DTSBR415
00422                                    MAIL-ADDR-LINE1                DTSBR415
00423                                    WS-EMP-NAME.                   DTSBR415
00424                                                                   DTSBR415
00425      MOVE R415-FMT-LINE (2)     TO STUB-ADDR-LINE2                DTSBR415
00426                                    MAIL-ADDR-LINE2.               DTSBR415
00427                                                                   DTSBR415
00428      MOVE R415-FMT-LINE (3)     TO STUB-ADDR-LINE3                DTSBR415
00429                                    MAIL-ADDR-LINE3.               DTSBR415
00430                                                                   DTSBR415
00431      MOVE R415-FMT-LINE (4)     TO STUB-ADDR-LINE4                DTSBR415
00432                                    MAIL-ADDR-LINE4.               DTSBR415
00433                                                                   DTSBR415
00434      MOVE R415-FMT-LINE (5)     TO STUB-ADDR-LINE5                DTSBR415
00435                                    MAIL-ADDR-LINE5.               DTSBR415
00436                                                                   DTSBR415
00437      MOVE WRK-FIRST-4           TO STMT-NAME-CHEK.                DTSBR415
00438                                                                   DTSBR415
00439      MOVE R415-LAST-ACCT-UPDATE-DATE TO L001-FED-8-DATE-9.        DTSBR415
00440      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBR415
00441      MOVE L001-SLASH-8-DATE TO STMT-LAST-ACCT-UPDATE-DATE.        DTSBR415
00442                                                                   DTSBR415
00443      PERFORM P1200-PRINT-STUB-MAILR   THRU P1200-EXIT.            DTSBR415
00444                                                                   DTSBR415
00445      MOVE 14                    TO LINE-CNT.                      DTSBR415
00446                                                                   DTSBR415
00447      SET AMT-DISPLAYED-NO-88    TO TRUE.                          DTSBR415
00448      SET SUM-PRIOR-QTRS-NO-88   TO TRUE.                          DTSBR415
00449      SET PRINT-PRIOR-QTRS-NO-88 TO TRUE.                          DTSBR415
00450                                                                   DTSBR415
00451      MOVE 0                     TO WS-QTR-PLUS20                  DTSBR415
00452                                    WS-QTR-CNT.                    DTSBR415
00453                                                                   DTSBR415
00454      PERFORM P1300-DISPLAY-QTR  THRU P1300-EXIT                   DTSBR415
00455          VARYING R415-QTR-IDX FROM 1 BY 1                         DTSBR415
00456          UNTIL R415-QTR-IDX >  R415-QTR-CNT.                      DTSBR415
00457                                                                   DTSBR415
00458      MOVE SPACES                 TO WS-REC                        DTSBR415
00459                                                                   DTSBR415
00460      IF  AMT-DISPLAYED-YES-88                                     DTSBR415
00461          MOVE WS-TOTAL-CONTRIB-AMT  TO TOTAL-CONTRIB-AMT          DTSBR415
00462          MOVE WS-TOTAL-INTEREST-AMT TO TOTAL-INTEREST-AMT         DTSBR415
00463          MOVE WS-TOTAL-PENALTY-AMT  TO TOTAL-PENALTY-AMT          DTSBR415
00464          MOVE WS-TOTAL-SURCHRG-AMT  TO TOTAL-SURCHRG-AMT          DTSBR415
00465          MOVE WS-TOTAL-BALANCE-AMT  TO TOTAL-BALANCE-AMT.         DTSBR415
00466                                                                   DTSBR415
00467 **nh COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT.                   DTSBR415
00468      COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT - 2.               DTSBR415
00469 **nh                                                              DTSBR415
00470      if ws-total-balance-amt = +0                                 DTSBR415
00471         move 0.00   to TOTAL-BALANCE-AMT                          DTSBR415
00472      end-if.                                                      DTSBR415
00473 **nh                                                              DTSBR415
00474                                                                   DTSBR415
00475      IF  AMT-DISPLAYED-YES-88                                     DTSBR415
00476          MOVE STMT-TOTAL-LINE TO WS-REC                           DTSBR415
00477      ELSE                                                         DTSBR415
00478          MOVE SPACES          TO WS-REC.                          DTSBR415
00479                                                                   DTSBR415
00480      WRITE PRT-REC1 FROM WS-REC                                   DTSBR415
00481            AFTER ADVANCING WRK-CTR LINES.                         DTSBR415
00482                                                                   DTSBR415
00483      MOVE SPACES TO WS-REC                                        DTSBR415
00484                                                                   DTSBR415
00485      MOVE R415-OP-ID TO L082-OP-ID                                DTSBR415
00486      PERFORM S082-OP-ID-INFO THRU S082-EXIT.                      DTSBR415
00487                                                                   DTSBR415
00488      MOVE L082-NAME TO L071-NAM                                   DTSBR415
00489      MOVE 2 TO L071-NAME-FORMAT                                   DTSBR415
00490      PERFORM S071-DESLASH-NAME THRU S071-EXIT.                    DTSBR415
00491                                                                   DTSBR415
00492      MOVE L071-NAM TO RPT-EXAMIN-NAME                             DTSBR415
00493      MOVE L082-UNIT-NAME TO RPT-EXAMIN-UNIT                       DTSBR415
00494                                                                   DTSBR415
00495      MOVE L082-VOICE-1-AREA-CD TO RPT-EXAMIN-AREA-CD              DTSBR415
00496      MOVE L082-VOICE-1-PREFIX  TO RPT-EXAMIN-PREFIX               DTSBR415
00497      MOVE L082-VOICE-1-SUFFIX  TO RPT-EXAMIN-SUFFIX               DTSBR415
00498                                                                   DTSBR415
00499       IF PRINT-FNOTE2-YES-88                                      DTSBR415
00500          WRITE PRT-REC1 FROM FNOTE-MISSING-RPT                    DTSBR415
00501             AFTER ADVANCING 2 LINES                               DTSBR415
00502       ELSE                                                        DTSBR415
00503          WRITE PRT-REC1 FROM WS-REC                               DTSBR415
00504             AFTER ADVANCING 2 LINES.                              DTSBR415
00505                                                                   DTSBR415
00506 *    WRITE PRT-REC1 FROM STMT-EXAMINER-CALLBACK                   DTSBR415
00507 *          AFTER ADVANCING 3 LINES.                               DTSBR415
00508      WRITE PRT-REC1 FROM STMT-EXAMINER-LINE1                      DTSBR415
00509            AFTER ADVANCING 5 LINES.                               DTSBR415
00510      WRITE PRT-REC1 FROM STMT-EXAMINER-LINE2                      DTSBR415
00511            AFTER ADVANCING 1 LINES.                               DTSBR415
00512      WRITE PRT-REC1 FROM STMT-EXAMINER-LINE3                      DTSBR415
00513            AFTER ADVANCING 1 LINES.                               DTSBR415
00514                                                                   DTSBR415
00515                                                                   DTSBR415
00516      WRITE PRT-REC1 FROM WS-REC                                   DTSBR415
00517            AFTER ADVANCING 3 LINES.                               DTSBR415
00518                                                                   DTSBR415
00519       IF PRINT-FNOTE1-YES-88                                      DTSBR415
00520          WRITE PRT-REC1 FROM FNOTE1                               DTSBR415
00521             AFTER ADVANCING 1 LINES.                              DTSBR415
00522                                                                   DTSBR415
00523       IF PRINT-FNOTE2-YES-88                                      DTSBR415
00524          WRITE PRT-REC1 FROM FNOTE2                               DTSBR415
00525             AFTER ADVANCING 1 LINES.                              DTSBR415
00526                                                                   DTSBR415
00527       IF PRINT-FNOTE3-YES-88                                      DTSBR415
00528          WRITE PRT-REC1 FROM FNOTE3                               DTSBR415
00529             AFTER ADVANCING 1 LINES.                              DTSBR415
00530                                                                   DTSBR415
00531       IF PRINT-FNOTE4-YES-88                                      DTSBR415
00532          WRITE PRT-REC1 FROM FNOTE4                               DTSBR415
00533             AFTER ADVANCING 1 LINES.                              DTSBR415
00534                                                                   DTSBR415
00535                                                                   DTSBR415
00536      MOVE SPACES TO WS-XREC                                       DTSBR415
00537                                                                   DTSBR415
00538      PERFORM P1500-PRINT-MAILR-ADDR THRU P1500-EXIT.              DTSBR415
00539                                                                   DTSBR415
00540  P1000-EXIT.                                                      DTSBR415
00541      EXIT.                                                        DTSBR415
00542      SKIP3                                                        DTSBR415
00543                                                                   DTSBR415
00544  P1100-STUB-STMT-TOTALS.                                          DTSBR415
00545                                                                   DTSBR415
00546      IF R415-BALANCE-AMT (R415-QTR-IDX) > ZEROS                   DTSBR415
00547         ADD R415-BALANCE-AMT (R415-QTR-IDX)                       DTSBR415
00548          TO WS-STUB-BALANCE-AMT.                                  DTSBR415
00549 **nh zero balance statements                                      DTSBR415
00550      IF R415-BALANCE-AMT (R415-QTR-IDX) = ZEROS                   DTSBR415
00551         ADD R415-BALANCE-AMT (R415-QTR-IDX)                       DTSBR415
00552          TO WS-STUB-BALANCE-AMT.                                  DTSBR415
00553 **nh zero balance statements                                      DTSBR415
00554  P1100-EXIT.                                                      DTSBR415
00555      EXIT.                                                        DTSBR415
00556      SKIP3                                                        DTSBR415
00557                                                                   DTSBR415
00558  P1200-PRINT-STUB-MAILR.                                          DTSBR415
00559                                                                   DTSBR415
00560         ADD +1 TO PRT-FILE1-PAGE-CNT                              DTSBR415
00561         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING PAGE           DTSBR415
00562         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 6 LINES        DTSBR415
00563         MOVE   STUB-LINE   TO WS-REC                              DTSBR415
00564         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00565         MOVE   ADDR01 TO WS-REC                                   DTSBR415
00566         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00567         MOVE   ADDR02 TO WS-REC                                   DTSBR415
00568         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00569         MOVE   ADDR03 TO WS-REC                                   DTSBR415
00570         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00571         MOVE   ADDR04 TO WS-REC                                   DTSBR415
00572         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00573         MOVE   ADDR05 TO WS-REC                                   DTSBR415
00574         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR415
00575         MOVE STMT-LINE1 TO WS-REC                                 DTSBR415
00576         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 4 LINES        DTSBR415
00577         MOVE STMT-LINE2 TO WS-REC                                 DTSBR415
00578 **nh    WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 5 LINES.       DTSBR415
00579         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 7 LINES.       DTSBR415
00580         MOVE SPACES TO WS-REC.                                    DTSBR415
00581         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 3 LINES.       DTSBR415
00582  P1200-EXIT.                                                      DTSBR415
00583      EXIT.                                                        DTSBR415
00584      SKIP3                                                        DTSBR415
00585  P1300-DISPLAY-QTR.                                               DTSBR415
00586                                                                   DTSBR415
00587      MOVE SPACES TO STMT-QTR-DETAIL                               DTSBR415
00588                     WS-QTR-FNOTE.                                 DTSBR415
00589      IF LRCM-PICKUP-YRQ = R415-QTR (R415-QTR-IDX)                 DTSBR415
00590         MOVE 'PRIOR TO '          TO QTR-DET-YR                   DTSBR415
00591         MOVE  '1995/4'            TO QTR-DET-FNOTE                DTSBR415
00592      ELSE                                                         DTSBR415
00593         MOVE R415-QTR (R415-QTR-IDX) TO WS-WRK-QTR                DTSBR415
00594         IF R415-ANN-FILER-YES-88 (R415-QTR-IDX)                   DTSBR415
00595            MOVE SPACES            TO WRK-PRT-Q                    DTSBR415
00596            MOVE WRK-QTR-YR        TO WRK-PRT-YR                   DTSBR415
00597            MOVE SPACES            TO WRK-PRT-SLASH                DTSBR415
00598            MOVE WS-PRT-QTR        TO QTR-DET-YR1                  DTSBR415
00599            MOVE SPACES            TO QTR-DET-YR2                  DTSBR415
00600         ELSE                                                      DTSBR415
00601            MOVE WRK-QTR-Q         TO WRK-PRT-Q                    DTSBR415
00602            MOVE WRK-QTR-YR        TO WRK-PRT-YR                   DTSBR415
00603            MOVE '/'               TO WRK-PRT-SLASH                DTSBR415
00604            MOVE WS-PRT-QTR        TO QTR-DET-YR1                  DTSBR415
00605            MOVE SPACES            TO QTR-DET-YR2.                 DTSBR415
00606                                                                   DTSBR415
00607 **   IF R415-BALANCE-AMT (R415-QTR-IDX) > +0                      DTSBR415
00608      IF R415-BALANCE-AMT (R415-QTR-IDX) >= +0                     DTSBR415
00609          SET AMT-DISPLAYED-YES-88 TO TRUE                         DTSBR415
00610          MOVE R415-CONTRIB-AMT (R415-QTR-IDX)                     DTSBR415
00611            TO QTR-DET-CONTRIB-AMT                                 DTSBR415
00612          ADD R415-CONTRIB-AMT (R415-QTR-IDX)                      DTSBR415
00613            TO WS-TOTAL-CONTRIB-AMT                                DTSBR415
00614          ADD R415-INTEREST-AMT (R415-QTR-IDX)                     DTSBR415
00615            TO  WS-TOTAL-INTEREST-AMT                              DTSBR415
00616          MOVE R415-INTEREST-AMT (R415-QTR-IDX)                    DTSBR415
00617            TO QTR-DET-INTEREST-AMT                                DTSBR415
00618          ADD R415-PENALTY-AMT (R415-QTR-IDX)                      DTSBR415
00619            TO WS-TOTAL-PENALTY-AMT                                DTSBR415
00620          MOVE R415-PENALTY-AMT (R415-QTR-IDX)                     DTSBR415
00621            TO QTR-DET-PENALTY-AMT                                 DTSBR415
00622          ADD R415-SURCHRG-AMT (R415-QTR-IDX)                      DTSBR415
00623            TO WS-TOTAL-SURCHRG-AMT                                DTSBR415
00624          MOVE R415-SURCHRG-AMT (R415-QTR-IDX)                     DTSBR415
00625            TO QTR-DET-SURCHRG-AMT                                 DTSBR415
00626           ADD R415-BALANCE-AMT (R415-QTR-IDX)                     DTSBR415
00627            TO WS-TOTAL-BALANCE-AMT.                               DTSBR415
00628          MOVE R415-BALANCE-AMT (R415-QTR-IDX)                     DTSBR415
00629            TO QTR-DET-BALANCE-AMT.                                DTSBR415
00630                                                                   DTSBR415
00631      IF LRCM-PICKUP-YRQ = R415-QTR (R415-QTR-IDX)                 DTSBR415
00632         SET R415-ANN-FILER-NO-88 (R415-QTR-IDX)   TO TRUE         DTSBR415
00633         SET R415-RPT-MISSING-NO-88 (R415-QTR-IDX) TO TRUE         DTSBR415
00634         SET R415-QTR-EST-RPT-NO-88 (R415-QTR-IDX) TO TRUE         DTSBR415
00635         SET R415-QTR-APPEAL-NO-88  (R415-QTR-IDX) TO TRUE.        DTSBR415
00636                                                                   DTSBR415
00637      IF R415-QTR-APPEAL-YES-88 (R415-QTR-IDX)                     DTSBR415
00638         SET PRINT-FNOTE4-YES-88 TO TRUE                           DTSBR415
00639         MOVE '(d)'    TO  WFNOTE1                                 DTSBR415
00640      ELSE                                                         DTSBR415
00641      IF R415-QTR-EST-RPT-YES-88 (R415-QTR-IDX)                    DTSBR415
00642         SET PRINT-FNOTE1-YES-88 TO TRUE                           DTSBR415
00643         MOVE '(a)'    TO  WFNOTE1                                 DTSBR415
00644      ELSE                                                         DTSBR415
00645      IF R415-RPT-MISSING-YES-88 (R415-QTR-IDX)                    DTSBR415
00646         SET PRINT-FNOTE2-YES-88 TO TRUE                           DTSBR415
00647         MOVE '(b)'    TO  WFNOTE1.                                DTSBR415
00648                                                                   DTSBR415
00649      IF R415-ANN-FILER-YES-88 (R415-QTR-IDX)                      DTSBR415
00650         SET PRINT-FNOTE3-YES-88 TO TRUE                           DTSBR415
00651         IF WFNOTE1 = SPACES                                       DTSBR415
00652            MOVE '(c)'    TO  WFNOTE1                              DTSBR415
00653         ELSE                                                      DTSBR415
00654            MOVE '(c)'    TO  WFNOTE2.                             DTSBR415
00655                                                                   DTSBR415
00656                                                                   DTSBR415
00657      IF WS-QTR-FNOTE > SPACES                                     DTSBR415
00658         MOVE WS-QTR-FNOTE         TO QTR-DET-FNOTE.               DTSBR415
00659                                                                   DTSBR415
00660      IF R415-QTR-CNT > 10  AND                                    DTSBR415
00661         PRINT-PRIOR-QTRS-NO-88                                    DTSBR415
00662         PERFORM P1400-SUM-PRIOR-QTRS THRU P1400-EXIT              DTSBR415
00663       IF PRINT-PRIOR-QTRS-NO-88                                   DTSBR415
00664          GO TO P1300-EXIT.                                        DTSBR415
00665                                                                   DTSBR415
00666      ADD  1                   TO LINE-CNT.                        DTSBR415
00667      MOVE STMT-QTR-DETAIL     TO WS-REC.                          DTSBR415
00668      WRITE PRT-REC1 FROM WS-REC AFTER 1.                          DTSBR415
00669                                                                   DTSBR415
00670  P1300-EXIT.                                                      DTSBR415
00671      EXIT.                                                        DTSBR415
00672                                                                   DTSBR415
00673  P1400-SUM-PRIOR-QTRS.                                            DTSBR415
00674        IF SUM-PRIOR-QTRS-NO-88                                    DTSBR415
00675           MOVE 1 TO WS-QTR-PLUS20                                 DTSBR415
00676           COMPUTE WS-QTR-CNT =                                    DTSBR415
00677                R415-QTR-CNT - MAX-QTR-PRINT                       DTSBR415
00678           SET SUM-PRIOR-QTRS-YES-88 TO TRUE.                      DTSBR415
00679                                                                   DTSBR415
00680      IF WS-QTR-CNT = WS-QTR-PLUS20                                DTSBR415
00681         NEXT SENTENCE                                             DTSBR415
00682      ELSE                                                         DTSBR415
00683         ADD 1 TO WS-QTR-PLUS20                                    DTSBR415
00684         GO TO P1400-EXIT.                                         DTSBR415
00685                                                                   DTSBR415
00686      MOVE WS-TOTAL-BALANCE-AMT    TO QTR-DET-BALANCE-AMT          DTSBR415
00687      MOVE WS-TOTAL-PENALTY-AMT    TO QTR-DET-PENALTY-AMT          DTSBR415
00688      MOVE WS-TOTAL-CONTRIB-AMT    TO QTR-DET-CONTRIB-AMT          DTSBR415
00689      MOVE WS-TOTAL-INTEREST-AMT   TO QTR-DET-INTEREST-AMT         DTSBR415
00690      MOVE WS-TOTAL-SURCHRG-AMT   TO QTR-DET-SURCHRG-AMT           DTSBR415
00691      SET AMT-DISPLAYED-YES-88     TO TRUE                         DTSBR415
00692      SET WS-QTR-IDX               TO R415-QTR-IDX                 DTSBR415
00693      ADD 1                        TO WS-QTR-IDX                   DTSBR415
00694      MOVE R415-QTR (WS-QTR-IDX)   TO WS-WRK-QTR                   DTSBR415
00695      MOVE WRK-QTR-Q               TO WRK-PRT-Q                    DTSBR415
00696      MOVE WRK-QTR-YR              TO WRK-PRT-YR                   DTSBR415
00697      MOVE '/'                     TO WRK-PRT-SLASH                DTSBR415
00698      MOVE WS-PRT-QTR              TO QTR-DET-FNOTE1               DTSBR415
00699      MOVE SPACES                  TO QTR-DET-FNOTE2               DTSBR415
00700      MOVE 'PRIOR TO '             TO QTR-DET-YR                   DTSBR415
00701      SET PRINT-PRIOR-QTRS-YES-88 TO TRUE.                         DTSBR415
00702                                                                   DTSBR415
00703  P1400-EXIT.                                                      DTSBR415
00704      EXIT.                                                        DTSBR415
00705      SKIP3                                                        DTSBR415
00706  P1500-PRINT-MAILR-ADDR.                                          DTSBR415
00707                                                                   DTSBR415
00708         WRITE PRT-REC1 FROM WS-XREC AFTER ADVANCING PAGE          DTSBR415
00709         MOVE LINE-ADDR-17   TO WS-XREC                            DTSBR415
00710         WRITE PRT-REC1 FROM WS-XREC                               DTSBR415
00711                 AFTER ADVANCING 17 LINES                          DTSBR415
00712         MOVE LINE-ADDR-18   TO WS-XREC                            DTSBR415
00713         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR415
00714         MOVE LINE-ADDR-19   TO WS-XREC                            DTSBR415
00715         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR415
00716         MOVE LINE-ADDR-20   TO WS-XREC                            DTSBR415
00717         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR415
00718         MOVE LINE-ADDR-21   TO WS-XREC                            DTSBR415
00719         WRITE PRT-REC1 FROM WS-XREC AFTER 1.                      DTSBR415
00720  P1500-EXIT.                                                      DTSBR415
00721      EXIT.                                                        DTSBR415
00722      SKIP3                                                        DTSBR415
00723  T1000-TERMINATE.                                                 DTSBR415
00724      CLOSE PRT-FILE1.                                             DTSBR415
00725                                                                   DTSBR415
00726      DISPLAY '***'.                                               DTSBR415
00727                                                                   DTSBR415
00728      DISPLAY '***  DTSBR415 (STATEMENT OF ACCOUNTS ) '            DTSBR415
00729              'TERMINATION STATISTICS'.                            DTSBR415
00730                                                                   DTSBR415
00731      DISPLAY '***'.                                               DTSBR415
00732                                                                   DTSBR415
00733      MOVE PRT-FILE1-PAGE-CNT TO DISPLAY-CNT-Z.                    DTSBR415
00734      DISPLAY '***  '                                              DTSBR415
00735              DISPLAY-CNT                                          DTSBR415
00736              ' -8X11 PAGE STATEMENTS PRINTED'.                    DTSBR415
00737                                                                   DTSBR415
00738      DISPLAY '***'.                                               DTSBR415
00739                                                                   DTSBR415
00740                                                                   DTSBR415
00741      DISPLAY '***END JOB****'.                                    DTSBR415
00742  T1000-EXIT.                                                      DTSBR415
00743      EXIT.                                                        DTSBR415
00744      EJECT                                                        DTSBR415
00745  S001-FROM-FED-8.                                                 DTSBR415
00746      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR415
00747      GO TO S001-DATE.                                             DTSBR415
00748                                                                   DTSBR415
00749  S001-DATE.                                                       DTSBR415
00750      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR415
00751  S001-EXIT.                                                       DTSBR415
00752      EXIT.                                                        DTSBR415
00753      SKIP3                                                        DTSBR415
00754  S071-DESLASH-NAME.                                               DTSBR415
00755      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR415
00756  S071-EXIT.                                                       DTSBR415
00757      EXIT.                                                        DTSBR415
00758  S082-OP-ID-INFO.                                                 DTSBR415
00759      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR415
00760  S082-EXIT.                                                       DTSBR415
00761      EXIT.                                                        DTSBR415
00762      SKIP3                                                        DTSBR415
00763  S999-ABEND.                                                      DTSBR415
00764      DISPLAY ABEND-MSG.                                           DTSBR415
00765                                                                   DTSBR415
00766      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR415
00767  S999-EXIT.                                                       DTSBR415
00768      EXIT.                                                        DTSBR415
