00001  IDENTIFICATION DIVISION.                                         12/09/04
00002  PROGRAM-ID.             DTSBR436.                                DTSBR436
00003  AUTHOR.                 NGI.                                        LV001
00004  DATE-WRITTEN.           DECEMBER 2004.                           DTSBR436
00005  DATE-COMPILED.                                                   DTSBR436
00006      SKIP3                                                        DTSBR436
00007 *****                                                             DTSBR436
00008 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR436
00009 *                       DTSBD326 WHICH UPDATES DTSIR436           DTSBR436
00010 *                       DTSBR436 READS DTSIR436 RECORDS.          DTSBR436
00011 *                                                                 DTSBR436
00012 *    FUNCTION:  COMPROMISE SETTLEMENT LETTER                      DTSBR436
00013 *                                                                 DTSBR436
00014 *                                                                 DTSBR436
00015 *    MODIFICATION HISTORY:                                        DTSBR436
00016 *                                                                 DTSBR436
00017 * 12-03-44 INITIAL DEVELOPMENT                                    DTSBR436
00018 *          REFERENCE: DC MAINT                   PROGRAMMER: ZL1  DTSBR436
00019 *                                                                 DTSBR436
00020 *                                                                 DTSBR436
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR436
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR436
00023 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR436
00024 *                                                                 DTSBR436
00025 *                                                                 DTSBR436
00026 *    DESCRIPTION:                                                 DTSBR436
00027 *                                                                 DTSBR436
00028 *        THIS MODULE GENERATES LETTERS TO EMPLOYERS WHO HAVE      DTSBR436
00029 *        REACHED A COMPROMISE SETTLEMENT WITH DOES.               DTSBR436
00030 *                                                                 DTSBR436
00031 *                                                                 DTSBR436
00032 *    RECORDS READ:                                                DTSBR436
00033 *                                                                 DTSBR436
00034 *        NONE.                                                    DTSBR436
00035 *                                                                 DTSBR436
00036 *                                                                 DTSBR436
00037 *    PRINTED OUTPUTS:                                             DTSBR436
00038 *                                                                 DTSBR436
00039 *        436R1  COMPROMISE SETTLEMENT LETTER                      DTSBR436
00040 *                                                                 DTSBR436
00041 *                                                                 DTSBR436
00042 *    RECORDS WRITTEN:                                             DTSBR436
00043 *                                                                 DTSBR436
00044 *        NONE.                                                    DTSBR436
00045 *                                                                 DTSBR436
00046 *                                                                 DTSBR436
00047 *    MODULES CALLED:                                              DTSBR436
00048 *                                                                 DTSBR436
00049 *        DTSBU002  DATE ALPHA CONVERSION MODULE                   DTSBR436
00050 *        DTSBU071  NAME EDIT/CONVERSION MODULE                    DTSBR436
00051 *        DTSBU082  OPERATOR ID EDIT/LOOKUP MODULE                 DTSBR436
00052 *                                                                 DTSBR436
00053 *                                                                 DTSBR436
00054 *****                                                             DTSBR436
00055      EJECT                                                        DTSBR436
00056  ENVIRONMENT DIVISION.                                            DTSBR436
00057      SKIP2                                                        DTSBR436
00058  CONFIGURATION SECTION.                                           DTSBR436
00059  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR436
00060      SKIP1                                                        DTSBR436
00061  INPUT-OUTPUT SECTION.                                            DTSBR436
00062      SKIP1                                                        DTSBR436
00063  FILE-CONTROL.                                                    DTSBR436
00064      SELECT PRT-FILI  ASSIGN TO RPT436R1.                         DTSBR436
00065      SKIP3                                                        DTSBR436
00066  DATA DIVISION.                                                   DTSBR436
00067      SKIP3                                                        DTSBR436
00068  FILE SECTION.                                                    DTSBR436
00069      SKIP2                                                        DTSBR436
00070                                                                   DTSBR436
00071  FD  PRT-FILI                                                     DTSBR436
00072      RECORDING MODE IS F                                          DTSBR436
00073      BLOCK CONTAINS 0 RECORDS                                     DTSBR436
00074      LABEL RECORDS ARE OMITTED.                                   DTSBR436
00075  01  XEROX-REPORTI.                                               DTSBR436
00076      05  FILLER                      PIC X(1).                    DTSBR436
00077      05  XEROX-RPT-I                 PIC X(132).                  DTSBR436
00078                                                                   DTSBR436
00079      EJECT                                                        DTSBR436
00080  WORKING-STORAGE SECTION.                                         DTSBR436
000805 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR436  12/09/04'.       DTSBR436
00081      SKIP3                                                        DTSBR436
00082  01  WRK-AREA.                                                    DTSBR436
00083      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +436.DTSBR436
00084      05  ABEND-MSG                   PIC  X(50)  VALUE SPACE.     DTSBR436
00085      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR436
00086      05  WS-OPR-NAME                 PIC  X(32)  VALUE SPACE.     DTSBR436
00087      05  WS-OPR-UNIT-NAME            PIC  X(50)  VALUE SPACE.     DTSBR436
00088                                                                   DTSBR436
00089      05  WS-OPR-VOICE.                                            DTSBR436
00090          10  WS-OPR-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR436
00091          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR436
00092          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR436
00093          10  WS-OPR-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR436
00094                                                                   DTSBR436
00095  01  VSCA-LINE.                                                   DTSBR436
00096      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR436
00097                                                                   DTSBR436
00098      EJECT                                                        DTSBR436
00099  01  L002-LINK-AREA.                                              DTSBR436
00100  ++INCLUDE DTSIL002                                               DTSBR436
00101      EJECT                                                        DTSBR436
00102  01  L071-LINK-AREA.                                              DTSBR436
00103  ++INCLUDE DTSIL071                                               DTSBR436
00104      EJECT                                                        DTSBR436
00105  01  L082-LINK-AREA.                                              DTSBR436
00106  ++INCLUDE DTSIL082                                               DTSBR436
00107      EJECT                                                        DTSBR436
00108  ++INCLUDE DTSXL436                                               DTSBR436
00109      SKIP3                                                        DTSBR436
00110  01  LETTER-HEADING.                                              DTSBR436
00111      05  DML-LINE-1.                                              DTSBR436
00112          10  FILLER                  PIC  X(22) VALUE SPACES.     DTSBR436
00113          10  FILLER                  PIC  X(45) VALUE             DTSBR436
00114              'Total tax amount compromised(wavied).......= '.     DTSBR436
00115          10  WS-TAX-WAIVED-AMOUNT    PIC  $$$,$$$,$$9.99.         DTSBR436
00116      05  DML-LINE-2.                                              DTSBR436
00117          10  FILLER                  PIC  X(22) VALUE SPACES.     DTSBR436
00118          10  FILLER                  PIC  X(45) VALUE             DTSBR436
00119              'Total penalty amount compromised(wavied)...= '.     DTSBR436
00120          10  WS-PEN-WAIVED-AMOUNT    PIC  $$$,$$$,$$9.99.         DTSBR436
00121      05  DML-LINE-3.                                              DTSBR436
00122          10  FILLER                  PIC  X(22) VALUE SPACES.     DTSBR436
00123          10  FILLER                  PIC  X(45) VALUE             DTSBR436
00124              'Total interest amount compormised(wavied)..= '.     DTSBR436
00125          10  WS-INT-WAIVED-AMOUNT    PIC  $$$,$$$,$$9.99.         DTSBR436
00126      05  DML-LINE-4.                                              DTSBR436
00127          10  FILLER                  PIC  X(22) VALUE SPACES.     DTSBR436
00128          10  FILLER                  PIC  X(45) VALUE             DTSBR436
00129              'Total amount due...........................= '.     DTSBR436
00130          10  WS-SETT-DUE-AMOUNT      PIC  $$$,$$$,$$9.99.         DTSBR436
00131      05  DML-LINE-5.                                              DTSBR436
00132          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00133          10  FILLER                  PIC  X(18) VALUE             DTSBR436
00134                            'Covered quarters: '.                  DTSBR436
00135          10  WS-YRQ1                 PIC  X(06).                  DTSBR436
00136          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00137          10  WS-YRQ2                 PIC  X(06).                  DTSBR436
00138          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00139          10  WS-YRQ3                 PIC  X(06).                  DTSBR436
00140          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00141          10  WS-YRQ4                 PIC  X(06).                  DTSBR436
00142          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00143          10  WS-YRQ5                 PIC  X(06).                  DTSBR436
00144          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00145          10  WS-YRQ6                 PIC  X(06).                  DTSBR436
00146          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00147          10  WS-YRQ7                 PIC  X(06).                  DTSBR436
00148          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00149          10  WS-YRQ8                 PIC  X(06).                  DTSBR436
00150      05  DML-LINE-6.                                              DTSBR436
00151          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00152          10  WS-YRQ9                 PIC  X(06).                  DTSBR436
00153          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00154          10  WS-YRQ10                PIC  X(06).                  DTSBR436
00155          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00156          10  WS-YRQ11                PIC  X(06).                  DTSBR436
00157          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00158          10  WS-YRQ12                PIC  X(06).                  DTSBR436
00159          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00160          10  WS-YRQ13                PIC  X(06).                  DTSBR436
00161          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00162          10  WS-YRQ14                PIC  X(06).                  DTSBR436
00163          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00164          10  WS-YRQ15                PIC  X(06).                  DTSBR436
00165          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00166          10  WS-YRQ16                PIC  X(06).                  DTSBR436
00167          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00168          10  WS-YRQ17                PIC  X(06).                  DTSBR436
00169          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00170          10  WS-YRQ18                PIC  X(06).                  DTSBR436
00171          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00172          10  WS-YRQ19                PIC  X(06).                  DTSBR436
00173          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR436
00174          10  WS-YRQ20                PIC  X(06).                  DTSBR436
00175      05  LTH-LINE-16.                                             DTSBR436
00176          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00177          10  WS-LONG-TEXT-AREA       PIC  X(18).                  DTSBR436
00178      05  LTH-LINE-19.                                             DTSBR436
00179          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00180          10  WS-FMT-LINE-1           PIC  X(40).                  DTSBR436
00181      05  LTH-LINE-20.                                             DTSBR436
00182          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00183          10  WS-FMT-LINE-2           PIC  X(40).                  DTSBR436
00184      05  LTH-LINE-21.                                             DTSBR436
00185          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00186          10  WS-FMT-LINE-3           PIC  X(40).                  DTSBR436
00187      05  LTH-LINE-22.                                             DTSBR436
00188          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00189          10  WS-FMT-LINE-4           PIC  X(40).                  DTSBR436
00190      05  LTH-LINE-23.                                             DTSBR436
00191          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00192          10 WS-FMT-LINE-5            PIC  X(40).                  DTSBR436
00193      05  LTH-LINE-29.                                             DTSBR436
00194          10  FILLER                  PIC  X(08) VALUE SPACES.     DTSBR436
00195          10  FILLER                  PIC  X(13)                   DTSBR436
00196                 VALUE 'Account NO:  '.                            DTSBR436
00197          10  WS-EMP-NO               PIC  999B999.                DTSBR436
00198          10  FILLER                  PIC  X(20) VALUE SPACES.     DTSBR436
00199          10  FILLER                  PIC  X(17)                   DTSBR436
00200                 VALUE 'Settlement Date: '.                        DTSBR436
00201          10  WS-SETT-DATE            PIC  X(24).                  DTSBR436
00202      SKIP2                                                        DTSBR436
00203  01  LETTER-FOOTING.                                              DTSBR436
00204      05  LTF-LINE-1                  PIC  X(133) VALUE SPACES.    DTSBR436
00205      05  LTF-LINE-2.                                              DTSBR436
00206          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR436
00207          10  FILLER                  PIC  X(40)                   DTSBR436
00208                 VALUE 'Sincerely,                              '. DTSBR436
00209      05  LTF-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR436
00210      05  LTF-LINE-7.                                              DTSBR436
00211          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR436
00212          10  WS-OPR-NAME-FOOTER      PIC  X(32).                  DTSBR436
00213      05  LTF-LINE-8.                                              DTSBR436
00214          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR436
00215          10  FILLER                  PIC  X(50)                   DTSBR436
00216                 VALUE 'Registration and Rates'.                   DTSBR436
00217      05  LTF-LINE-9.                                              DTSBR436
00218          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR436
00219          10  FILLER                  PIC  X(16)                   DTSBR436
00220                 VALUE 'Telephone (202) '.                         DTSBR436
00221          10  WS-OPR-VOICE-ONE        PIC  X(03).                  DTSBR436
00222          10  FILLER                  PIC  X(01)                   DTSBR436
00223                 VALUE '-'.                                        DTSBR436
00224          10  WS-OPR-VOICE-TWO        PIC  X(04).                  DTSBR436
00225   LINKAGE SECTION.                                                DTSBR436
00226       SKIP3                                                       DTSBR436
00227  01  LRCM-LINK-AREA.                                              DTSBR436
00228  ++INCLUDE DTSILRCM                                               DTSBR436
00229       EJECT                                                       DTSBR436
00230  01  R436-REC.                                                    DTSBR436
00231  ++INCLUDE DTSIR436                                               DTSBR436
00232       EJECT                                                       DTSBR436
00233      EJECT                                                        DTSBR436
00234  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR436
00235                           R436-REC.                               DTSBR436
00236      SKIP2                                                        DTSBR436
00237      IF FIRST-TIME-IND = 'Y'                                      DTSBR436
00238          PERFORM I1000-INITIATE                                   DTSBR436
00239             THRU I1000-EXIT                                       DTSBR436
00240          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR436
00241      SKIP1                                                        DTSBR436
00242      IF LRCM-EOR-88                                               DTSBR436
00243          PERFORM T1000-TERMINATE                                  DTSBR436
00244             THRU T1000-EXIT                                       DTSBR436
00245      ELSE                                                         DTSBR436
00246          PERFORM P1000-PROCESS                                    DTSBR436
00247             THRU P1000-EXIT.                                      DTSBR436
00248      SKIP2                                                        DTSBR436
00249      GOBACK.                                                      DTSBR436
00250      EJECT                                                        DTSBR436
00251  I1000-INITIATE.                                                  DTSBR436
00252                                                                   DTSBR436
00253      OPEN OUTPUT PRT-FILI.                                        DTSBR436
00254      MOVE SPACES TO XEROX-REPORTI.                                DTSBR436
00255                                                                   DTSBR436
00256      WRITE XEROX-REPORTI    FROM VSCA-LINE                        DTSBR436
00257          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR436
00258      WRITE XEROX-REPORTI    FROM VSCA-LINE AFTER ADVANCING 8.     DTSBR436
00259      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE10                DTSBR436
00260      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE11.               DTSBR436
00261      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE12.               DTSBR436
00262      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE13.               DTSBR436
00263      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE14.               DTSBR436
00264      WRITE XEROX-REPORTI    FROM XEROX-CNTL-CLASSI.               DTSBR436
00265                                                                   DTSBR436
00266                                                                   DTSBR436
00267  I1000-EXIT.                                                      DTSBR436
00268      EXIT.                                                        DTSBR436
00269      EJECT                                                        DTSBR436
00270  P1000-PROCESS.                                                   DTSBR436
00271      MOVE R436-RESP-OP-ID TO L082-OP-ID.                          DTSBR436
00272                                                                   DTSBR436
00273      PERFORM S082-OP-ID-INFO                                      DTSBR436
00274         THRU S082-EXIT.                                           DTSBR436
00275                                                                   DTSBR436
00276      IF L082-NOT-VALID-OP                                         DTSBR436
00277      OR L082-INTERNAL-88                                          DTSBR436
00278          MOVE SPACES             TO WS-OPR-NAME                   DTSBR436
00279          MOVE LRCM-DEFAULT-NAME  TO WS-OPR-UNIT-NAME              DTSBR436
00280          MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE                  DTSBR436
00281      ELSE                                                         DTSBR436
00282          MOVE L082-VOICE-1       TO WS-OPR-VOICE                  DTSBR436
00283          MOVE L082-UNIT-NAME     TO WS-OPR-UNIT-NAME              DTSBR436
00284          MOVE L082-NAME          TO L071-NAM                      DTSBR436
00285          MOVE 2                  TO L071-NAME-FORMAT              DTSBR436
00286          PERFORM S071-DESLASH-NAME                                DTSBR436
00287             THRU S071-EXIT                                        DTSBR436
00288          MOVE L071-NAM           TO WS-OPR-NAME.                  DTSBR436
00289                                                                   DTSBR436
00290      MOVE R436-MAIL-DATE         TO L002-DATE.                    DTSBR436
00291      SET L002-MIXED-CASE         TO TRUE.                         DTSBR436
00292                                                                   DTSBR436
00293      PERFORM S002-DATE-ALPHA                                      DTSBR436
00294         THRU S002-EXIT.                                           DTSBR436
00295                                                                   DTSBR436
00296      PERFORM P3000-PRINT-HEADER    THRU P3000-EXIT.               DTSBR436
00297      PERFORM P4000-SETLMNT-LETTER  THRU P4000-EXIT.               DTSBR436
00298      PERFORM P5000-PRINT-FOOTER    THRU P5000-EXIT.               DTSBR436
00299                                                                   DTSBR436
00300  P1000-EXIT.                                                      DTSBR436
00301      EXIT.                                                        DTSBR436
00302      EJECT                                                        DTSBR436
00303                                                                   DTSBR436
00304  P3000-PRINT-HEADER.                                              DTSBR436
00305      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR436
00306      MOVE R436-MAILING-LINE (1) TO WS-FMT-LINE-1.                 DTSBR436
00307      MOVE R436-MAILING-LINE (2) TO WS-FMT-LINE-2.                 DTSBR436
00308      MOVE R436-MAILING-LINE (3) TO WS-FMT-LINE-3.                 DTSBR436
00309      MOVE R436-MAILING-LINE (4) TO WS-FMT-LINE-4.                 DTSBR436
00310      MOVE R436-MAILING-LINE (5) TO WS-FMT-LINE-5.                 DTSBR436
00311      MOVE R436-EMP-NO       TO WS-EMP-NO.                         DTSBR436
00312                                                                   DTSBR436
00313      MOVE R436-SETTLEMENT-DATE   TO L002-DATE.                    DTSBR436
00314      SET L002-MIXED-CASE         TO TRUE.                         DTSBR436
00315                                                                   DTSBR436
00316      PERFORM S002-DATE-ALPHA  THRU S002-EXIT.                     DTSBR436
00317                                                                   DTSBR436
00318      MOVE L002-LONG-TEXT-AREA TO WS-SETT-DATE.                    DTSBR436
00319      WRITE XEROX-REPORTI FROM VSCA-LINE                           DTSBR436
00320                          AFTER ADVANCING TOP-OF-PAGE.             DTSBR436
00321      WRITE XEROX-REPORTI FROM VSCA-LINE AFTER ADVANCING  3 LINE.  DTSBR436
00322      WRITE XEROX-REPORTI FROM LTH-LINE-16 AFTER ADVANCING 1 LINE. DTSBR436
00323      WRITE XEROX-REPORTI FROM LTH-LINE-19 AFTER ADVANCING 1 LINE. DTSBR436
00324      WRITE XEROX-REPORTI FROM LTH-LINE-20 AFTER ADVANCING 1 LINE. DTSBR436
00325      WRITE XEROX-REPORTI FROM LTH-LINE-21 AFTER ADVANCING 1 LINE. DTSBR436
00326      WRITE XEROX-REPORTI FROM LTH-LINE-22 AFTER ADVANCING 1 LINE. DTSBR436
00327      WRITE XEROX-REPORTI FROM LTH-LINE-23 AFTER ADVANCING 1 LINE. DTSBR436
00328      WRITE XEROX-REPORTI FROM LTH-LINE-29 AFTER ADVANCING 2 LINE. DTSBR436
00329                                                                   DTSBR436
00330  P3000-EXIT.                                                      DTSBR436
00331      EXIT.                                                        DTSBR436
00332                                                                   DTSBR436
00333      EXIT.                                                        DTSBR436
00334                                                                   DTSBR436
00335  P4000-SETLMNT-LETTER.                                            DTSBR436
00336      MOVE R436-COVERED-YRQ(1)   TO WS-YRQ1                        DTSBR436
00337      MOVE R436-COVERED-YRQ(2)   TO WS-YRQ2                        DTSBR436
00338      MOVE R436-COVERED-YRQ(3)   TO WS-YRQ3                        DTSBR436
00339      MOVE R436-COVERED-YRQ(4)   TO WS-YRQ4                        DTSBR436
00340      MOVE R436-COVERED-YRQ(5)   TO WS-YRQ5                        DTSBR436
00341      MOVE R436-COVERED-YRQ(6)   TO WS-YRQ6                        DTSBR436
00342      MOVE R436-COVERED-YRQ(7)   TO WS-YRQ7                        DTSBR436
00343      MOVE R436-COVERED-YRQ(8)   TO WS-YRQ8                        DTSBR436
00344      MOVE R436-COVERED-YRQ(9)   TO WS-YRQ9                        DTSBR436
00345      MOVE R436-COVERED-YRQ(10)  TO WS-YRQ10                       DTSBR436
00346      MOVE R436-COVERED-YRQ(11)  TO WS-YRQ11                       DTSBR436
00347      MOVE R436-COVERED-YRQ(12)  TO WS-YRQ12                       DTSBR436
00348      MOVE R436-COVERED-YRQ(13)  TO WS-YRQ13                       DTSBR436
00349      MOVE R436-COVERED-YRQ(14)  TO WS-YRQ14                       DTSBR436
00350      MOVE R436-COVERED-YRQ(15)  TO WS-YRQ15                       DTSBR436
00351      MOVE R436-COVERED-YRQ(16)  TO WS-YRQ16                       DTSBR436
00352      MOVE R436-COVERED-YRQ(17)  TO WS-YRQ17                       DTSBR436
00353      MOVE R436-COVERED-YRQ(18)  TO WS-YRQ18                       DTSBR436
00354      MOVE R436-COVERED-YRQ(19)  TO WS-YRQ19                       DTSBR436
00355      MOVE R436-COVERED-YRQ(20)  TO WS-YRQ20.                      DTSBR436
00356                                                                   DTSBR436
00357      MOVE R436-INT-WAIVED-AMT    TO WS-INT-WAIVED-AMOUNT.         DTSBR436
00358      MOVE R436-PEN-WAIVED-AMT    TO WS-PEN-WAIVED-AMOUNT.         DTSBR436
00359      MOVE R436-TAX-WAIVED-AMT    TO WS-TAX-WAIVED-AMOUNT.         DTSBR436
00360      MOVE R436-SETTLEMENT-DUE-AMT TO WS-SETT-DUE-AMOUNT.          DTSBR436
00361      WRITE XEROX-REPORTI FROM DML-LINE-5 AFTER ADVANCING 13 LINES.DTSBR436
00362      WRITE XEROX-REPORTI FROM DML-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR436
00363      WRITE XEROX-REPORTI FROM DML-LINE-1 AFTER ADVANCING 2 LINES. DTSBR436
00364      WRITE XEROX-REPORTI FROM DML-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR436
00365      WRITE XEROX-REPORTI FROM DML-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR436
00366      WRITE XEROX-REPORTI FROM DML-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR436
00367                                                                   DTSBR436
00368  P4000-EXIT.                                                      DTSBR436
00369      EXIT.                                                        DTSBR436
00370                                                                   DTSBR436
00371                                                                   DTSBR436
00372  P5000-PRINT-FOOTER.                                              DTSBR436
00373      MOVE WS-OPR-VOICE-1      TO WS-OPR-VOICE-ONE.                DTSBR436
00374      MOVE WS-OPR-VOICE-2      TO WS-OPR-VOICE-TWO.                DTSBR436
00375      MOVE WS-OPR-NAME         TO WS-OPR-NAME-FOOTER.              DTSBR436
00376      WRITE XEROX-REPORTI FROM LTF-LINE-1 AFTER ADVANCING 3 LINE.  DTSBR436
00377      WRITE XEROX-REPORTI FROM LTF-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR436
00378      WRITE XEROX-REPORTI FROM LTF-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR436
00379      WRITE XEROX-REPORTI FROM LTF-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR436
00380      WRITE XEROX-REPORTI FROM LTF-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR436
00381      WRITE XEROX-REPORTI FROM LTF-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR436
00382                                                                   DTSBR436
00383  P5000-EXIT.                                                      DTSBR436
00384      EXIT.                                                        DTSBR436
00385                                                                   DTSBR436
00386                                                                   DTSBR436
00387  T1000-TERMINATE.                                                 DTSBR436
00388      SKIP1                                                        DTSBR436
00389      CLOSE PRT-FILI.                                              DTSBR436
00390      SKIP2                                                        DTSBR436
00391  T1000-EXIT.                                                      DTSBR436
00392      EXIT.                                                        DTSBR436
00393      EJECT                                                        DTSBR436
00394  S002-DATE-ALPHA.                                                 DTSBR436
00395      SKIP1                                                        DTSBR436
00396      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR436
00397      SKIP2                                                        DTSBR436
00398  S002-EXIT.                                                       DTSBR436
00399      EXIT.                                                        DTSBR436
00400      SKIP3                                                        DTSBR436
00401  S071-DESLASH-NAME.                                               DTSBR436
00402      SKIP1                                                        DTSBR436
00403      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR436
00404      SKIP2                                                        DTSBR436
00405  S071-EXIT.                                                       DTSBR436
00406      EXIT.                                                        DTSBR436
00407      SKIP3                                                        DTSBR436
00408  S082-OP-ID-INFO.                                                 DTSBR436
00409      SKIP1                                                        DTSBR436
00410      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR436
00411      SKIP2                                                        DTSBR436
00412  S082-EXIT.                                                       DTSBR436
00413      EXIT.                                                        DTSBR436
00414      SKIP3                                                        DTSBR436
00415  S999-ABEND.                                                      DTSBR436
00416      SKIP1                                                        DTSBR436
00417      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR436
00418      SKIP2                                                        DTSBR436
00419  S999-EXIT.                                                       DTSBR436
00420      EXIT.                                                        DTSBR436
00421                                                                   DTSBR436
