00001  IDENTIFICATION DIVISION.                                         04/06/17
00002  PROGRAM-ID.             DTSBR414.                                DTSBR414
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV181
00004  DATE-WRITTEN.           NOV 2002.                                DTSBR414
00005  DATE-COMPILED.                                                   DTSBR414
00006      SKIP3                                                        DTSBR414
00007 *****                                                             DTSBR414
00008 *                                                                 DTSBR414
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR414
00010 *                       DTSBE414 WHICH CREATES DTSIR414 RECORDS   DTSBR414
00011 *                       DTSBD800 CALLS                            DTSBR414
00012 *                       DTSBR414 WHICH READS DTSIR414 RECORDS     DTSBR414
00013 *                                                                 DTSBR414
00014 *    FUNCTION:  DEBIT MEMO PRINT.                                 DTSBR414
00015 *                                                                 DTSBR414
00016 *    MODIFICATION HISTORY:                                        DTSBR414
00017 *                                                                 DTSBR414
00018 * 11-12-02 MODIFIED TO REFORMAT BILL USING NEW FORM.              DTSBR414
00019 *                                                                 DTSBR414
00020 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR414
00021 * 03-08-06 MODIFIED TO include sur charge on a seperate column    DTSBR414
00022 *          on monthly bill.                                       DTSBR414
00023 *          REFERENCE RFP # dc sur charge         PROGRAMMER: ZL1  DTSBR414
00024 *                                                                 DTSBR414
00025 * 06-10-14 MODIFIED TO print all employers who are delinquent     DTSBR414
00026 *          REFERENCE RFP per patrick holmes      PROGRAMMER: nh1  DTSBR414
00027 *                                                                 DTSBR414
00028 * 04-06-17 MODIFIED program to adjust print lines on bill due to  DTSBR414
00029 *          text changes to T414r1                PROGRAMMER: nh1  DTSBR414
00030 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR414
00031 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR414
00032 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR414
00033 *                                                                 DTSBR414
00034 *                                                                 DTSBR414
00035 *  DESCRIPTION:                                                   DTSBR414
00036 *                                                                 DTSBR414
00037 *      THIS MODULE PRINTS DEBIT MEMOS.                            DTSBR414
00038 *                                                                 DTSBR414
00039 *      IF DTSBR414 IS MODIFIED, THERE IS A STRONG PROBABILITY     DTSBR414
00040 *      THAT CORRESPONDING MODIFICATIONS MUST BE MADE TO           DTSBR414
00041 *      DTSCS46 (ON-LINE STATEMENT OF ACCOUNT PRINT).              DTSBR414
00042 *                                                                 DTSBR414
00043 *                                                                 DTSBR414
00044 *  PROCESSING:                                                    DTSBR414
00045 *                                                                 DTSBR414
00046 *      DETAIL:                                                    DTSBR414
00047 *                                                                 DTSBR414
00048 *                                                                 DTSBR414
00049 *    RECORDS READ:                                                DTSBR414
00050 *                                                                 DTSBR414
00051 *        FOPR.                                                    DTSBR414
00052 *                                                                 DTSBR414
00053 *                                                                 DTSBR414
00054 *    PRINTED OUTPUTS:                                             DTSBR414
00055 *                                                                 DTSBR414
00056 *        414R1  STATEMENT OF ACCOUNT (DEBIT).                     DTSBR414
00057 *                                                                 DTSBR414
00058 *                                                                 DTSBR414
00059 *    RECORDS WRITTEN:                                             DTSBR414
00060 *                                                                 DTSBR414
00061 *        NONE.                                                    DTSBR414
00062 *                                                                 DTSBR414
00063 *                                                                 DTSBR414
00064 *    MODULES CALLED:                                              DTSBR414
00065 *                                                                 DTSBR414
00066 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBR414
00067 *                                                                 DTSBR414
00068 *****                                                             DTSBR414
00069      EJECT                                                        DTSBR414
00070  ENVIRONMENT DIVISION.                                            DTSBR414
00071      SKIP2                                                        DTSBR414
00072  INPUT-OUTPUT SECTION.                                            DTSBR414
00073                                                                   DTSBR414
00074  FILE-CONTROL.                                                    DTSBR414
00075      SELECT PRT-FILE1   ASSIGN TO RPT414R1.                       DTSBR414
00076      SELECT PRT-FILE2   ASSIGN TO RPT414R2.                       DTSBR414
00077      SELECT PRT-FILE4   ASSIGN TO RPT414R4.                       DTSBR414
00078      SELECT PRT-FILE6   ASSIGN TO RPT414R6.                       DTSBR414
00079      SKIP3                                                        DTSBR414
00080  DATA DIVISION.                                                   DTSBR414
00081      SKIP3                                                        DTSBR414
00082  FILE SECTION.                                                    DTSBR414
00083      SKIP3                                                        DTSBR414
00084  FD  PRT-FILE1                                                    DTSBR414
00085      LABEL RECORDS ARE STANDARD.                                  DTSBR414
00086  01  PRT-REC1.                                                    DTSBR414
00087      05  FILLER                      PIC  X(132).                 DTSBR414
00088      SKIP3                                                        DTSBR414
00089  FD  PRT-FILE2                                                    DTSBR414
00090      LABEL RECORDS ARE STANDARD.                                  DTSBR414
00091  01  PRT-REC2.                                                    DTSBR414
00092      05  FILLER                      PIC  X(132).                 DTSBR414
00093  FD  PRT-FILE4                                                    DTSBR414
00094      LABEL RECORDS ARE STANDARD.                                  DTSBR414
00095  01  PRT-REC4.                                                    DTSBR414
00096      05  FILLER                      PIC  X(132).                 DTSBR414
00097  FD  PRT-FILE6                                                    DTSBR414
00098      LABEL RECORDS ARE STANDARD.                                  DTSBR414
00099  01  PRT-REC6.                                                    DTSBR414
00100      05  FILLER                      PIC  X(132).                 DTSBR414
00101      SKIP3                                                        DTSBR414
00102  WORKING-STORAGE SECTION.                                         DTSBR414
001025 77  PAN-VALET PICTURE X(24) VALUE '181DTSBR414  04/06/17'.       DTSBR414
00103  77  PAN-VALET PICTURE X(24) VALUE '014DTSBR414  04/06/17'.       DTSBR414
00104  77  PAN-VALET PICTURE X(24) VALUE '179DTSBR414  07/10/14'.       DTSBR414
00105  77  PAN-VALET PICTURE X(24) VALUE '039DTSBR414  07/08/14'.       DTSBR414
00106      SKIP3                                                        DTSBR414
00107  01  WRK-AREA-CONSTANTS.                                          DTSBR414
00108      05  WRK-ABEND-CD                PIC S9(04)  COMP             DTSBR414
00109                                                      VALUE +414.  DTSBR414
00110                                                                   DTSBR414
00111      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR414
00112                                                                   DTSBR414
00113      05  TOT-LINE-CNT                PIC S9(04)  COMP  VALUE +47. DTSBR414
00114      05  MAX-QTR-PRINT               PIC S9(04)  COMP  VALUE +6.  DTSBR414
00115      05  LINE-CNT                    PIC S9(04)  COMP  VALUE +0.  DTSBR414
00116      05  WS-REPT-CNT                 PIC S9(05)  COMP  VALUE +0.  DTSBR414
00117      05  REC2-LINE-CNT               PIC S9(04)  COMP  VALUE +55. DTSBR414
00118      05  REC2-PAGE-CNT               PIC S9(04)  COMP  VALUE +0.  DTSBR414
00119      05  WS-FLD-REP-ID               PIC  X(02)  VALUE SPACES.    DTSBR414
00120      05  WS-qtr4-FLD-REP-ID           PIC  X(02)  VALUE SPACES.   DTSBR414
00121      05  REC3-LINE-CNT               PIC S9(04)  COMP  VALUE +55. DTSBR414
00122      05  REC3-PAGE-CNT               PIC S9(04)  COMP  VALUE +0.  DTSBR414
00123                                                                   DTSBR414
00124      05  ABEND-MSG                   PIC  X(60)  VALUE SPACE.     DTSBR414
00125      05  BLKLINE                     PIC  X(133) VALUE SPACE.     DTSBR414
00126                                                                   DTSBR414
00127      05  PRT-FILE1-PAGE-CNT          PIC S9(07)  COMP-3 VALUE +0. DTSBR414
00128                                                                   DTSBR414
00129      05  DISPLAY-CNT                 PIC  X(09)  VALUE ZEROS.     DTSBR414
00130      05  DISPLAY-CNT-Z REDEFINES DISPLAY-CNT                      DTSBR414
00131                                      PIC  Z,ZZZ,ZZ9.              DTSBR414
00132      05  WS-WRK-QTR                  PIC  9(05)  VALUE ZEROS.     DTSBR414
00133      05  WS-WRK-QTR-X REDEFINES WS-WRK-QTR.                       DTSBR414
00134          10  WRK-QTR-YR              PIC  9(04).                  DTSBR414
00135          10  WRK-QTR-Q               PIC  9(01).                  DTSBR414
00136                                                                   DTSBR414
00137      05  WS-PRT-QTR.                                              DTSBR414
00138          10  WRK-PRT-YR              PIC  X(04)  VALUE SPACES.    DTSBR414
00139          10  WRK-PRT-SLASH           PIC  X(01)  VALUE SPACES.    DTSBR414
00140          10  WRK-PRT-Q               PIC  X(01)  VALUE SPACES.    DTSBR414
00141                                                                   DTSBR414
00142      05  WS-EMP-NAME.                                             DTSBR414
00143          10  WRK-FIRST-4             PIC  X(04)  VALUE SPACES.    DTSBR414
00144          10  WRK-LAST-36             PIC  X(36)  VALUE SPACES.    DTSBR414
00145                                                                   DTSBR414
00146      SKIP3                                                        DTSBR414
00147      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR414
00148      05  WS-XREC                     PIC  X(132)  VALUE SPACES.   DTSBR414
00149                                                                   DTSBR414
00150      05  AMT-DISPLAYED-IND           PIC  X(01).                  DTSBR414
00151          88  AMT-DISPLAYED-NO-88            VALUE 'N'.            DTSBR414
00152          88  AMT-DISPLAYED-YES-88           VALUE 'Y'.            DTSBR414
00153                                                                   DTSBR414
00154      05  PRINT-PRIOR-QTRS-IND        PIC  X(01).                  DTSBR414
00155          88  PRINT-PRIOR-QTRS-NO-88         VALUE 'N'.            DTSBR414
00156          88  PRINT-PRIOR-QTRS-YES-88        VALUE 'Y'.            DTSBR414
00157                                                                   DTSBR414
00158      05  PRINT-STMT-IND              PIC  X(01).                  DTSBR414
00159          88  PRINT-STMT-NO-88               VALUE 'N'.            DTSBR414
00160          88  PRINT-STMT-YES-88              VALUE 'Y'.            DTSBR414
00161                                                                   DTSBR414
00162      05  PRINT-BILL-IND              PIC  X(01).                  DTSBR414
00163          88  PRINT-BILL-NO-88             VALUE 'N'.              DTSBR414
00164          88  PRINT-BILL-YES-88            VALUE 'Y'.              DTSBR414
00165                                                                   DTSBR414
00166      05  PRINT-FNOTE1-IND            PIC  X(01).                  DTSBR414
00167          88  PRINT-FNOTE1-NO-88             VALUE 'N'.            DTSBR414
00168          88  PRINT-FNOTE1-YES-88            VALUE 'Y'.            DTSBR414
00169                                                                   DTSBR414
00170      05  PRINT-FNOTE2-IND            PIC  X(01).                  DTSBR414
00171          88  PRINT-FNOTE2-NO-88             VALUE 'N'.            DTSBR414
00172          88  PRINT-FNOTE2-YES-88            VALUE 'Y'.            DTSBR414
00173                                                                   DTSBR414
00174      05  PRINT-FNOTE3-IND            PIC  X(01).                  DTSBR414
00175          88  PRINT-FNOTE3-NO-88             VALUE 'N'.            DTSBR414
00176          88  PRINT-FNOTE3-YES-88            VALUE 'Y'.            DTSBR414
00177                                                                   DTSBR414
00178      05  PRINT-FNOTE4-IND            PIC  X(01).                  DTSBR414
00179          88  PRINT-FNOTE4-NO-88             VALUE 'N'.            DTSBR414
00180          88  PRINT-FNOTE4-YES-88            VALUE 'Y'.            DTSBR414
00181                                                                   DTSBR414
00182      05  SUM-PRIOR-QTRS-IND          PIC  X(01).                  DTSBR414
00183          88  SUM-PRIOR-QTRS-NO-88         VALUE 'N'.              DTSBR414
00184          88  SUM-PRIOR-QTRS-YES-88        VALUE 'Y'.              DTSBR414
00185                                                                   DTSBR414
00186      SKIP3                                                        DTSBR414
00187      05  WS-TOTAL-CONTRIB-AMT PIC S9(09)V9(02)  COMP-3            DTSBR414
00188                                             VALUE +0.             DTSBR414
00189      05  WS-TOTAL-INTEREST-AMT PIC S9(09)V9(02) COMP-3            DTSBR414
00190                                             VALUE +0.             DTSBR414
00191      05  WS-TOTAL-SURCHARG-AMT PIC S9(09)V9(02) COMP-3            DTSBR414
00192                                             VALUE +0.             DTSBR414
00193      05  WS-TOTAL-PENALTY-AMT PIC S9(09)V9(02)  COMP-3            DTSBR414
00194                                             VALUE +0.             DTSBR414
00195      05  WS-TOTAL-BALANCE-AMT PIC S9(09)V9(02)  COMP-3            DTSBR414
00196                                             VALUE +0.             DTSBR414
00197      05  WS-STUB-BALANCE-AMT   PIC S9(09)V9(02)  COMP-3           DTSBR414
00198                                             VALUE +0.             DTSBR414
00199      05  WS-max-camt          PIC S9(09)V9(02) COMP-3             DTSBR414
00200                                             VALUE +0.             DTSBR414
00201      05  WS-max-iamt          PIC S9(09)V9(02) COMP-3             DTSBR414
00202                                             VALUE +0.             DTSBR414
00203      05  WS-max-samt          PIC S9(09)V9(02) COMP-3             DTSBR414
00204                                             VALUE +0.             DTSBR414
00205      05  WS-max-PAMT          PIC S9(09)V9(02)  COMP-3            DTSBR414
00206                                             VALUE +0.             DTSBR414
00207      05  ws-max-BAMT          PIC S9(09)V9(02)  COMP-3            DTSBR414
00208                                             VALUE +0.             DTSBR414
00209      05  WS-QTR-PLUS20        PIC 9(3)      VALUE ZERO.           DTSBR414
00210      05  WS-QTR4-cnt          PIC 9(3)      VALUE ZERO.           DTSBR414
00211      05  WS-QTR-CNT           PIC 9(3)      VALUE ZERO.           DTSBR414
00212      05  WS-QTR-IDX           PIC 9(3)      VALUE ZERO.           DTSBR414
00213      05  WRK-CNT              PIC 9(3)                            DTSBR414
00214                                             VALUE ZERO.           DTSBR414
00215      05  WRK-CTR              PIC S9(04)        COMP              DTSBR414
00216             VALUE +0.                                             DTSBR414
00217      05  WS-QTR-FNOTE         PIC X(7)      VALUE SPACES.         DTSBR414
00218      05  WS-QTR-FNOTEX REDEFINES WS-QTR-FNOTE.                    DTSBR414
00219          10 WFNOTE1           PIC X(03).                          DTSBR414
00220          10 WFNOTE2           PIC X(03).                          DTSBR414
00221          10 FILLER            PIC X.                              DTSBR414
00222      EJECT                                                        DTSBR414
00223 **                                                                DTSBR414
00224  ++INCLUDE DTSXL414                                               DTSBR414
00225      SKIP3                                                        DTSBR414
00226      05  CONVERT-BARCODE-LINE.                                    DTSBR414
00227          10  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.     DTSBR414
00228                                                                   DTSBR414
00229      05  WS-BARC-LINE.                                            DTSBR414
00230          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR414
00231          10  CONVERTED-BARCODE       PIC  X(50).                  DTSBR414
00232          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR414
00233 **                                                                DTSBR414
00234      05  STUB-LINE.                                               DTSBR414
00235          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00236          10  STUB-EMP-NO             PIC  999B999.                DTSBR414
00237          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00238          10  STUB-EMP-FEIN           PIC  99B9999999.             DTSBR414
00239          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00240          10  STUB-STMT-DATE          PIC  X(10).                  DTSBR414
00241          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR414
00242          10  STUB-COMP-DATE          PIC  X(10).                  DTSBR414
00243          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR414
00244          10  STUB-AMT                PIC  $,$$$,$$$.$$.           DTSBR414
00245                                                                   DTSBR414
00246      05  ADDR01.                                                  DTSBR414
00247          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR414
00248          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR414
00249          10  STUB-ADDR-LINE1         PIC  X(40).                  DTSBR414
00250          10  FILLER                  PIC  X(23)  value spaces.    DTSBR414
00251                                                                   DTSBR414
00252      05  ADDR02.                                                  DTSBR414
00253          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR414
00254          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR414
00255          10  STUB-ADDR-LINE2         PIC  X(40).                  DTSBR414
00256          10  FILLER                  PIC  X(23)  value spaces.    DTSBR414
00257                                                                   DTSBR414
00258      05  ADDR03.                                                  DTSBR414
00259          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR414
00260          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR414
00261          10  STUB-ADDR-LINE3         PIC  X(40).                  DTSBR414
00262          10  FILLER                  PIC  X(23)  value spaces.    DTSBR414
00263                                                                   DTSBR414
00264      05  ADDR04.                                                  DTSBR414
00265          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR414
00266          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR414
00267          10  STUB-ADDR-LINE4         PIC  X(40).                  DTSBR414
00268          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR414
00269                                                                   DTSBR414
00270      05  ADDR05.                                                  DTSBR414
00271          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR414
00272          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR414
00273          10  STUB-ADDR-LINE5         PIC  X(40).                  DTSBR414
00274          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR414
00275                                                                   DTSBR414
00276      05  STMT-LINE2.                                              DTSBR414
00277          10  FILLER                  PIC  X(63)  VALUE SPACE.     DTSBR414
00278          10  STMT-LAST-ACCT-UPDATE-DATE                           DTSBR414
00279                                      PIC  X(10).                  DTSBR414
00280          10  FILLER                  PIC  X(02)  VALUE '. '.      DTSBR414
00281                                                                   DTSBR414
00282      05  STMT-LINE1.                                              DTSBR414
00283          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00284          10  STMT-EMP-NO             PIC  999B999.                DTSBR414
00285          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00286          10  STMT-NAME-CHEK          PIC  X(04).                  DTSBR414
00287          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00288          10  STMT-EMP-FEIN           PIC  99B9999999.             DTSBR414
00289          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00290          10  STMT-STMT-DATE          PIC  X(10).                  DTSBR414
00291          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00292          10  STMT-COMP-DATE          PIC  X(10).                  DTSBR414
00293          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR414
00294                                                                   DTSBR414
00295      05  STMT-QTR-DETAIL.                                         DTSBR414
00296          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR414
00297          10  QTR-DET-YR.                                          DTSBR414
00298              15  QTR-DET-YR1         PIC  X(06).                  DTSBR414
00299              15  QTR-DET-YR2         PIC  X(03).                  DTSBR414
00300          10  QTR-DET-FNOTE.                                       DTSBR414
00301              15  QTR-DET-FNOTE1      PIC  X(06).                  DTSBR414
00302              15  QTR-DET-FNOTE2      PIC  X(01).                  DTSBR414
00303          10  FILLER                  PIC  X(02).                  DTSBR414
00304          10  QTR-DET-CONTRIB-AMT     PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR414
00305 *        10  FILLER                  PIC  X(04).                  DTSBR414
00306          10  QTR-DET-INTEREST-AMT    PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR414
00307 *        10  FILLER                  PIC  X(03).                  DTSBR414
00308          10  QTR-DET-PENALTY-AMT     PIC  Z,ZZZ,ZZZ.ZZ.           DTSBR414
00309 *        10  FILLER                  PIC  X(03).                  DTSBR414
00310          10  QTR-DET-SURCHARG-AMT    PIC  Z,ZZZ,ZZZ.ZZ.           DTSBR414
00311          10  FILLER                  PIC  X(02).                  DTSBR414
00312          10  QTR-DET-BALANCE-AMT     PIC  ZZZ,ZZZ,ZZZ.ZZ.         DTSBR414
00313          10  FILLER                  PIC  X(02).                  DTSBR414
00314                                                                   DTSBR414
00315      05  STMT-TOTAL-LINE.                                         DTSBR414
00316          10  FILLER                  PIC  X(21)  VALUE SPACE.     DTSBR414
00317          10  TOTAL-CONTRIB-AMT       PIC  $$$,$$$,$$$.$$.         DTSBR414
00318 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00319          10  TOTAL-INTEREST-AMT      PIC  $$$,$$$,$$$.$$.         DTSBR414
00320 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00321          10  TOTAL-PENALTY-AMT       PIC  $,$$$,$$$.$$.           DTSBR414
00322 *        10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00323          10  TOTAL-SURCHARG-AMT      PIC  $$,$$$,$$$.$$.          DTSBR414
00324          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR414
00325          10  TOTAL-BALANCE-AMT       PIC  $$$,$$$,$$$.$$.         DTSBR414
00326          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR414
00327                                                                   DTSBR414
00328      05  FNOTE1.                                                  DTSBR414
00329          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR414
00330          10  FILLER                  PIC  X(31)  VALUE            DTSBR414
00331            '(a) = estimated report on file'.                      DTSBR414
00332                                                                   DTSBR414
00333      05  FNOTE2.                                                  DTSBR414
00334          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR414
00335          10  FILLER                  PIC  X(31)  VALUE            DTSBR414
00336            '(b) = report missing          '.                      DTSBR414
00337                                                                   DTSBR414
00338      05  FNOTE3.                                                  DTSBR414
00339          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR414
00340          10  FILLER                  PIC  X(31)  VALUE            DTSBR414
00341            '(c) = annual report           '.                      DTSBR414
00342                                                                   DTSBR414
00343      05  FNOTE4.                                                  DTSBR414
00344          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR414
00345          10  FILLER                  PIC  X(31)  VALUE            DTSBR414
00346            '(d) = appeal pending          '.                      DTSBR414
00347                                                                   DTSBR414
00348      05  FNOTE-MISSING-RPT.                                       DTSBR414
00349          10  FILLER                  PIC  X(33)  VALUE SPACE.     DTSBR414
00350          10  FILLER                  PIC  X(57)  VALUE            DTSBR414
00351       'Balance Due does not include charges for missing reports'. DTSBR414
00352                                                                   DTSBR414
00353                                                                   DTSBR414
00354   01 HEADER1.                                                     DTSBR414
00355       05  FILLER                   PIC X(01) VALUE SPACES.        DTSBR414
00356       05  HDR1-RPT                 PIC X(05).                     DTSBR414
00357       05  FILLER                   PIC X(44) VALUE SPACES.        DTSBR414
00358       05  FILLER                   PIC X(60) VALUE                DTSBR414
00359           'DISTRICT OF COLUMBIA'.                                 DTSBR414
00360       05  FILLER                   PIC X(06) VALUE 'DATE:'.       DTSBR414
00361       05  HDR1-DATE                PIC X(08).                     DTSBR414
00362                                                                   DTSBR414
00363                                                                   DTSBR414
00364   01  HEADER2.                                                    DTSBR414
00365       05  FILLER                   PIC X(54) VALUE SPACES.        DTSBR414
00366       05  FILLER                   PIC X(56) VALUE                DTSBR414
00367           'TAX DIVISION'.                                         DTSBR414
00368       05  FILLER                   PIC X(06) VALUE 'TIME:'.       DTSBR414
00369       05  HDR2-TIME                PIC X(08).                     DTSBR414
00370                                                                   DTSBR414
00371   01 HEADER3.                                                     DTSBR414
00372      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR414
00373      05  FILLER                   PIC X(14) VALUE                 DTSBR414
00374          'FIELD REP ID: '.                                        DTSBR414
00375      05  HDR3-ID                  PIC X(2).                       DTSBR414
00376      05  FILLER                   PIC X(18) VALUE SPACES.         DTSBR414
00377      05  FILLER                   PIC X(43) VALUE                 DTSBR414
00378          'EMPLOYERS WITH GREATER THAN FOUR DELINQUENT'.           DTSBR414
00379      05  FILLER                   PIC X(09) VALUE                 DTSBR414
00380          ' QUARTERS'.                                             DTSBR414
00381      05  FILLER                   PIC X(23) VALUE SPACES.         DTSBR414
00382      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR414
00383      05  HDR3-PAGE                PIC ZZ,ZZ9.                     DTSBR414
00384   01 HEADER4.                                                     DTSBR414
00385       05  FILLER                   PIC X(01)  VALUE SPACES.       DTSBR414
00386       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00387       05  FILLER                   PIC X(06)  VALUE               DTSBR414
00388                        'EMP NO'.                                  DTSBR414
00389       05  FILLER                   PIC X(05)  VALUE SPACES.       DTSBR414
00390       05  FILLER                   PIC X(12)  VALUE               DTSBR414
00391                        'PRIMARY NAME'.                            DTSBR414
00392       05  FILLER                   PIC X(09)  VALUE SPACES.       DTSBR414
00393       05  FILLER                   PIC X(05)  VALUE ' DELQ'.      DTSBR414
00394       05  FILLER                   PIC X(03)  VALUE SPACES.       DTSBR414
00395       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00396                         'CONTRIBUTIONS'.                          DTSBR414
00397       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00398       05  FILLER                   PIC X(12)  VALUE               DTSBR414
00399                        '    INTEREST'.                            DTSBR414
00400       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00401       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00402                         '   PENALTY   '.                          DTSBR414
00403       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00404       05  FILLER                   PIC X(06)  VALUE               DTSBR414
00405                        'ADMIN.'.                                  DTSBR414
00406       05  FILLER                   PIC X(09)  VALUE SPACES.       DTSBR414
00407       05  FILLER                   PIC X(14)  VALUE               DTSBR414
00408                        'BALANCE   '.                              DTSBR414
00409                                                                   DTSBR414
00410   01 HEADER45.                                                    DTSBR414
00411       05  FILLER                   PIC X(01)  VALUE SPACES.       DTSBR414
00412       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00413       05  FILLER                   PIC X(06)  VALUE               DTSBR414
00414                        'EMP NO'.                                  DTSBR414
00415       05  FILLER                   PIC X(05)  VALUE SPACES.       DTSBR414
00416       05  FILLER                   PIC X(12)  VALUE               DTSBR414
00417                        'PRIMARY NAME'.                            DTSBR414
00418       05  FILLER                   PIC X(08)  VALUE SPACES.       DTSBR414
00419       05  FILLER                   PIC X(05)  VALUE ' YR/Q'.      DTSBR414
00420       05  FILLER                   PIC X(04)  VALUE SPACES.       DTSBR414
00421       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00422                         'CONTRIBUTIONS'.                          DTSBR414
00423       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00424       05  FILLER                   PIC X(12)  VALUE               DTSBR414
00425                        '    INTEREST'.                            DTSBR414
00426       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00427       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00428                         '   PENALTY   '.                          DTSBR414
00429       05  FILLER                   PIC X(02)  VALUE SPACES.       DTSBR414
00430       05  FILLER                   PIC X(06)  VALUE               DTSBR414
00431                        'ADMIN.'.                                  DTSBR414
00432       05  FILLER                   PIC X(09)  VALUE SPACES.       DTSBR414
00433       05  FILLER                   PIC X(14)  VALUE               DTSBR414
00434                        'BALANCE   '.                              DTSBR414
00435 *     05  FILLER                   PIC X(15)  VALUE               DTSBR414
00436 *                      'last update'.                             DTSBR414
00437   01 HEADER5.                                                     DTSBR414
00438       05  FILLER                   PIC X(30)  VALUE SPACES.       DTSBR414
00439       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00440                         '      QTRS   '.                          DTSBR414
00441       05  FILLER                   PIC X(05)  VALUE SPACES.       DTSBR414
00442       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00443                         '     DUE     '.                          DTSBR414
00444       05  FILLER                   PIC X(04)  VALUE SPACES.       DTSBR414
00445       05  FILLER                   PIC X(11)  VALUE               DTSBR414
00446                         ' OWED      '.                            DTSBR414
00447       05  FILLER                   PIC X(09)  VALUE               DTSBR414
00448                         ' OWED    '.                              DTSBR414
00449       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00450                         'ASSESSMENT   '.                          DTSBR414
00451       05  FILLER                   PIC X(08)  VALUE SPACES.       DTSBR414
00452       05  FILLER                   PIC X(10)  VALUE               DTSBR414
00453                         'DUE       '.                             DTSBR414
00454   01 HEADER55.                                                    DTSBR414
00455       05  FILLER                   PIC X(30)  VALUE SPACES.       DTSBR414
00456       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00457                         '             '.                          DTSBR414
00458       05  FILLER                   PIC X(05)  VALUE SPACES.       DTSBR414
00459       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00460                         '     DUE     '.                          DTSBR414
00461       05  FILLER                   PIC X(04)  VALUE SPACES.       DTSBR414
00462       05  FILLER                   PIC X(11)  VALUE               DTSBR414
00463                         ' OWED      '.                            DTSBR414
00464       05  FILLER                   PIC X(09)  VALUE               DTSBR414
00465                         ' OWED    '.                              DTSBR414
00466       05  FILLER                   PIC X(13)  VALUE               DTSBR414
00467                         'ASSESSMENT   '.                          DTSBR414
00468       05  FILLER                   PIC X(08)  VALUE SPACES.       DTSBR414
00469       05  FILLER                   PIC X(10)  VALUE               DTSBR414
00470                         'DUE       '.                             DTSBR414
00471 *     05  FILLER                   PIC X(15)  VALUE               DTSBR414
00472 *                      '   date    '.                             DTSBR414
00473                                                                   DTSBR414
00474   01  REPT-STMT-LINE.                                             DTSBR414
00475          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00476          10  rept-EMP-NO             PIC  999B999.                DTSBR414
00477          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00478          10  rept-EMP-NAME           PIC  X(20).                  DTSBR414
00479          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00480          10  rept-QTR-CNT            PIC  Z9.                     DTSBR414
00481          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00482          10  rept-CONTRIB-AMT        PIC  $$$,$$$,$$$.$$.         DTSBR414
00483 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00484          10  rept-INTEREST-AMT       PIC  $$$,$$$,$$$.$$.         DTSBR414
00485 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00486          10  rept-PENALTY-AMT        PIC  $,$$$,$$$.$$.           DTSBR414
00487 *        10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00488          10  rept-SURCHARG-AMT       PIC  $$$,$$$.$$.             DTSBR414
00489          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR414
00490          10  rept-BALANCE-AMT        PIC  $,$$$,$$$.$$.           DTSBR414
00491      EJECT                                                        DTSBR414
00492   01  REPT-qtr4-LINE.                                             DTSBR414
00493          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00494          10  QTR4-EMP-NO             PIC  999B999.                DTSBR414
00495          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR414
00496          10  QTR4-EMP-NAME           PIC  X(20).                  DTSBR414
00497          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR414
00498          10  QTR4-QTR-CNT            PIC  x(6).                   DTSBR414
00499          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR414
00500          10  QTR4-CONTRIB-AMT        PIC  $$$,$$$,$$$.$$.         DTSBR414
00501 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00502          10  QTR4-INTEREST-AMT       PIC  $$$,$$$,$$$.$$.         DTSBR414
00503 *        10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR414
00504          10  QTR4-PENALTY-AMT        PIC  $,$$$,$$$.$$.           DTSBR414
00505 *        10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR414
00506          10  QTR4-SURCHARG-AMT       PIC  $$$,$$$.$$.             DTSBR414
00507          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR414
00508          10  QTR4-BALANCE-AMT        PIC  $,$$$,$$$.$$.           DTSBR414
00509 *        10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR414
00510 *        10  QTR4-last-upd-date      PIC  x(10).                  DTSBR414
00511   01  excl-STMT-LINE.                                             DTSBR414
00512          10  excl-EMP-NO             PIC  999B999.                DTSBR414
00513          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00514          10  excl-EMP-NAME           PIC  X(20).                  DTSBR414
00515          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00516          10  excl-QTR-CNT            PIC  Z9.                     DTSBR414
00517          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00518          10  excl-CONTRIB-AMT        PIC  ----------.99.          DTSBR414
00519          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00520          10  excl-INTEREST-AMT       PIC  ----------.99.          DTSBR414
00521          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00522          10  excl-PENALTY-AMT        PIC  ---------.99.           DTSBR414
00523          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00524          10  excl-SURCHARG-AMT       PIC  -------.99.             DTSBR414
00525          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00526          10  excl-BALANCE-AMT        PIC  ---------.99.           DTSBR414
00527      EJECT                                                        DTSBR414
00528   01  excl-qtr4-LINE.                                             DTSBR414
00529          10  excl-qtr4-EMP-NO        PIC  999B999.                DTSBR414
00530          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00531          10  excl-qtr4-EMP-NAME      PIC  X(20).                  DTSBR414
00532          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00533          10  excl-qtr4-QTR-CNT       PIC  x(6).                   DTSBR414
00534          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00535          10  excl-qtr4-CONTRIB-AMT   PIC  -----------.99.         DTSBR414
00536          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00537          10  excl-qtr4-INTEREST-AMT  PIC  -----------.99.         DTSBR414
00538          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00539          10  excl-qtr4-PENALTY-AMT   PIC  ---------.99.           DTSBR414
00540          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00541          10  excl-qtr4-SURCHARG-AMT  PIC  -------.99.             DTSBR414
00542          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00543          10  excl-qtr4-BALANCE-AMT   PIC  ---------.99.           DTSBR414
00544 *        10  excl-qtr4-last-upd-date PIC  x(10).                  DTSBR414
00545   01  excl-rec6-LINE.                                             DTSBR414
00546          10  excl-rec6-EMP-NO        PIC  999B999.                DTSBR414
00547          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00548          10  excl-rec6-EMP-NAME      PIC  X(20).                  DTSBR414
00549          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00550          10  excl-rec6-QTR-CNT       PIC  x(6).                   DTSBR414
00551          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00552          10  excl-rec6-CONTRIB-AMT   PIC  -----------.99.         DTSBR414
00553          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00554          10  excl-rec6-INTEREST-AMT  PIC  -----------.99.         DTSBR414
00555          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00556          10  excl-rec6-PENALTY-AMT   PIC  ---------.99.           DTSBR414
00557          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00558          10  excl-rec6-SURCHARG-AMT  PIC  -------.99.             DTSBR414
00559          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00560          10  excl-rec6-BALANCE-AMT   PIC  ---------.99.           DTSBR414
00561          10  FILLER                  PIC  X(01)  VALUE ','.       DTSBR414
00562          10  excl-rec6-miss-rpt      PIC  x(6).                   DTSBR414
00563 *        10  excl-rec6-last-upd-date PIC  x(10).                  DTSBR414
00564  01  L001-LINK-AREA.                                              DTSBR414
00565  ++INCLUDE DTSIL001                                               DTSBR414
00566      EJECT                                                        DTSBR414
00567  01  L005-LINK-AREA.                                              DTSBR414
00568  ++INCLUDE DTSIL005                                               DTSBR414
00569                                                                   DTSBR414
00570  01  BARI-LINK-AREA.                                              DTSBR414
00571  ++INCLUDE BARIL599                                               DTSBR414
00572                                                                   DTSBR414
00573  LINKAGE SECTION.                                                 DTSBR414
00574      SKIP3                                                        DTSBR414
00575  01  LRCM-LINK-AREA.                                              DTSBR414
00576  ++INCLUDE DTSILRCM                                               DTSBR414
00577      EJECT                                                        DTSBR414
00578  01  R414-REC.                                                    DTSBR414
00579  ++INCLUDE DTSIR414                                               DTSBR414
00580      EJECT                                                        DTSBR414
00581  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR414
00582                           R414-REC.                               DTSBR414
00583      SKIP2                                                        DTSBR414
00584      IF FIRST-TIME-IND = 'Y'                                      DTSBR414
00585          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR414
00586          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR414
00587                                                                   DTSBR414
00588      IF LRCM-EOR-88                                               DTSBR414
00589          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR414
00590      ELSE                                                         DTSBR414
00591          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR414
00592      SKIP2                                                        DTSBR414
00593      GOBACK.                                                      DTSBR414
00594      EJECT                                                        DTSBR414
00595  I1000-INITIATE.                                                  DTSBR414
00596      OPEN OUTPUT  PRT-FILE1  PRT-FILE2  PRT-FILE4                 DTSBR414
00597                   PRT-FILE6.                                      DTSBR414
00598                                                                   DTSBR414
00599      MOVE +0 TO PRT-FILE1-PAGE-CNT.                               DTSBR414
00600                                                                   DTSBR414
00601      MOVE 0      TO STMT-EMP-NO                                   DTSBR414
00602                     STUB-EMP-NO                                   DTSBR414
00603                     STUB-EMP-FEIN                                 DTSBR414
00604                     STMT-EMP-FEIN                                 DTSBR414
00605                     rept-emp-no.                                  DTSBR414
00606      MOVE SPACES TO STMT-STMT-DATE                                DTSBR414
00607                     STMT-COMP-DATE.                               DTSBR414
00608                                                                   DTSBR414
00609      PERFORM S005-FROM-SYS   THRU S005-EXIT.                      DTSBR414
00610      MOVE L005-SLASH-DATE  TO HDR1-DATE                           DTSBR414
00611      MOVE L005-DISPLAY-TIME TO HDR2-TIME.                         DTSBR414
00612                                                                   DTSBR414
00613  I1000-EXIT.                                                      DTSBR414
00614      EXIT.                                                        DTSBR414
00615      SKIP3                                                        DTSBR414
00616  P1000-PROCESS.                                                   DTSBR414
00617      if r414-emp-no = 022647                                      DTSBR414
00618         display 'br414 p0 ' r414-emp-no                           DTSBR414
00619      end-if.                                                      DTSBR414
00620                                                                   DTSBR414
00621      SET PRINT-FNOTE1-NO-88  TO TRUE.                             DTSBR414
00622      SET PRINT-FNOTE2-NO-88  TO TRUE.                             DTSBR414
00623      SET PRINT-FNOTE3-NO-88  TO TRUE.                             DTSBR414
00624      SET PRINT-FNOTE4-NO-88  TO TRUE.                             DTSBR414
00625      SET PRINT-BILL-NO-88    TO TRUE.                             DTSBR414
00626      MOVE SPACES             TO WS-REC.                           DTSBR414
00627                                                                   DTSBR414
00628      MOVE +0              TO WS-TOTAL-CONTRIB-AMT                 DTSBR414
00629                              WS-TOTAL-PENALTY-AMT                 DTSBR414
00630                              WS-TOTAL-INTEREST-AMT                DTSBR414
00631                              WS-TOTAL-SURCHARG-AMT                DTSBR414
00632                              WS-STUB-BALANCE-AMT                  DTSBR414
00633                              WS-TOTAL-BALANCE-AMT.                DTSBR414
00634                                                                   DTSBR414
00635      IF  R414-QTR-CNT > 60                                        DTSBR414
00636          PERFORM P2000-PRINT-REPORT     THRU P2000-EXIT           DTSBR414
00637 **testing the printing of all quarters                            DTSBR414
00638          GO TO P1000-EXIT.                                        DTSBR414
00639                                                                   DTSBR414
00640                                                                   DTSBR414
00641      PERFORM P1100-STUB-STMT-TOTALS THRU P1100-EXIT               DTSBR414
00642           VARYING R414-QTR-IDX FROM 1 BY 1                        DTSBR414
00643           UNTIL R414-QTR-IDX >  R414-QTR-CNT.                     DTSBR414
00644                                                                   DTSBR414
00645      MOVE R414-EMP-NO        TO STUB-EMP-NO                       DTSBR414
00646                                 STMT-EMP-NO                       DTSBR414
00647                                 BARC-EMP-NO.                      DTSBR414
00648      MOVE R414-EMP-FEIN      TO STUB-EMP-FEIN                     DTSBR414
00649                                 STMT-EMP-FEIN.                    DTSBR414
00650      MOVE WS-STUB-BALANCE-AMT   TO STUB-AMT.                      DTSBR414
00651                                                                   DTSBR414
00652      MOVE R414-STMT-DATE     TO L001-FED-8-DATE-9.                DTSBR414
00653      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR414
00654      MOVE L001-SLASH-8-DATE  TO STUB-STMT-DATE                    DTSBR414
00655                                 STMT-STMT-DATE.                   DTSBR414
00656                                                                   DTSBR414
00657      MOVE R414-COMP-DATE     TO L001-FED-8-DATE-9.                DTSBR414
00658      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR414
00659      IF L001-INVALID-DATE                                         DTSBR414
00660          MOVE SPACES            TO STUB-COMP-DATE                 DTSBR414
00661                                    STMT-COMP-DATE                 DTSBR414
00662      ELSE                                                         DTSBR414
00663          MOVE L001-SLASH-8-DATE TO STUB-COMP-DATE                 DTSBR414
00664                                    STMT-COMP-DATE.                DTSBR414
00665                                                                   DTSBR414
00666      MOVE R414-FMT-LINE (1)     TO STUB-ADDR-LINE1                DTSBR414
00667                                    MAIL-ADDR-LINE1                DTSBR414
00668                                    WS-EMP-NAME.                   DTSBR414
00669                                                                   DTSBR414
00670      MOVE R414-FMT-LINE (2)     TO STUB-ADDR-LINE2                DTSBR414
00671                                    MAIL-ADDR-LINE2.               DTSBR414
00672                                                                   DTSBR414
00673      MOVE R414-FMT-LINE (3)     TO STUB-ADDR-LINE3                DTSBR414
00674                                    MAIL-ADDR-LINE3.               DTSBR414
00675                                                                   DTSBR414
00676      MOVE R414-FMT-LINE (4)     TO STUB-ADDR-LINE4                DTSBR414
00677                                    MAIL-ADDR-LINE4.               DTSBR414
00678                                                                   DTSBR414
00679      MOVE R414-FMT-LINE (5)     TO STUB-ADDR-LINE5                DTSBR414
00680                                    MAIL-ADDR-LINE5.               DTSBR414
00681                                                                   DTSBR414
00682      MOVE WRK-FIRST-4           TO STMT-NAME-CHEK.                DTSBR414
00683                                                                   DTSBR414
00684      MOVE R414-LAST-ACCT-UPDATE-DATE TO L001-FED-8-DATE-9.        DTSBR414
00685      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBR414
00686      MOVE L001-SLASH-8-DATE TO STMT-LAST-ACCT-UPDATE-DATE.        DTSBR414
00687                                                                   DTSBR414
00688      IF PRINT-BILL-YES-88                                         DTSBR414
00689         PERFORM P1200-PRINT-STUB-MAILR   THRU P1200-EXIT.         DTSBR414
00690                                                                   DTSBR414
00691 *    IF PRT-FILE1-PAGE-CNT > 10                                   DTSBR414
00692 *       SET LRCM-EOR-88 TO TRUE                                   DTSBR414
00693 *       GO TO P1000-EXIT.                                         DTSBR414
00694                                                                   DTSBR414
00695      MOVE 24                    TO LINE-CNT.                      DTSBR414
00696                                                                   DTSBR414
00697      SET AMT-DISPLAYED-NO-88    TO TRUE.                          DTSBR414
00698      SET SUM-PRIOR-QTRS-NO-88   TO TRUE.                          DTSBR414
00699      SET PRINT-PRIOR-QTRS-NO-88 TO TRUE.                          DTSBR414
00700                                                                   DTSBR414
00701      MOVE 0                     TO WS-QTR-PLUS20                  DTSBR414
00702                                    WS-QTR-CNT.                    DTSBR414
00703 **nh testing                                                      DTSBR414
00704      MOVE +0              TO WS-TOTAL-CONTRIB-AMT                 DTSBR414
00705                              WS-TOTAL-PENALTY-AMT                 DTSBR414
00706                              WS-TOTAL-INTEREST-AMT                DTSBR414
00707                              WS-TOTAL-SURCHARG-AMT                DTSBR414
00708                              WS-STUB-BALANCE-AMT                  DTSBR414
00709                              WS-TOTAL-BALANCE-AMT.                DTSBR414
00710                                                                   DTSBR414
00711      PERFORM P1300-DISPLAY-QTR  THRU P1300-EXIT                   DTSBR414
00712          VARYING R414-QTR-IDX FROM 1 BY 1                         DTSBR414
00713          UNTIL R414-QTR-IDX >  R414-QTR-CNT.                      DTSBR414
00714                                                                   DTSBR414
00715      MOVE SPACES                 TO WS-REC                        DTSBR414
00716                                                                   DTSBR414
00717      IF PRINT-BILL-NO-88                                          DTSBR414
00718         GO TO P1000-EXIT.                                         DTSBR414
00719                                                                   DTSBR414
00720      IF  AMT-DISPLAYED-YES-88                                     DTSBR414
00721 ***  IF  AMT-DISPLAYED-YES-88 and                                 DTSBR414
00722 ***               ws-total-balance-amt > +5.00                    DTSBR414
00723          MOVE WS-TOTAL-CONTRIB-AMT  TO TOTAL-CONTRIB-AMT          DTSBR414
00724          MOVE WS-TOTAL-INTEREST-AMT TO TOTAL-INTEREST-AMT         DTSBR414
00725          MOVE WS-TOTAL-SURCHARG-AMT TO TOTAL-SURCHARG-AMT         DTSBR414
00726          MOVE WS-TOTAL-PENALTY-AMT  TO TOTAL-PENALTY-AMT          DTSBR414
00727          MOVE WS-TOTAL-BALANCE-AMT  TO TOTAL-BALANCE-AMT.         DTSBR414
00728 **   else                                                         DTSBR414
00729 **      GO TO P1000-EXIT                                          DTSBR414
00730 **   end-if.                                                      DTSBR414
00731 **nh                                                              DTSBR414
00732 **   COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT.                   DTSBR414
00733      COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT - 2.               DTSBR414
00734                                                                   DTSBR414
00735      IF  AMT-DISPLAYED-YES-88                                     DTSBR414
00736          MOVE STMT-TOTAL-LINE TO WS-REC                           DTSBR414
00737      ELSE                                                         DTSBR414
00738          MOVE SPACES          TO WS-REC.                          DTSBR414
00739                                                                   DTSBR414
00740      WRITE PRT-REC1 FROM WS-REC                                   DTSBR414
00741            AFTER ADVANCING WRK-CTR LINES.                         DTSBR414
00742                                                                   DTSBR414
00743      MOVE SPACES TO WS-REC                                        DTSBR414
00744                                                                   DTSBR414
00745                                                                   DTSBR414
00746       IF PRINT-FNOTE2-YES-88                                      DTSBR414
00747          WRITE PRT-REC1 FROM FNOTE-MISSING-RPT                    DTSBR414
00748             AFTER ADVANCING 1 LINES                               DTSBR414
00749          WRITE PRT-REC1 FROM WS-REC                               DTSBR414
00750             AFTER ADVANCING 1 LINES                               DTSBR414
00751       ELSE                                                        DTSBR414
00752          WRITE PRT-REC1 FROM WS-REC                               DTSBR414
00753             AFTER ADVANCING 1 LINES.                              DTSBR414
00754                                                                   DTSBR414
00755       IF PRINT-FNOTE1-YES-88                                      DTSBR414
00756          WRITE PRT-REC1 FROM FNOTE1                               DTSBR414
00757             AFTER ADVANCING 1 LINES.                              DTSBR414
00758                                                                   DTSBR414
00759       IF PRINT-FNOTE2-YES-88                                      DTSBR414
00760          WRITE PRT-REC1 FROM FNOTE2                               DTSBR414
00761             AFTER ADVANCING 1 LINES.                              DTSBR414
00762                                                                   DTSBR414
00763       IF PRINT-FNOTE3-YES-88                                      DTSBR414
00764          WRITE PRT-REC1 FROM FNOTE3                               DTSBR414
00765             AFTER ADVANCING 1 LINES.                              DTSBR414
00766                                                                   DTSBR414
00767       IF PRINT-FNOTE4-YES-88                                      DTSBR414
00768          WRITE PRT-REC1 FROM FNOTE4                               DTSBR414
00769             AFTER ADVANCING 1 LINES.                              DTSBR414
00770                                                                   DTSBR414
00771                                                                   DTSBR414
00772      MOVE SPACES TO WS-XREC                                       DTSBR414
00773                                                                   DTSBR414
00774      PERFORM P1500-PRINT-MAILR-ADDR THRU P1500-EXIT.              DTSBR414
00775                                                                   DTSBR414
00776      PERFORM P1600-excel-MAILR-sent THRU P1600-EXIT.              DTSBR414
00777                                                                   DTSBR414
00778  P1000-EXIT.                                                      DTSBR414
00779      EXIT.                                                        DTSBR414
00780      SKIP3                                                        DTSBR414
00781                                                                   DTSBR414
00782  P1100-STUB-STMT-TOTALS.                                          DTSBR414
00783                                                                   DTSBR414
00784      SET PRINT-BILL-YES-88 TO TRUE.                               DTSBR414
00785                                                                   DTSBR414
00786      IF R414-BALANCE-AMT (R414-QTR-IDX) > ZEROS                   DTSBR414
00787         ADD R414-BALANCE-AMT (R414-QTR-IDX)                       DTSBR414
00788          TO WS-STUB-BALANCE-AMT.                                  DTSBR414
00789                                                                   DTSBR414
00790  P1100-EXIT.                                                      DTSBR414
00791      EXIT.                                                        DTSBR414
00792      SKIP3                                                        DTSBR414
00793                                                                   DTSBR414
00794  P1200-PRINT-STUB-MAILR.                                          DTSBR414
00795 **                                                                DTSBR414
00796       PERFORM S599-BARCODE     THRU S599-EXIT.                    DTSBR414
00797                                                                   DTSBR414
00798       IF L599-SETB-FONT1                                          DTSBR414
00799          MOVE 'MODIFY=TAXSM1,' TO XEROX-CME                       DTSBR414
00800       ELSE                                                        DTSBR414
00801       IF L599-SETB-FONT2                                          DTSBR414
00802          MOVE 'MODIFY=TAXSM2,' TO XEROX-CME                       DTSBR414
00803       ELSE                                                        DTSBR414
00804          MOVE 'MODIFY=TAXSM1,' TO XEROX-CME.                      DTSBR414
00805                                                                   DTSBR414
00806        MOVE XEROX-8X11-LINE    TO WS-REC.                         DTSBR414
00807        WRITE PRT-REC1 FROM WS-REC                                 DTSBR414
00808            AFTER ADVANCING PAGE.                                  DTSBR414
00809                                                                   DTSBR414
00810        MOVE XEROX-CNTL-LINE2   TO WS-REC.                         DTSBR414
00811        WRITE PRT-REC1 FROM WS-REC                                 DTSBR414
00812            AFTER ADVANCING 1.                                     DTSBR414
00813 **                                                                DTSBR414
00814         ADD +1 TO PRT-FILE1-PAGE-CNT                              DTSBR414
00815         MOVE SPACES TO WS-REC                                     DTSBR414
00816         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 09 LINES       DTSBR414
00817         MOVE   STUB-LINE   TO WS-REC                              DTSBR414
00818         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00819         MOVE   ADDR01 TO WS-REC                                   DTSBR414
00820         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00821         MOVE   ADDR02 TO WS-REC                                   DTSBR414
00822         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00823         MOVE   ADDR03 TO WS-REC                                   DTSBR414
00824         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00825         MOVE   ADDR04 TO WS-REC                                   DTSBR414
00826         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00827         MOVE   ADDR05 TO WS-REC                                   DTSBR414
00828         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR414
00829         MOVE STMT-LINE1 TO WS-REC                                 DTSBR414
00830         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 4 LINES        DTSBR414
00831 **      WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 7 LINES        DTSBR414
00832         MOVE STMT-LINE2 TO WS-REC                                 DTSBR414
00833 **      WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 5 LINES.       DTSBR414
00834         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 7 LINES.       DTSBR414
00835         MOVE SPACES TO WS-REC.                                    DTSBR414
00836         WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 3 LINES.       DTSBR414
00837  P1200-EXIT.                                                      DTSBR414
00838      EXIT.                                                        DTSBR414
00839      SKIP3                                                        DTSBR414
00840  P1300-DISPLAY-QTR.                                               DTSBR414
00841                                                                   DTSBR414
00842      MOVE SPACES TO STMT-QTR-DETAIL                               DTSBR414
00843                     WS-QTR-FNOTE.                                 DTSBR414
00844      IF LRCM-PICKUP-YRQ = R414-QTR (R414-QTR-IDX)                 DTSBR414
00845         MOVE 'PRIOR TO '          TO QTR-DET-YR                   DTSBR414
00846         MOVE  '1995/4'            TO QTR-DET-FNOTE                DTSBR414
00847      ELSE                                                         DTSBR414
00848         MOVE R414-QTR (R414-QTR-IDX) TO WS-WRK-QTR                DTSBR414
00849         IF R414-ANN-FILER-YES-88 (R414-QTR-IDX)                   DTSBR414
00850            MOVE SPACES            TO WRK-PRT-Q                    DTSBR414
00851            MOVE WRK-QTR-YR        TO WRK-PRT-YR                   DTSBR414
00852            MOVE SPACES            TO WRK-PRT-SLASH                DTSBR414
00853            MOVE WS-PRT-QTR        TO QTR-DET-YR1                  DTSBR414
00854            MOVE SPACES            TO QTR-DET-YR2                  DTSBR414
00855         ELSE                                                      DTSBR414
00856            MOVE WRK-QTR-Q         TO WRK-PRT-Q                    DTSBR414
00857            MOVE WRK-QTR-YR        TO WRK-PRT-YR                   DTSBR414
00858            MOVE '/'               TO WRK-PRT-SLASH                DTSBR414
00859            MOVE WS-PRT-QTR        TO QTR-DET-YR1                  DTSBR414
00860            MOVE SPACES            TO QTR-DET-YR2.                 DTSBR414
00861      IF R414-BALANCE-AMT (R414-QTR-IDX) > +0                      DTSBR414
00862          SET AMT-DISPLAYED-YES-88 TO TRUE                         DTSBR414
00863          MOVE R414-CONTRIB-AMT (R414-QTR-IDX)                     DTSBR414
00864            TO QTR-DET-CONTRIB-AMT                                 DTSBR414
00865          ADD R414-CONTRIB-AMT (R414-QTR-IDX)                      DTSBR414
00866            TO WS-TOTAL-CONTRIB-AMT                                DTSBR414
00867          ADD R414-INTEREST-AMT (R414-QTR-IDX)                     DTSBR414
00868            TO  WS-TOTAL-INTEREST-AMT                              DTSBR414
00869          MOVE R414-INTEREST-AMT (R414-QTR-IDX)                    DTSBR414
00870            TO QTR-DET-INTEREST-AMT                                DTSBR414
00871          ADD R414-PENALTY-AMT (R414-QTR-IDX)                      DTSBR414
00872            TO WS-TOTAL-PENALTY-AMT                                DTSBR414
00873          MOVE R414-PENALTY-AMT (R414-QTR-IDX)                     DTSBR414
00874            TO QTR-DET-PENALTY-AMT                                 DTSBR414
00875          ADD R414-SURCHARG-AMT (R414-QTR-IDX)                     DTSBR414
00876            TO  WS-TOTAL-SURCHARG-AMT                              DTSBR414
00877          MOVE R414-SURCHARG-AMT (R414-QTR-IDX)                    DTSBR414
00878            TO QTR-DET-SURCHARG-AMT                                DTSBR414
00879           ADD R414-BALANCE-AMT (R414-QTR-IDX)                     DTSBR414
00880            TO WS-TOTAL-BALANCE-AMT                                DTSBR414
00881          MOVE R414-BALANCE-AMT (R414-QTR-IDX)                     DTSBR414
00882            TO QTR-DET-BALANCE-AMT.                                DTSBR414
00883                                                                   DTSBR414
00884      IF LRCM-PICKUP-YRQ = R414-QTR (R414-QTR-IDX)                 DTSBR414
00885         SET R414-ANN-FILER-NO-88 (R414-QTR-IDX)   TO TRUE         DTSBR414
00886         SET R414-RPT-MISSING-NO-88 (R414-QTR-IDX) TO TRUE         DTSBR414
00887         SET R414-QTR-EST-RPT-NO-88 (R414-QTR-IDX) TO TRUE         DTSBR414
00888         SET R414-QTR-APPEAL-NO-88  (R414-QTR-IDX) TO TRUE.        DTSBR414
00889                                                                   DTSBR414
00890      IF R414-QTR-APPEAL-YES-88 (R414-QTR-IDX)                     DTSBR414
00891         SET PRINT-FNOTE4-YES-88 TO TRUE                           DTSBR414
00892         MOVE '(d)'    TO  WFNOTE1                                 DTSBR414
00893      ELSE                                                         DTSBR414
00894      IF R414-QTR-EST-RPT-YES-88 (R414-QTR-IDX)                    DTSBR414
00895         SET PRINT-FNOTE1-YES-88 TO TRUE                           DTSBR414
00896         MOVE '(a)'    TO  WFNOTE1                                 DTSBR414
00897      ELSE                                                         DTSBR414
00898      IF R414-RPT-MISSING-YES-88 (R414-QTR-IDX)                    DTSBR414
00899         SET PRINT-FNOTE2-YES-88 TO TRUE                           DTSBR414
00900         MOVE '(b)'    TO  WFNOTE1.                                DTSBR414
00901                                                                   DTSBR414
00902      IF R414-ANN-FILER-YES-88 (R414-QTR-IDX)                      DTSBR414
00903         SET PRINT-FNOTE3-YES-88 TO TRUE                           DTSBR414
00904         IF WFNOTE1 = SPACES                                       DTSBR414
00905            MOVE '(c)'    TO  WFNOTE1                              DTSBR414
00906         ELSE                                                      DTSBR414
00907            MOVE '(c)'    TO  WFNOTE2.                             DTSBR414
00908                                                                   DTSBR414
00909                                                                   DTSBR414
00910      IF WS-QTR-FNOTE > SPACES                                     DTSBR414
00911         MOVE WS-QTR-FNOTE         TO QTR-DET-FNOTE.               DTSBR414
00912                                                                   DTSBR414
00913 **   ADD  1                   TO LINE-CNT.                        DTSBR414
00914 **   MOVE STMT-QTR-DETAIL     TO WS-REC.                          DTSBR414
00915 **   WRITE PRT-REC1 FROM WS-REC AFTER 1.                          DTSBR414
00916 ***testing all bill printing                                      DTSBR414
00917      If line-cnt <  44 and R414-QTR-IDX <= R414-QTR-CNT           DTSBR414
00918         ADD  1                   TO LINE-CNT                      DTSBR414
00919         MOVE STMT-QTR-DETAIL     TO WS-REC                        DTSBR414
00920         WRITE PRT-REC1 FROM WS-REC AFTER 1                        DTSBR414
00921      else                                                         DTSBR414
00922         add r414-contrib-amt(r414-qtr-idx) to ws-max-camt         DTSBR414
00923         add r414-interest-amt(r414-qtr-idx) to ws-max-iamt        DTSBR414
00924         add r414-penalty-amt(r414-qtr-idx) to ws-max-pamt         DTSBR414
00925         add r414-surcharg-amt(r414-qtr-idx) to ws-max-samt        DTSBR414
00926         add r414-balance-amt(r414-qtr-idx) to ws-max-bamt         DTSBR414
00927         move spaces to ws-rec                                     DTSBR414
00928         if r414-qtr-idx = r414-qtr-cnt                            DTSBR414
00929            move 'Sub To'       to qtr-det-yr1                     DTSBR414
00930            move 'tal'          to qtr-det-yr2                     DTSBR414
00931            move  spaces        to QTR-DET-FNOTE1                  DTSBR414
00932                                   QTR-DET-FNOTE2                  DTSBR414
00933            move ws-max-camt    to qtr-det-contrib-amt             DTSBR414
00934            move ws-max-iamt    to qtr-det-interest-amt            DTSBR414
00935            move ws-max-pamt    to qtr-det-penalty-amt             DTSBR414
00936            move ws-max-samt    to qtr-det-surcharg-amt            DTSBR414
00937            move ws-max-bamt    to qtr-det-balance-amt             DTSBR414
00938            MOVE STMT-QTR-DETAIL     TO WS-REC                     DTSBR414
00939            WRITE PRT-REC1 FROM WS-REC after 1                     DTSBR414
00940            add 1               to line-cnt                        DTSBR414
00941            move zeros          to ws-max-camt                     DTSBR414
00942                                   ws-max-iamt                     DTSBR414
00943                                   ws-max-pamt                     DTSBR414
00944                                   ws-max-samt                     DTSBR414
00945                                   ws-max-bamt                     DTSBR414
00946         end-if                                                    DTSBR414
00947      end-if.                                                      DTSBR414
00948                                                                   DTSBR414
00949  p1300-EXIT.                                                      DTSBR414
00950      eXIT.                                                        DTSBR414
00951                                                                   DTSBR414
00952 **                                                                DTSBR414
00953  P1500-PRINT-MAILR-ADDR.                                          DTSBR414
00954 **                                                                DTSBR414
00955       MOVE L599-BARCODED-DATA  TO converted-barcode.              DTSBR414
00956                                                                   DTSBR414
00957        MOVE spaces             TO WS-REC.                         DTSBR414
00958        WRITE PRT-REC1 FROM WS-REC                                 DTSBR414
00959            AFTER ADVANCING PAGE.                                  DTSBR414
00960                                                                   DTSBR414
00961         WRITE PRT-REC1 FROM WS-BARC-LINE AFTER 04.                DTSBR414
00962 **                                                                DTSBR414
00963         MOVE LINE-ADDR-17   TO WS-XREC                            DTSBR414
00964         WRITE PRT-REC1 FROM WS-XREC                               DTSBR414
00965                 AFTER ADVANCING 13 lines                          DTSBR414
00966         MOVE LINE-ADDR-18   TO WS-XREC                            DTSBR414
00967         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR414
00968         MOVE LINE-ADDR-19   TO WS-XREC                            DTSBR414
00969         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR414
00970         MOVE LINE-ADDR-20   TO WS-XREC                            DTSBR414
00971         WRITE PRT-REC1 FROM WS-XREC AFTER 1                       DTSBR414
00972         MOVE LINE-ADDR-21   TO WS-XREC                            DTSBR414
00973         WRITE PRT-REC1 FROM WS-XREC AFTER 1.                      DTSBR414
00974  P1500-EXIT.                                                      DTSBR414
00975      EXIT.                                                        DTSBR414
00976      SKIP3                                                        DTSBR414
00977 **                                                                DTSBR414
00978  P1600-excel-mailr-sent.                                          DTSBR414
00979                                                                   DTSBR414
00980      MOVE R414-EMP-NO        TO EXCL-REC6-EMP-NO.                 DTSBR414
00981      MOVE R414-QTR-CNT       TO EXCL-REC6-QTR-CNT                 DTSBR414
00982      MOVE R414-FMT-LINE (1)  TO EXCL-REC6-EMP-NAME.               DTSBR414
00983                                                                   DTSBR414
00984      inspect excl-REC6-emp-name replacing all ',' by spaces       DTSBR414
00985                                                                   DTSBR414
00986      IF  AMT-DISPLAYED-YES-88                                     DTSBR414
00987          MOVE WS-TOTAL-CONTRIB-AMT  TO EXCL-rec6-CONTRIB-AMT      DTSBR414
00988          MOVE WS-TOTAL-INTEREST-AMT TO EXCL-rec6-INTEREST-AMT     DTSBR414
00989          MOVE WS-TOTAL-SURCHARG-AMT TO EXCL-rec6-SURCHARG-AMT     DTSBR414
00990          MOVE WS-TOTAL-PENALTY-AMT  TO EXCL-rec6-PENALTY-AMT      DTSBR414
00991          MOVE WS-TOTAL-BALANCE-AMT  TO EXCL-rec6-BALANCE-AMT      DTSBR414
00992      ELSE                                                         DTSBR414
00993          MOVE ZEROS                 TO EXCL-rec6-CONTRIB-AMT      DTSBR414
00994                                        EXCL-rec6-INTEREST-AMT     DTSBR414
00995                                        EXCL-rec6-SURCHARG-AMT     DTSBR414
00996                                        EXCL-rec6-PENALTY-AMT      DTSBR414
00997                                        EXCL-rec6-BALANCE-AMT.     DTSBR414
00998                                                                   DTSBR414
00999         WRITE PRT-REC6 FROM EXCL-REC6-LINE AFTER 1.               DTSBR414
01000  P1600-EXIT.                                                      DTSBR414
01001      EXIT.                                                        DTSBR414
01002      SKIP3                                                        DTSBR414
01003  P2000-PRINT-REPORT.                                              DTSBR414
01004      IF R414-FLD-REP-ID NOT = WS-FLD-REP-ID                       DTSBR414
01005         MOVE R414-FLD-REP-ID TO WS-FLD-REP-ID                     DTSBR414
01006                                 HDR3-ID                           DTSBR414
01007         PERFORM P2500-PRINT-HEADERS  THRU P2500-EXIT              DTSBR414
01008      ELSE                                                         DTSBR414
01009        IF REC2-LINE-CNT > 51                                      DTSBR414
01010         PERFORM P2500-PRINT-HEADERS  THRU P2500-EXIT.             DTSBR414
01011                                                                   DTSBR414
01012      MOVE R414-EMP-NO        TO REPT-EMP-NO                       DTSBR414
01013                                 excl-EMP-NO.                      DTSBR414
01014      MOVE R414-QTR-CNT       TO REPT-QTR-CNT                      DTSBR414
01015                                 excl-QTR-CNT                      DTSBR414
01016      MOVE R414-FMT-LINE (1)  TO REPT-EMP-NAME                     DTSBR414
01017                                 excl-EMP-NAME.                    DTSBR414
01018      inspect rept-emp-name replacing all ',' by spaces            DTSBR414
01019      inspect excl-emp-name replacing all ',' by spaces            DTSBR414
01020 ****nh                                                            DTSBR414
01021      MOVE +0              TO WS-TOTAL-CONTRIB-AMT                 DTSBR414
01022                              WS-TOTAL-PENALTY-AMT                 DTSBR414
01023                              WS-TOTAL-INTEREST-AMT                DTSBR414
01024                              WS-TOTAL-SURCHARG-AMT                DTSBR414
01025                              WS-STUB-BALANCE-AMT                  DTSBR414
01026                              WS-TOTAL-BALANCE-AMT.                DTSBR414
01027 ***nh                                                             DTSBR414
01028                                                                   DTSBR414
01029      PERFORM P2100-REPT-STMT-TOTALS THRU P2100-EXIT               DTSBR414
01030           VARYING R414-QTR-IDX FROM 1 BY 1                        DTSBR414
01031           UNTIL R414-QTR-IDX >  R414-QTR-CNT.                     DTSBR414
01032                                                                   DTSBR414
01033         MOVE  WS-TOTAL-CONTRIB-AMT   TO REPT-CONTRIB-AMT          DTSBR414
01034                                         excl-CONTRIB-AMT.         DTSBR414
01035         MOVE  WS-TOTAL-INTEREST-AMT  TO REPT-INTEREST-AMT         DTSBR414
01036                                         excl-INTEREST-AMT.        DTSBR414
01037         MOVE  WS-TOTAL-PENALTY-AMT   TO REPT-PENALTY-AMT          DTSBR414
01038                                         excl-PENALTY-AMT.         DTSBR414
01039         MOVE  WS-TOTAL-SURCHARG-AMT  TO REPT-SURCHARG-AMT         DTSBR414
01040                                         excl-SURCHARG-AMT.        DTSBR414
01041         MOVE  WS-TOTAL-BALANCE-AMT   TO REPT-BALANCE-AMT          DTSBR414
01042                                         excl-BALANCE-AMT.         DTSBR414
01043                                                                   DTSBR414
01044         WRITE PRT-REC2 FROM REPT-STMT-LINE AFTER 1.               DTSBR414
01045         WRITE PRT-REC4 FROM excl-STMT-LINE AFTER 1.               DTSBR414
01046         ADD 1 TO REC2-LINE-CNT                                    DTSBR414
01047                  WS-REPT-CNT.                                     DTSBR414
01048  P2000-EXIT.                                                      DTSBR414
01049      EXIT.                                                        DTSBR414
01050                                                                   DTSBR414
01051  P2100-REPT-STMT-TOTALS.                                          DTSBR414
01052      IF R414-BALANCE-AMT (R414-QTR-IDX) > +0                      DTSBR414
01053          ADD R414-CONTRIB-AMT (R414-QTR-IDX)                      DTSBR414
01054            TO WS-TOTAL-CONTRIB-AMT                                DTSBR414
01055          ADD R414-INTEREST-AMT (R414-QTR-IDX)                     DTSBR414
01056            TO  WS-TOTAL-INTEREST-AMT                              DTSBR414
01057          ADD R414-PENALTY-AMT (R414-QTR-IDX)                      DTSBR414
01058            TO WS-TOTAL-PENALTY-AMT                                DTSBR414
01059          ADD R414-SURCHARG-AMT (R414-QTR-IDX)                     DTSBR414
01060            TO  WS-TOTAL-SURCHARG-AMT                              DTSBR414
01061           ADD R414-BALANCE-AMT (R414-QTR-IDX)                     DTSBR414
01062            TO WS-TOTAL-BALANCE-AMT.                               DTSBR414
01063  P2100-EXIT.                                                      DTSBR414
01064      EXIT.                                                        DTSBR414
01065                                                                   DTSBR414
01066                                                                   DTSBR414
01067  P2500-PRINT-HEADERS.                                             DTSBR414
01068      ADD 1 TO REC2-PAGE-CNT.                                      DTSBR414
01069      move REC2-PAGE-CNT to hdr3-page.                             DTSBR414
01070      WRITE PRT-REC2 FROM HEADER1 AFTER ADVANCING PAGE.            DTSBR414
01071      WRITE PRT-REC2 FROM HEADER2 AFTER ADVANCING 1                DTSBR414
01072      WRITE PRT-REC2 FROM HEADER3 AFTER ADVANCING 1                DTSBR414
01073      WRITE PRT-REC2 FROM HEADER4 AFTER ADVANCING 1                DTSBR414
01074      WRITE PRT-REC2 FROM HEADER5 AFTER ADVANCING 1                DTSBR414
01075      WRITE PRT-REC2 FROM BLKLINE AFTER ADVANCING 1                DTSBR414
01076      MOVE 6 TO REC2-LINE-CNT.                                     DTSBR414
01077  P2500-EXIT.                                                      DTSBR414
01078      EXIT.                                                        DTSBR414
01079  T1000-TERMINATE.                                                 DTSBR414
01080      CLOSE  PRT-FILE1  PRT-FILE2  PRT-FILE4                       DTSBR414
01081             PRT-FILE6.                                            DTSBR414
01082                                                                   DTSBR414
01083      DISPLAY '***'.                                               DTSBR414
01084                                                                   DTSBR414
01085      DISPLAY '***  DTSBR414 (STATEMENT OF ACCOUNTS ) '            DTSBR414
01086              'TERMINATION STATISTICS'.                            DTSBR414
01087                                                                   DTSBR414
01088      DISPLAY '***'.                                               DTSBR414
01089                                                                   DTSBR414
01090      MOVE PRT-FILE1-PAGE-CNT TO DISPLAY-CNT-Z.                    DTSBR414
01091      DISPLAY '***  '                                              DTSBR414
01092              DISPLAY-CNT                                          DTSBR414
01093              ' -8X11 PAGE STATEMENTS PRINTED'.                    DTSBR414
01094                                                                   DTSBR414
01095      DISPLAY '   '.                                               DTSBR414
01096      DISPLAY ' EMPLOYERS WITH > 6 DELQ QTRS: ' WS-REPT-CNT.       DTSBR414
01097                                                                   DTSBR414
01098      DISPLAY '***END JOB****'.                                    DTSBR414
01099                                                                   DTSBR414
01100  T1000-EXIT.                                                      DTSBR414
01101      EXIT.                                                        DTSBR414
01102      EJECT                                                        DTSBR414
01103  S001-FROM-FED-8.                                                 DTSBR414
01104      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR414
01105      GO TO S001-DATE.                                             DTSBR414
01106                                                                   DTSBR414
01107  S001-DATE.                                                       DTSBR414
01108      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR414
01109  S001-EXIT.                                                       DTSBR414
01110      EXIT.                                                        DTSBR414
01111      SKIP3                                                        DTSBR414
01112  S005-FROM-SYS.                                                   DTSBR414
01113      SET L005-FROM-SYS   TO TRUE.                                 DTSBR414
01114      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBR414
01115  S005-EXIT.                                                       DTSBR414
01116      EXIT.                                                        DTSBR414
01117      SKIP3                                                        DTSBR414
01118                                                                   DTSBR414
01119  S599-BARCODE.                                                    DTSBR414
01120      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR414
01121      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR414
01122      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR414
01123                                                                   DTSBR414
01124      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR414
01125                                                                   DTSBR414
01126      IF L599-NOT-CONVERTED                                        DTSBR414
01127       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR414
01128  S599-EXIT.                                                       DTSBR414
01129      EXIT.                                                        DTSBR414
01130                                                                   DTSBR414
01131  S999-ABEND.                                                      DTSBR414
01132      DISPLAY ABEND-MSG.                                           DTSBR414
01133                                                                   DTSBR414
01134      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR414
01135  S999-EXIT.                                                       DTSBR414
01136      EXIT.                                                        DTSBR414
