00001  IDENTIFICATION DIVISION.                                         06/18/03
00002  PROGRAM-ID.             DTSBR530.                                DTSBR530
00003  AUTHOR.                 TRW INC.                                    LV003
00004  DATE-WRITTEN.           APRIL 2001.                              DTSBR530
00005  DATE-COMPILED.                                                   DTSBR530
00006                                                                   DTSBR530
00007 *****                                                             DTSBR530
00008 *                                                                 DTSBR530
00009 *    FUNCTION:  EMPLOYER AVERAGE AND TOTAL TAX RATE REPORT.       DTSBR530
00010 *                  (DOL REPORT ETA-205)                           DTSBR530
00011 *                                                                 DTSBR530
00012 *    MODIFICATION HISTORY:                                        DTSBR530
00013 *                                                                 DTSBR530
00014 * 04-03-01 INITIAL DEVELOPMENT                                    DTSBR530
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1  DTSBR530
00016 *                                                                 DTSBR530
00017 * 06-17-2003 CORRECTED MISTAKE IN DISPLAY OF YEAR-3 DATA          DTSBR530
00018 *            REFERENCE                      AUTHOR OF CHANGE - GD DTSBR530
00019 *                                                                 DTSBR530
00020 * MM-DD-CCYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR530
00021 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR530
00022 *            REFERENCE RFP #****            AUTHOR OF CHANGE - XXXDTSBR530
00023 *                                                                 DTSBR530
00024 *                                                                 DTSBR530
00025 *    DESCRIPTION:                                                 DTSBR530
00026 *                                                                 DTSBR530
00027 *        THIS MODULE REPORTS ON THE AVERAGE TAX RATE AND THE      DTSBR530
00028 *        AVERAGE TOTAL RATE FOR THE LAST THREE YEARS ON EITHER    DTSBR530
00029 *        REGULAR OR GOVERNMENT ACCOUNTS.                          DTSBR530
00030 *                                                                 DTSBR530
00031 *                                                                 DTSBR530
00032 *    RECORDS READ:                                                DTSBR530
00033 *                                                                 DTSBR530
00034 *        NONE.                                                    DTSBR530
00035 *                                                                 DTSBR530
00036 *                                                                 DTSBR530
00037 *    PRINTED OUTPUTS:                                             DTSBR530
00038 *                                                                 DTSBR530
00039 *        530R1  EMPLOYER AVERAGE TAX RATE AND AVERAGR TOTAL RATE. DTSBR530
00040 *                                                                 DTSBR530
00041 *                                                                 DTSBR530
00042 *    RECORDS WRITTEN:                                             DTSBR530
00043 *                                                                 DTSBR530
00044 *        NONE.                                                    DTSBR530
00045 *                                                                 DTSBR530
00046 *                                                                 DTSBR530
00047 *    MODULES CALLED:                                              DTSBR530
00048 *                                                                 DTSBR530
00049 *        DTSBU001 - DATE CONVERSION MODULE.                       DTSBR530
00050 *                                                                 DTSBR530
00051 *                                                                 DTSBR530
00052 *****                                                             DTSBR530
00053      EJECT                                                        DTSBR530
00054  ENVIRONMENT DIVISION.                                            DTSBR530
00055                                                                   DTSBR530
00056  CONFIGURATION SECTION.                                           DTSBR530
00057  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR530
00058                                                                   DTSBR530
00059  INPUT-OUTPUT SECTION.                                            DTSBR530
00060                                                                   DTSBR530
00061  FILE-CONTROL.                                                    DTSBR530
00062      SELECT PRT-FILE ASSIGN TO RPT530R1.                          DTSBR530
00063                                                                   DTSBR530
00064  DATA DIVISION.                                                   DTSBR530
00065                                                                   DTSBR530
00066  FILE SECTION.                                                    DTSBR530
00067                                                                   DTSBR530
00068  FD  PRT-FILE                                                     DTSBR530
00069      RECORDING MODE IS F.                                         DTSBR530
00070  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR530
00071                                                                   DTSBR530
00072  WORKING-STORAGE SECTION.                                         DTSBR530
000725 77  PAN-VALET PICTURE X(24) VALUE '003DTSBR530  06/18/03'.       DTSBR530
00073                                                                   DTSBR530
00074  01  WRK-AREA.                                                    DTSBR530
00075      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +530.DTSBR530
00076      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR530
00077                                                                   DTSBR530
00078      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR530
00079      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR530
00080      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR530
00081                                                                   DTSBR530
00082  01  PAGE-HEADING.                                                DTSBR530
00083                                                                   DTSBR530
00084      05  HDR-LINE-1.                                              DTSBR530
00085          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR530
00086          10  FILLER                  PIC  X(05)                   DTSBR530
00087                 VALUE '530R1'.                                    DTSBR530
00088          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR530
00089          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR530
00090          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR530
00091          10  FILLER                  PIC  X(05)                   DTSBR530
00092                 VALUE 'DATE:'.                                    DTSBR530
00093          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR530
00094          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR530
00095                                                                   DTSBR530
00096      05  HDR-LINE-2.                                              DTSBR530
00097          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR530
00098          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR530
00099          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR530
00100          10  FILLER                  PIC  X(05)                   DTSBR530
00101                 VALUE 'TIME:'.                                    DTSBR530
00102          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR530
00103          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR530
00104                                                                   DTSBR530
00105      05  HDR-LINE-3.                                              DTSBR530
00106          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR530
00107          10  FILLER                  PIC  X(35)                   DTSBR530
00108                 VALUE 'ROUTE TO:  UI DIRECTOR           '.        DTSBR530
00109          10  FILLER                  PIC  X(83)  VALUE SPACES.    DTSBR530
00110          10  FILLER                  PIC  X(05)                   DTSBR530
00111                 VALUE 'PAGE:'.                                    DTSBR530
00112          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR530
00113          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR530
00114                                                                   DTSBR530
00115      05  HDR-LINE-4.                                              DTSBR530
00116          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR530
00117          10  FILLER                  PIC  X(35)                   DTSBR530
00118                VALUE '              ETA-205              '.       DTSBR530
00119          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR530
00120                                                                   DTSBR530
00121      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR530
00122                                                                   DTSBR530
00123      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR530
00124                                                                   DTSBR530
00125      05  HDR-LINE-7.                                              DTSBR530
00126          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00127          10  FILLER                  PIC  X(20)                   DTSBR530
00128                VALUE 'STATE: DC           '.                      DTSBR530
00129          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR530
00130          10  FILLER                  PIC  X(30)                   DTSBR530
00131                VALUE 'AVERAGE EMPLOYER TAX RATES:'.               DTSBR530
00132          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00133          10  HDR-RPT-YR-END          PIC  X(10)  VALUE SPACES.    DTSBR530
00134 ****     10  FILLER                  PIC  X(77)  VALUE SPACES.    DTSBR530
00135                                                                   DTSBR530
00136      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR530
00137                                                                   DTSBR530
00138      05  HDR-LINE-9.                                              DTSBR530
00139          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00140          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR530
00141          10  FILLER                  PIC  X(05)                   DTSBR530
00142                 VALUE 'YEAR:'.                                    DTSBR530
00143          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00144          10  HDR-YR-1-DATE           PIC  X(10).                  DTSBR530
00145          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR530
00146          10  FILLER                  PIC  X(05)                   DTSBR530
00147                 VALUE 'YEAR:'.                                    DTSBR530
00148          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00149          10  HDR-YR-2-DATE           PIC  X(10).                  DTSBR530
00150          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR530
00151          10  FILLER                  PIC  X(05)                   DTSBR530
00152                 VALUE 'YEAR:'.                                    DTSBR530
00153          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00154          10  HDR-YR-3-DATE           PIC  X(10).                  DTSBR530
00155          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR530
00156                                                                   DTSBR530
00157      05  HDR-LINE-10                 PIC  X(133) VALUE SPACES.    DTSBR530
00158                                                                   DTSBR530
00159      05  HDR-LINE-11.                                             DTSBR530
00160          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00161          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR530
00162          10  FILLER                  PIC  X(07)                   DTSBR530
00163                 VALUE 'TAXABLE'.                                  DTSBR530
00164          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR530
00165          10  FILLER                  PIC  X(05)                   DTSBR530
00166                 VALUE 'TOTAL'.                                    DTSBR530
00167          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR530
00168          10  FILLER                  PIC  X(07)                   DTSBR530
00169                 VALUE 'TAXABLE'.                                  DTSBR530
00170          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR530
00171          10  FILLER                  PIC  X(05)                   DTSBR530
00172                 VALUE 'TOTAL'.                                    DTSBR530
00173          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR530
00174          10  FILLER                  PIC  X(07)                   DTSBR530
00175                 VALUE 'TAXABLE'.                                  DTSBR530
00176          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR530
00177          10  FILLER                  PIC  X(05)                   DTSBR530
00178                 VALUE 'TOTAL'.                                    DTSBR530
00179          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR530
00180          10  FILLER                  PIC  X(36)  VALUE SPACES.    DTSBR530
00181                                                                   DTSBR530
00182      05  HDR-LINE-12                 PIC  X(133) VALUE SPACES.    DTSBR530
00183                                                                   DTSBR530
00184  01  DETAIL-LINE1.                                                DTSBR530
00185      05  DTL1-LINE-1.                                             DTSBR530
00186          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR530
00187          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR530
00188          10  DTL-YR-1-TAX-RATE       PIC  9.99.                   DTSBR530
00189          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR530
00190          10  DTL-YR-1-TOT-RATE       PIC  9.99.                   DTSBR530
00191          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR530
00192          10  DTL-YR-2-TAX-RATE       PIC  9.99.                   DTSBR530
00193          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR530
00194          10  DTL-YR-2-TOT-RATE       PIC  9.99.                   DTSBR530
00195          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR530
00196          10  DTL-YR-3-TAX-RATE       PIC  9.99.                   DTSBR530
00197          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR530
00198          10  DTL-YR-3-TOT-RATE       PIC  9.99.                   DTSBR530
00199          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR530
00200                                                                   DTSBR530
00201  01  NO-REPORT-LINE.                                              DTSBR530
00202      05  NO-RPT-LINE-5.                                           DTSBR530
00203          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR530
00204          10  FILLER                  PIC  X(19)                   DTSBR530
00205                 VALUE 'INPUT FILE IS EMPTY'.                      DTSBR530
00206                                                                   DTSBR530
00207  01  CONTROL-FOOTING-FINAL.                                       DTSBR530
00208      05  CFF-LINE-4.                                              DTSBR530
00209          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR530
00210          10  FILLER                  PIC  X(17)                   DTSBR530
00211                 VALUE '*** END OF REPORT'.                        DTSBR530
00212      EJECT                                                        DTSBR530
00213                                                                   DTSBR530
00214  01  L001-LINK-AREA.                                              DTSBR530
00215  ++INCLUDE DTSIL001                                               DTSBR530
00216                                                                   DTSBR530
00217  LINKAGE SECTION.                                                 DTSBR530
00218                                                                   DTSBR530
00219  01  LRCM-LINK-AREA.                                              DTSBR530
00220  ++INCLUDE DTSILRCM                                               DTSBR530
00221      EJECT                                                        DTSBR530
00222  01  R530-REC.                                                    DTSBR530
00223  ++INCLUDE DTSIR530                                               DTSBR530
00224      EJECT                                                        DTSBR530
00225  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR530
00226                           R530-REC.                               DTSBR530
00227      IF FIRST-TIME-IND = 'Y'                                      DTSBR530
00228          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR530
00229          MOVE 'N' TO FIRST-TIME-IND                               DTSBR530
00230          IF LRCM-EOR-88                                           DTSBR530
00231              PERFORM P2000-PRINT-HEADER THRU P2000-EXIT           DTSBR530
00232              WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5.    DTSBR530
00233                                                                   DTSBR530
00234      IF LRCM-EOR-88                                               DTSBR530
00235          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR530
00236      ELSE                                                         DTSBR530
00237          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR530
00238                                                                   DTSBR530
00239      GOBACK.                                                      DTSBR530
00240                                                                   DTSBR530
00241  I1000-INITIATE.                                                  DTSBR530
00242                                                                   DTSBR530
00243      OPEN OUTPUT PRT-FILE.                                        DTSBR530
00244      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR530
00245      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR530
00246      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR530
00247      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR530
00248      MOVE SPACES TO REPORT-LISTING1.                              DTSBR530
00249                                                                   DTSBR530
00250      MOVE R530-RPT-YR-END   TO L001-FED-8-DATE-9.                 DTSBR530
00251      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR530
00252      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR530
00253 **** MOVE L001-SLASH-8-DATE TO HDR-RPT-YR-END.                    DTSBR530
00254                                                                   DTSBR530
00255      MOVE R530-YR-1-DATE    TO L001-FED-8-DATE-9.                 DTSBR530
00256      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR530
00257      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR530
00258      MOVE L001-SLASH-8-DATE TO HDR-YR-1-DATE.                     DTSBR530
00259                                                                   DTSBR530
00260      MOVE R530-YR-2-DATE    TO L001-FED-8-DATE-9.                 DTSBR530
00261      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR530
00262      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR530
00263      MOVE L001-SLASH-8-DATE TO HDR-YR-2-DATE.                     DTSBR530
00264                                                                   DTSBR530
00265      MOVE R530-YR-3-DATE    TO L001-FED-8-DATE-9.                 DTSBR530
00266      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR530
00267      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR530
00268      MOVE L001-SLASH-8-DATE TO HDR-YR-3-DATE.                     DTSBR530
00269                                                                   DTSBR530
00270  I1000-EXIT.                                                      DTSBR530
00271      EXIT.                                                        DTSBR530
00272                                                                   DTSBR530
00273  P1000-PROCESS.                                                   DTSBR530
00274                                                                   DTSBR530
00275      MULTIPLY R530-YR-1-AVG-TAX-RATE BY 100 GIVING                DTSBR530
00276                 DTL-YR-1-TAX-RATE ROUNDED.                        DTSBR530
00277      MULTIPLY R530-YR-1-AVG-TOT-RATE BY 100 GIVING                DTSBR530
00278                 DTL-YR-1-TOT-RATE ROUNDED.                        DTSBR530
00279                                                                   DTSBR530
00280      MULTIPLY R530-YR-2-AVG-TAX-RATE BY 100 GIVING                DTSBR530
00281                 DTL-YR-2-TAX-RATE ROUNDED.                        DTSBR530
00282      MULTIPLY R530-YR-2-AVG-TOT-RATE BY 100 GIVING                DTSBR530
00283                 DTL-YR-2-TOT-RATE ROUNDED.                        DTSBR530
00284                                                                   DTSBR530
00285      MULTIPLY R530-YR-3-AVG-TAX-RATE BY 100 GIVING                DTSBR530
00286                 DTL-YR-3-TAX-RATE ROUNDED.                        DTSBR530
00287      MULTIPLY R530-YR-3-AVG-TOT-RATE BY 100 GIVING                DTSBR530
00288                 DTL-YR-3-TOT-RATE ROUNDED.                        DTSBR530
00289                                                                   DTSBR530
00290      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR530
00291      WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1.              DTSBR530
00292      ADD +1    TO WS-LINE-CNT2.                                   DTSBR530
00293                                                                   DTSBR530
00294  P1000-EXIT.                                                      DTSBR530
00295      EXIT.                                                        DTSBR530
00296      EJECT                                                        DTSBR530
00297                                                                   DTSBR530
00298  P2000-PRINT-HEADER.                                              DTSBR530
00299                                                                   DTSBR530
00300      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR530
00301           WS-LINE-CNT2 GREATER 58                                 DTSBR530
00302         MOVE +0          TO WS-LINE-CNT                           DTSBR530
00303         MOVE +0          TO WS-LINE-CNT2                          DTSBR530
00304         ADD  +1          TO WS-PAGE-CNT                           DTSBR530
00305         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR530
00306         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR530
00307                 AFTER TOP-OF-PAGE                                 DTSBR530
00308         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR530
00309         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR530
00310         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR530
00311         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR530
00312         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR530
00313         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR530
00314         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR530
00315         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR530
00316         WRITE REPORT-LISTING1 FROM HDR-LINE-10 AFTER 1            DTSBR530
00317         WRITE REPORT-LISTING1 FROM HDR-LINE-11 AFTER 1            DTSBR530
00318         WRITE REPORT-LISTING1 FROM HDR-LINE-12 AFTER 1            DTSBR530
00319         ADD +12   TO WS-LINE-CNT2.                                DTSBR530
00320                                                                   DTSBR530
00321  P2000-EXIT.                                                      DTSBR530
00322      EXIT.                                                        DTSBR530
00323                                                                   DTSBR530
00324  T1000-TERMINATE.                                                 DTSBR530
00325                                                                   DTSBR530
00326      IF WS-LINE-CNT2 > 53                                         DTSBR530
00327         ADD +8    TO WS-LINE-CNT2                                 DTSBR530
00328         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR530
00329      END-IF.                                                      DTSBR530
00330                                                                   DTSBR530
00331      WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4.               DTSBR530
00332      CLOSE PRT-FILE.                                              DTSBR530
00333                                                                   DTSBR530
00334  T1000-EXIT.                                                      DTSBR530
00335      EXIT.                                                        DTSBR530
00336      EJECT                                                        DTSBR530
00337                                                                   DTSBR530
00338  S001-DATE.                                                       DTSBR530
00339      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR530
00340  S001-EXIT.                                                       DTSBR530
00341      EXIT.                                                        DTSBR530
00342                                                                   DTSBR530
00343 *S999-ABEND.                                                      DTSBR530
00344 *                                                                 DTSBR530
00345 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR530
00346 *                                                                 DTSBR530
00347 *S999-EXIT.                                                       DTSBR530
00348 *    EXIT.                                                        DTSBR530
00349                                                                   DTSBR530
