00001  IDENTIFICATION DIVISION.                                         07/18/11
00002  PROGRAM-ID.             DTSBR517.                                DTSBR517
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV027
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR517
00005  DATE-COMPILED.                                                   DTSBR517
00006                                                                   DTSBR517
00007 *****                                                             DTSBR517
00008 *                                                                 DTSBR517
00009 *    FUNCTION:  EXPERIENCE RATING REPORT (ETA 204)                DTSBR517
00010 *                                                                 DTSBR517
00011 *                                                                 DTSBR517
00012 *    MODIFICATION HISTORY:                                        DTSBR517
00013 *                                                                 DTSBR517
00014 * 12-19-94 INITIAL DEVELOPMENT                                    DTSBR517
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR517
00016 *                                                                 DTSBR517
00017 * 12-24-97 MODIFIED TO REFLECT THE 07/30/97 ETA 204 FEDERAL       DTSBR517
00018 *          SPECIFICATION (ET HANDBOOK 401, 2ND EDITION,           DTSBR517
00019 *          CHANGE 13, DATED 07/30/97).                            DTSBR517
00020 *          REFERENCE RFP: TCL 225         AUTHOR OF CHANGE - EHH  DTSBR517
00021 *                                                                 DTSBR517
00022 * 06-29-11 MODIFIED TO REFLECT THE ETA 204 FEDERAL                DTSBR517
00023 *          SPECIFICATION (ET HANDBOOK 401, 2ND EDITION,           DTSBR517
00024 *          CHANGE 13, DATED 04/2011).                             DTSBR517
00025 *          REFERENCE RFP:                 AUTHOR OF CHANGE - ZL1  DTSBR517
00026 *                                                                 DTSBR517
00027 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR517
00028 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR517
00029 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR517
00030 *                                                                 DTSBR517
00031 *                                                                 DTSBR517
00032 *    DESCRIPTION:                                                 DTSBR517
00033 *                                                                 DTSBR517
00034 *        THIS MODULE PRODUCES THE FEDERALLY MANDATED ETA 204      DTSBR517
00035 *        REPORT.                                                  DTSBR517
00036 *                                                                 DTSBR517
00037 *                                                                 DTSBR517
00038 *    RECORDS READ:                                                DTSBR517
00039 *                                                                 DTSBR517
00040 *        NONE.                                                    DTSBR517
00041 *                                                                 DTSBR517
00042 *                                                                 DTSBR517
00043 *    PRINTED OUTPUTS:                                             DTSBR517
00044 *                                                                 DTSBR517
00045 *        517R1  ETA 204 REPORT                                    DTSBR517
00046 *                                                                 DTSBR517
00047 *                                                                 DTSBR517
00048 *    RECORDS WRITTEN:                                             DTSBR517
00049 *                                                                 DTSBR517
00050 *        NONE.                                                    DTSBR517
00051 *                                                                 DTSBR517
00052 *                                                                 DTSBR517
00053 *    CALLED BY:                                                   DTSBR517
00054 *                                                                 DTSBR517
00055 *        DTSBD800, WHICH PASSES THE DTSIR517 RECORDS              DTSBR517
00056 *                  CREATED BY DTSBD790                            DTSBR517
00057 *                                                                 DTSBR517
00058 *    MODULES CALLED:                                              DTSBR517
00059 *                                                                 DTSBR517
00060 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR517
00061 *                                                                 DTSBR517
00062 *                                                                 DTSBR517
00063 *****                                                             DTSBR517
00064      EJECT                                                        DTSBR517
00065  ENVIRONMENT DIVISION.                                            DTSBR517
00066                                                                   DTSBR517
00067  CONFIGURATION SECTION.                                           DTSBR517
00068  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR517
00069                                                                   DTSBR517
00070  INPUT-OUTPUT SECTION.                                            DTSBR517
00071                                                                   DTSBR517
00072  FILE-CONTROL.                                                    DTSBR517
00073      SELECT PRT-FILE ASSIGN TO RPT517R1.                          DTSBR517
00074      SELECT SECTION-C-TEXT-FILE ASSIGN TO RPT517R2.               DTSBR517
00075                                                                   DTSBR517
00076  DATA DIVISION.                                                   DTSBR517
00077                                                                   DTSBR517
00078  FILE SECTION.                                                    DTSBR517
00079                                                                   DTSBR517
00080  FD  PRT-FILE                                                     DTSBR517
00081      RECORDING MODE IS F.                                         DTSBR517
00082  01  REPORT-LISTING1.                                             DTSBR517
00083      05  FILLER                      PIC  X.                      DTSBR517
00084      05  TEXT-REC                    PIC  X(132).                 DTSBR517
00085                                                                   DTSBR517
00086  FD  SECTION-C-TEXT-FILE                                          DTSBR517
00087      LABEL RECORDS ARE STANDARD                                   DTSBR517
00088      RECORDING MODE IS F                                          DTSBR517
00089      BLOCK CONTAINS 0 RECORDS.                                    DTSBR517
00090                                                                   DTSBR517
00091  01  TEXT-LINE                      PIC  X(80).                   DTSBR517
00092                                                                   DTSBR517
00093      EJECT                                                        DTSBR517
00094  WORKING-STORAGE SECTION.                                         DTSBR517
000945 77  PAN-VALET PICTURE X(24) VALUE '027DTSBR517  07/18/11'.       DTSBR517
00095                                                                   DTSBR517
00096  01  WRK-AREA.                                                    DTSBR517
00097      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +517.DTSBR517
00098                                                                   DTSBR517
00099      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR517
00100                                                                   DTSBR517
00101      05  WRK-TEXT-OUT-REC-CNT        PIC S9(07)  COMP-3.          DTSBR517
00102                                                                   DTSBR517
00103      05  WS-LINE1-COUNT              PIC S9(07)      COMP-3.      DTSBR517
00104      05  WS-LINE1-TOT-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00105      05  WS-LINE1-TAX-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00106      05  WS-LINE3-COUNT              PIC S9(07)      COMP-3.      DTSBR517
00107      05  WS-LINE3-TOT-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00108      05  WS-LINE3-TAX-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00109      05  WS-LINE4-COUNT              PIC S9(07)      COMP-3.      DTSBR517
00110      05  WS-LINE4-TOT-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00111      05  WS-LINE4-TAX-WAGES          PIC S9(13)      COMP-3.      DTSBR517
00112      05  WS-LINE5-CHARGES            PIC S9(11)      COMP-3.      DTSBR517
00113      05  WS-LINE6-CHARGES            PIC S9(11)      COMP-3.      DTSBR517
00114      05  WS-LINE6A2-CHARGES          PIC S9(11)      COMP-3.      DTSBR517
00115      05  WS-LINE7-CHARGES            PIC S9(11)      COMP-3.      DTSBR517
00116                                                                   DTSBR517
00117      05  WS-DISPLAY-MIN-RATIO        PIC S9(05)V9(04)  COMP-3.    DTSBR517
00118                                                                   DTSBR517
00119      05  WS-DISPLAY-MAX-RATIO        PIC S9(05)V9(04)  COMP-3.    DTSBR517
00120                                                                   DTSBR517
00121 *    05  WS-DISPLAY-AVG-TAX-RATE     PIC S9(01)V9(04)  COMP-3.    DTSBR517
00122      05  WS-DISPLAY-AVG-TAX-RATE     PIC S9(01)V9(04).            DTSBR517
00123      05  WS-DISPLAY-AVG-TAX-RATE-N REDEFINES                      DTSBR517
00124                                    WS-DISPLAY-AVG-TAX-RATE.       DTSBR517
00125          10 WS-DISPLAY-AVG-TAX-RATE3 PIC 9(01)V99.                DTSBR517
00126          10 WS-DISPLAY-AVG-TAX-RATE2 PIC V99.                     DTSBR517
00127                                                                   DTSBR517
00128      05  WS-DISPLAY-EMPLR-CNT        PIC S9(07)        COMP-3.    DTSBR517
00129                                                                   DTSBR517
00130      05  WS-DISPLAY-TOT-WAGE-THOU    PIC S9(11)        COMP-3.    DTSBR517
00131                                                                   DTSBR517
00132      05  WS-DISPLAY-TAX-WAGE-THOU    PIC S9(11)        COMP-3.    DTSBR517
00133                                                                   DTSBR517
00134      05  WS-DISPLAY-BEN-CHARGED-THOU PIC S9(07)        COMP-3.    DTSBR517
00135                                                                   DTSBR517
00136      05  WS-DISPLAY-EST-UI-PAID-THOU PIC S9(07)        COMP-3.    DTSBR517
00137                                                                   DTSBR517
00138      05  WS-TOTALS.                                               DTSBR517
00139          10  WS-TOTALS-EMPLR-CNT     PIC S9(07)        COMP-3.    DTSBR517
00140                                                                   DTSBR517
00141          10  WS-TOTALS-TOT-WAGE-THOU PIC S9(11)        COMP-3.    DTSBR517
00142                                                                   DTSBR517
00143          10  WS-TOTALS-TAX-WAGE-THOU PIC S9(11)        COMP-3.    DTSBR517
00144                                                                   DTSBR517
00145          10  WS-TOTALS-BEN-CHARGED-THOU                           DTSBR517
00146                                      PIC S9(09)        COMP-3.    DTSBR517
00147                                                                   DTSBR517
00148          10  WS-TOTALS-EST-UI-PAID-THOU                           DTSBR517
00149                                      PIC S9(09)        COMP-3.    DTSBR517
00150      EJECT                                                        DTSBR517
00151  01  L001-LINK-AREA.                                              DTSBR517
00152  ++INCLUDE DTSIL001                                               DTSBR517
00153      EJECT                                                        DTSBR517
00154                                                                   DTSBR517
00155  01  ETA204-COMMON-HEADING.                                       DTSBR517
00156      05  HDR1-LINE-1.                                             DTSBR517
00157          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR517
00158          10  FILLER                  PIC  X(24)                   DTSBR517
00159                 VALUE 'EXPERIENCE RATING REPORT'.                 DTSBR517
00160      05  HDR1-LINE-2.                                             DTSBR517
00161          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00162          10  FILLER                  PIC  X(05)                   DTSBR517
00163                 VALUE '517R1'.                                    DTSBR517
00164          10  FILLER                  PIC  X(47)  VALUE SPACES.    DTSBR517
00165          10  FILLER                  PIC  X(27)                   DTSBR517
00166                 VALUE 'STATE: DISTRICT OF COLUMBIA'.              DTSBR517
00167      05  HDR1-LINE-3.                                             DTSBR517
00168          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00169          10  FILLER                  PIC  X(10)                   DTSBR517
00170                 VALUE 'RUN DATE: '.                               DTSBR517
00171          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00172          10  WS-RUN-DATE             PIC  X(10).                  DTSBR517
00173          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR517
00174          10  FILLER                  PIC  X(18)                   DTSBR517
00175                 VALUE 'COMPUTATION DATE: '.                       DTSBR517
00176          10  WS-COMP-DATE            PIC  X(10).                  DTSBR517
00177      05  HDR1-LINE-4.                                             DTSBR517
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00179          10  FILLER                  PIC  X(18)                   DTSBR517
00180                 VALUE 'RATE YEAR ENDING: '.                       DTSBR517
00181          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00182          10  WS-RATE-YR-END-DATE     PIC  X(10).                  DTSBR517
00183          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR517
00184          10  FILLER                  PIC  X(28)                   DTSBR517
00185                 VALUE 'RATING SYSTEM: RESERVE RATIO'.             DTSBR517
00186      05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR517
00187                                                                   DTSBR517
00188  01  ETA204-SECTION-A.                                            DTSBR517
00189      05  DTL1-LINE-6                 PIC  X(133) VALUE SPACES.    DTSBR517
00190      05  DTL1-LINE-7.                                             DTSBR517
00191          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00192          10  FILLER                  PIC  X(32)                   DTSBR517
00193                 VALUE 'SECTION A. ALL SUBJECT ACCOUNTS:'.         DTSBR517
00194      05  DTL1-LINE-8.                                             DTSBR517
00195          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR517
00196          10  FILLER                  PIC  X(40)                   DTSBR517
00197                 VALUE 'NUMBER AND AMOUNTS OF TOTAL AND TAXABLE '. DTSBR517
00198          10  FILLER                  PIC  X(07)                   DTSBR517
00199                 VALUE 'PAYROLL'.                                  DTSBR517
00200      05  DTL1-LINE-9                 PIC  X(133) VALUE SPACES.    DTSBR517
00201      05  DTL1-LINE-10.                                            DTSBR517
00202          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR517
00203          10  FILLER                  PIC  X(29)                   DTSBR517
00204                 VALUE 'NUMBER AS OF  AMOUNT OF TOTAL'.            DTSBR517
00205          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00206          10  FILLER                  PIC  X(17)                   DTSBR517
00207                 VALUE 'AMOUNT OF TAXABLE'.                        DTSBR517
00208      05  DTL1-LINE-11.                                            DTSBR517
00209          10  FILLER                  PIC  X(45)  VALUE SPACES.    DTSBR517
00210          10  FILLER                  PIC  X(31)                   DTSBR517
00211                 VALUE 'PAYROLL FOR 12   PAYROLL FOR 12'.          DTSBR517
00212      05  DTL1-LINE-12.                                            DTSBR517
00213          10  FILLER                  PIC  X(45)  VALUE SPACES.    DTSBR517
00214          10  FILLER                  PIC  X(31)                   DTSBR517
00215                 VALUE ' MONTHS ENDING    MONTHS ENDING'.          DTSBR517
00216      05  DTL1-LINE-13.                                            DTSBR517
00217          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR517
00218          10  WS-NBR-AS-OF-DATE       PIC  X(10).                  DTSBR517
00219          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00220          10  WS-PAYROLL-YR-END-DATE2 PIC  X(10).                  DTSBR517
00221          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR517
00222          10  WS-PAYROLL-YR-END-DATE3 PIC  X(10).                  DTSBR517
00223      05  DTL1-LINE-14.                                            DTSBR517
00224          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR517
00225          10  FILLER                  PIC  X(03)                   DTSBR517
00226                 VALUE '(1)'.                                      DTSBR517
00227          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR517
00228          10  FILLER                  PIC  X(03)                   DTSBR517
00229                 VALUE '(2)'.                                      DTSBR517
00230          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR517
00231          10  FILLER                  PIC  X(03)                   DTSBR517
00232                 VALUE '(3)'.                                      DTSBR517
00233      05  DTL1-LINE-15                PIC  X(133) VALUE SPACES.    DTSBR517
00234      05  DTL1-LINE-16.                                            DTSBR517
00235          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00236          10  FILLER                  PIC  X(22)                   DTSBR517
00237                 VALUE 'TOTAL SUBJECT ACCOUNTS'.                   DTSBR517
00238      05  DTL1-LINE-17.                                            DTSBR517
00239          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00240          10  FILLER                  PIC  X(32)                   DTSBR517
00241                 VALUE '1. TAXABLE......................'.         DTSBR517
00242          10  DTL1-LINE1-COUNT        PIC  ZZZZ,ZZ9.               DTSBR517
00243          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00244          10  DTL1-LINE1-TOT-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00245          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00246          10  DTL1-LINE1-TAX-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00247      05  DTL1-LINE-18.                                            DTSBR517
00248          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00249          10  FILLER                  PIC  X(32)                   DTSBR517
00250                 VALUE '   A. ELIGIBLE..................'.         DTSBR517
00251          10  DTL1-LINE1A-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00252          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00253          10  DTL1-LINE1A-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00254          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00255          10  DTL1-LINE1A-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00256      05  DTL1-LINE-19.                                            DTSBR517
00257          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00258          10  FILLER                  PIC  X(32)                   DTSBR517
00259                 VALUE '   B. INELIGIBLE................'.         DTSBR517
00260          10  DTL1-LINE1B-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00261          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00262          10  DTL1-LINE1B-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00263          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00264          10  DTL1-LINE1B-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00265      05  DTL1-LINE-20                PIC  X(133) VALUE SPACES.    DTSBR517
00266      05  DTL1-LINE-21.                                            DTSBR517
00267          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00268          10  FILLER                  PIC  X(32)                   DTSBR517
00269                 VALUE '2. REIMBURSABLE ACCOUNTS........'.         DTSBR517
00270          10  DTL1-LINE2-COUNT        PIC  ZZZZ,ZZ9.               DTSBR517
00271          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00272          10  DTL1-LINE2-TOT-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00273      05  DTL1-LINE-22                PIC  X(133) VALUE SPACES.    DTSBR517
00274      05  DTL1-LINE-23.                                            DTSBR517
00275          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00276          10  FILLER                  PIC  X(23)                   DTSBR517
00277                 VALUE 'SUBJECT ACCOUNTS WITH :'.                  DTSBR517
00278      05  DTL1-LINE-24.                                            DTSBR517
00279          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00280          10  FILLER                  PIC  X(32)                   DTSBR517
00281                 VALUE '3. POSITIVE (OR ZERO) BALANCE...'.         DTSBR517
00282          10  DTL1-LINE3-COUNT        PIC  ZZZZ,ZZ9.               DTSBR517
00283          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00284          10  DTL1-LINE3-TOT-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00285          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00286          10  DTL1-LINE3-TAX-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00287      05  DTL1-LINE-25.                                            DTSBR517
00288          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00289          10  FILLER                  PIC  X(32)                   DTSBR517
00290                 VALUE '   A. ELIGIBLE..................'.         DTSBR517
00291          10  DTL1-LINE3A-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00292          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00293          10  DTL1-LINE3A-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00294          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00295          10  DTL1-LINE3A-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00296      05  DTL1-LINE-26.                                            DTSBR517
00297          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00298          10  FILLER                  PIC  X(32)                   DTSBR517
00299                 VALUE '   B. INELIGIBLE................'.         DTSBR517
00300          10  DTL1-LINE3B-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00301          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00302          10  DTL1-LINE3B-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00303          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00304          10  DTL1-LINE3B-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00305      05  DTL1-LINE-27                PIC  X(133) VALUE SPACES.    DTSBR517
00306      05  DTL1-LINE-28.                                            DTSBR517
00307          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00308          10  FILLER                  PIC  X(32)                   DTSBR517
00309                 VALUE '4. NEGATIVE BALANCE.............'.         DTSBR517
00310          10  DTL1-LINE4-COUNT        PIC  ZZZZ,ZZ9.               DTSBR517
00311          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00312          10  DTL1-LINE4-TOT-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00313          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00314          10  DTL1-LINE4-TAX-WAGES    PIC  $$$$,$$$,$$$,$$9.       DTSBR517
00315      05  DTL1-LINE-29.                                            DTSBR517
00316          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00317          10  FILLER                  PIC  X(32)                   DTSBR517
00318                 VALUE '   A. ELIGIBLE..................'.         DTSBR517
00319          10  DTL1-LINE4A-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00320          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00321          10  DTL1-LINE4A-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00322          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00323          10  DTL1-LINE4A-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00324      05  DTL1-LINE-30.                                            DTSBR517
00325          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00326          10  FILLER                  PIC  X(32)                   DTSBR517
00327                 VALUE '   B. INELIGIBLE................'.         DTSBR517
00328          10  DTL1-LINE4B-COUNT       PIC  ZZZZ,ZZ9.               DTSBR517
00329          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00330          10  DTL1-LINE4B-TOT-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00331          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00332          10  DTL1-LINE4B-TAX-WAGES   PIC  ZZZZ,ZZZ,ZZZ,ZZ9.       DTSBR517
00333                                                                   DTSBR517
00334  01  ETA204-SECTION-B.                                            DTSBR517
00335      05  DTL1-LINE-31                PIC  X(133) VALUE SPACES.    DTSBR517
00336      05  DTL1-LINE-32                PIC  X(133) VALUE SPACES.    DTSBR517
00337      05  DTL1-LINE-33                PIC  X(133) VALUE SPACES.    DTSBR517
00338      05  DTL1-LINE-34.                                            DTSBR517
00339          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00340          10  FILLER                  PIC  X(40)                   DTSBR517
00341                 VALUE 'SECTION B. SUMMARY OF BENEFITS PAID, CHA'. DTSBR517
00342          10  FILLLER                 PIC  X(20)                   DTSBR517
00343                 VALUE 'RGED AND NOT CHARGED'.                     DTSBR517
00344      05  DTL1-LINE-35                PIC  X(133) VALUE SPACES.    DTSBR517
00345      05  DTL1-LINE-36.                                            DTSBR517
00346          10  FILLER                  PIC  X(59)  VALUE SPACES.    DTSBR517
00347          10  FILLER                  PIC  X(06)                   DTSBR517
00348                 VALUE 'AMOUNT'.                                   DTSBR517
00349      05  DTL1-LINE-37.                                            DTSBR517
00350          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00351          10  FILLER                  PIC  X(40)                   DTSBR517
00352                 VALUE '5. TOTAL BENEFITS PAID FOR 12 MONTHS END'. DTSBR517
00353          10  FILLER                  PIC  X(04)                   DTSBR517
00354                 VALUE 'ING '.                                     DTSBR517
00355          10  WS-BEN-YR-END-DATE      PIC  X(10).                  DTSBR517
00356          10  DTL1-LINE5-CHARGES      PIC  $$$$$,$$$,$$9.          DTSBR517
00357      05  DTL1-LINE-38                PIC  X(133) VALUE SPACES.    DTSBR517
00358      05  DTL1-LINE-39.                                            DTSBR517
00359          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00360          10  FILLER                  PIC  X(40)                   DTSBR517
00361                 VALUE '6. TOTAL FOR TAXABLE EMPLOYER ACCOUNTS..'. DTSBR517
00362          10  FILLER                  PIC  X(14)                   DTSBR517
00363                 VALUE ALL '.'.                                    DTSBR517
00364          10  DTL1-LINE6-CHARGES      PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00365      05  DTL1-LINE-40.                                            DTSBR517
00366          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00367          10  FILLER                  PIC  X(40)                   DTSBR517
00368                 VALUE '   A. CHARGED...........................'. DTSBR517
00369          10  FILLER                  PIC  X(14)                   DTSBR517
00370                 VALUE ALL '.'.                                    DTSBR517
00371          10  DTL1-LINE6A-CHARGES     PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00372      05  DTL1-LINE-41.                                            DTSBR517
00373          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00374          10  FILLER                  PIC  X(40)                   DTSBR517
00375                 VALUE '      (1) ACTIVE........................'. DTSBR517
00376          10  FILLER                  PIC  X(14)                   DTSBR517
00377                 VALUE ALL '.'.                                    DTSBR517
00378          10  DTL1-LINE6A1-CHARGES    PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00379      05  DTL1-LINE-42.                                            DTSBR517
00380          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00381          10  FILLER                  PIC  X(40)                   DTSBR517
00382                 VALUE '      (2) INACTIVE......................'. DTSBR517
00383          10  FILLER                  PIC  X(14)                   DTSBR517
00384                 VALUE ALL '.'.                                    DTSBR517
00385          10  DTL1-LINE6A2-CHARGES    PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00386      05  DTL1-LINE-43.                                            DTSBR517
00387          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00388          10  FILLER                  PIC  X(40)                   DTSBR517
00389                 VALUE '   B. NONCHARGED........................'. DTSBR517
00390          10  FILLER                  PIC  X(14)                   DTSBR517
00391                 VALUE ALL '.'.                                    DTSBR517
00392          10  DTL1-LINE6B-CHARGES     PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00393      05  DTL1-LINE-44                PIC  X(133) VALUE SPACES.    DTSBR517
00394      05  DTL1-LINE-45.                                            DTSBR517
00395          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00396          10  FILLER                  PIC  X(40)                   DTSBR517
00397                 VALUE '7. REIMBURSABLE EMPLOYER ACCOUNTS.......'. DTSBR517
00398          10  FILLER                  PIC  X(14)                   DTSBR517
00399                 VALUE ALL '.'.                                    DTSBR517
00400          10  DTL1-LINE7-CHARGES      PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00401      05  DTL1-LINE-46.                                            DTSBR517
00402          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00403          10  FILLER                  PIC  X(40)                   DTSBR517
00404                 VALUE '   A. CHARGED...........................'. DTSBR517
00405          10  FILLER                  PIC  X(14)                   DTSBR517
00406                 VALUE ALL '.'.                                    DTSBR517
00407          10  DTL1-LINE7A-CHARGES     PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00408      05  DTL1-LINE-47.                                            DTSBR517
00409          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00410          10  FILLER                  PIC  X(40)                   DTSBR517
00411                 VALUE '   B. NONCHARGED........................'. DTSBR517
00412          10  FILLER                  PIC  X(14)                   DTSBR517
00413                 VALUE ALL '.'.                                    DTSBR517
00414          10  DTL1-LINE7B-CHARGES     PIC  ZZZZZ,ZZZ,ZZ9.          DTSBR517
00415                                                                   DTSBR517
00416      05  DTL1-LINE-48                PIC  X(133) VALUE SPACES.    DTSBR517
00417      05  DTL1-LINE-49.                                            DTSBR517
00418          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00419          10  FILLER                  PIC  X(40)                   DTSBR517
00420                 VALUE 'ESTIMATED CALANDER YEAR (CY) AVERAGE TAX'. DTSBR517
00421          10  FILLER                  PIC  X(11)                   DTSBR517
00422                 VALUE 'RATES      '.                              DTSBR517
00423      05  DTL1-LINE-50                PIC  X(133) VALUE SPACES.    DTSBR517
00424      05  DTL1-LINE-51.                                            DTSBR517
00425          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00426          10  FILLER                  PIC  X(40)                   DTSBR517
00427                 VALUE '8.  AVERAGE RATE ON TAXABLE WAGES.......'. DTSBR517
00428          10  FILLER                  PIC  X(14)                   DTSBR517
00429                 VALUE '..............'.                           DTSBR517
00430          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR517
00431          10  DTL1-LINE51-RTE-TAX-WGE PIC    9.9.                  DTSBR517
00432      05  DTL1-LINE-52                PIC  X(133) VALUE SPACES.    DTSBR517
00433      05  DTL1-LINE-53.                                            DTSBR517
00434          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00435          10  FILLER                  PIC  X(40)                   DTSBR517
00436                 VALUE '9.  AVERAGE RATE ON TOTAL WAGES.........'. DTSBR517
00437          10  FILLER                  PIC  X(14)                   DTSBR517
00438                 VALUE '..............'.                           DTSBR517
00439          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR517
00440          10  DTL1-LINE53-RTE-TOT-WGE PIC    9.9.                  DTSBR517
00441  01  ETA204-COMMENTS-AND-SIGNATURE.                               DTSBR517
00442      05  DTL1-LINE-54                PIC  X(133) VALUE SPACES.    DTSBR517
00443      05  DTL1-LINE-55                PIC  X(133) VALUE SPACES.    DTSBR517
00444      05  DTL1-LINE-56.                                            DTSBR517
00445          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00446          10  FILLER                  PIC  X(12)                   DTSBR517
00447                 VALUE '10. COMMENTS'.                             DTSBR517
00448      05  DTL1-LINE-57                PIC  X(133) VALUE SPACES.    DTSBR517
00449      05  DTL1-LINE-58                PIC  X(133) VALUE SPACES.    DTSBR517
00450      05  DTL1-LINE-59                PIC  X(133) VALUE SPACES.    DTSBR517
00451      05  DTL1-LINE-60                PIC  X(133) VALUE SPACES.    DTSBR517
00452      05  DTL1-LINE-61.                                            DTSBR517
00453          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00454          10  FILLER                  PIC  X(09)                   DTSBR517
00455                 VALUE 'SIGNATURE'.                                DTSBR517
00456          10  FILLER                  PIC  X(26)                   DTSBR517
00457                 VALUE ALL '_'.                                    DTSBR517
00458          10  FILLER                  PIC  X(05)                   DTSBR517
00459                 VALUE 'TITLE'.                                    DTSBR517
00460          10  FILLER                  PIC  X(25)                   DTSBR517
00461                 VALUE ALL '_'.                                    DTSBR517
00462          10  FILLER                  PIC  X(04)                   DTSBR517
00463                 VALUE 'DATE'.                                     DTSBR517
00464          10  FILLER                  PIC  X(10)                   DTSBR517
00465                 VALUE ALL '_'.                                    DTSBR517
00466                                                                   DTSBR517
00467  01  ETA204-COMMON-FOOTING.                                       DTSBR517
00468      05  FOOT-LINE-1                 PIC  X(133) VALUE SPACES.    DTSBR517
00469      05  FOOT-LINE-2.                                             DTSBR517
00470          10  FILLER                  PIC  X(70)  VALUE SPACES.    DTSBR517
00471          10  FILLER                  PIC  X(07)                   DTSBR517
00472                 VALUE 'ETA 204'.                                  DTSBR517
00473      05  FOOT-LINE-3.                                             DTSBR517
00474          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00475          10  FILLER                  PIC  X(04)  VALUE 'PAGE'.    DTSBR517
00476          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00477          10  WS-PAGE-CNT             PIC  9(01).                  DTSBR517
00478          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00479          10  FILLER                  PIC  X(02)  VALUE 'OF'.      DTSBR517
00480          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00481          10  WS-PAGE-MAX             PIC  9(01).                  DTSBR517
00482          10  FILLER                  PIC  X(57)  VALUE SPACES.    DTSBR517
00483          10  FILLER                  PIC  X(09)                   DTSBR517
00484                 VALUE 'REV 04-11'.                                DTSBR517
00485                                                                   DTSBR517
00486      05  FOOT-LINE-4.                                             DTSBR517
00487          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00488          10  FILLER                  PIC  X(04)  VALUE 'PAGE'.    DTSBR517
00489          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00490          10  WS-PAGE-CNT-PC          PIC  9(01).                  DTSBR517
00491          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00492          10  FILLER                  PIC  X(02)  VALUE 'OF'.      DTSBR517
00493          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00494          10  WS-PAGE-MAX-PC          PIC  9(01).                  DTSBR517
00495          10  FILLER                  PIC  X(56)  VALUE SPACES.    DTSBR517
00496          10  FILLER                  PIC  X(09)                   DTSBR517
00497                 VALUE 'REV 04-11'.                                DTSBR517
00498          10  WS-FORM-FEED            PIC  X(01)  VALUE X'0C'.     DTSBR517
00499                                                                   DTSBR517
00500  01  WS-DISPLAY-AMT01                PIC  ZZ,ZZZ,ZZZ,ZZ9-.        DTSBR517
00501                                                                   DTSBR517
00502  01  ETA204-SECTION-C-HEADING.                                    DTSBR517
00503      05  HDR2-LINE-6.                                             DTSBR517
00504          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00505          10  FILLER                  PIC  X(17)                   DTSBR517
00506                 VALUE 'TAXABLE WAGE BASE'.                        DTSBR517
00507          10  FILLER                  PIC  X(31)  VALUE SPACE.     DTSBR517
00508          10  FILLER                  PIC  X(17)                   DTSBR517
00509                 VALUE 'TAXABLE WAGE BASE'.                        DTSBR517
00510      05  HDR2-LINE-7.                                             DTSBR517
00511          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00512          10  FILLER                  PIC  X(20)                   DTSBR517
00513                 VALUE '  DURING RATE YEAR: '.                     DTSBR517
00514          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00515          10  HDR2-RATE-YEAR-TX-WG-BASE PIC  $$$$,$$9.             DTSBR517
00516          10  FILLER                  PIC  X(17)  VALUE SPACE.     DTSBR517
00517          10  WS-RY-1-START-DATE      PIC  X(10).                  DTSBR517
00518          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00519          10  FILLER                  PIC  X(01)                   DTSBR517
00520                 VALUE '-'.                                        DTSBR517
00521          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00522          10  WS-RY-1-END-DATE        PIC  X(10).                  DTSBR517
00523          10  FILLER                  PIC  X(02)                   DTSBR517
00524                 VALUE ': '.                                       DTSBR517
00525          10  HDR2-RY-MINUS-ONE-TX-WG-BASE PIC  $$$$,$$9.          DTSBR517
00526      05  HDR2-LINE-8.                                             DTSBR517
00527          10  FILLER                  PIC  X(47)  VALUE SPACES.    DTSBR517
00528          10  WS-RY-2-START-DATE      PIC  X(10).                  DTSBR517
00529          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00530          10  FILLER                  PIC  X(01)                   DTSBR517
00531                 VALUE '-'.                                        DTSBR517
00532          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00533          10  WS-RY-2-END-DATE        PIC  X(10).                  DTSBR517
00534          10  FILLER                  PIC  X(02)                   DTSBR517
00535                 VALUE ': '.                                       DTSBR517
00536          10  HDR2-RY-MINUS-TWO-TX-WG-BASE PIC  $$$$,$$9.          DTSBR517
00537      05  HDR2-LINE-9                 PIC  X(133) VALUE SPACES.    DTSBR517
00538      05  HDR2-LINE-10.                                            DTSBR517
00539          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00540          10  FILLER                  PIC  X(40)                   DTSBR517
00541                 VALUE 'SECTION C. ALL TAXABLE SUBJECT ACCOUNTS.'. DTSBR517
00542          10  FILLER                  PIC  X(36)                   DTSBR517
00543                 VALUE '  SELECTED DATA BY EXPERIENCE FACTOR'.     DTSBR517
00544      05  HDR2-LINE-11                PIC  X(133) VALUE SPACES.    DTSBR517
00545      05  HDR2-LINE-12.                                            DTSBR517
00546          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00547          10  FILLER                  PIC  X(10)                   DTSBR517
00548                VALUE 'EXPERIENCE'.                                DTSBR517
00549      05  HDR2-LINE-13.                                            DTSBR517
00550          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00551          10  FILLER                  PIC  X(06)                   DTSBR517
00552                VALUE 'FACTOR'.                                    DTSBR517
00553      05  HDR2-LINE-14.                                            DTSBR517
00554          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR517
00555          10  FILLER                  PIC  X(05)                   DTSBR517
00556                VALUE 'EQUAL'.                                     DTSBR517
00557          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00558          10  FILLER                  PIC  X(03)                   DTSBR517
00559                VALUE 'AVG'.                                       DTSBR517
00560          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00561          10  FILLER                  PIC  X(06)                   DTSBR517
00562                VALUE 'NUMBER'.                                    DTSBR517
00563          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR517
00564          10  FILLER                  PIC  X(05)                   DTSBR517
00565                VALUE 'TOTAL'.                                     DTSBR517
00566          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR517
00567          10  FILLER                  PIC  X(07)                   DTSBR517
00568                VALUE 'TAXABLE'.                                   DTSBR517
00569          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00570          10  FILLER                  PIC  X(08)                   DTSBR517
00571                VALUE 'BENEFITS'.                                  DTSBR517
00572          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR517
00573          10  FILLER                  PIC  X(09)                   DTSBR517
00574                VALUE 'ESTIMATED'.                                 DTSBR517
00575      05  HDR2-LINE-15.                                            DTSBR517
00576          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR517
00577          10  FILLER                  PIC  X(05)                   DTSBR517
00578                VALUE 'TO OR'.                                     DTSBR517
00579          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00580          10  FILLER                  PIC  X(03)                   DTSBR517
00581                VALUE 'TAX'.                                       DTSBR517
00582          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00583          10  FILLER                  PIC  X(02)                   DTSBR517
00584                VALUE 'OF'.                                        DTSBR517
00585          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR517
00586          10  FILLER                  PIC  X(07)                   DTSBR517
00587                VALUE 'PAYROLL'.                                   DTSBR517
00588          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00589          10  FILLER                  PIC  X(07)                   DTSBR517
00590                VALUE 'PAYROLL'.                                   DTSBR517
00591          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00592          10  FILLER                  PIC  X(07)                   DTSBR517
00593                VALUE 'CHARGED'.                                   DTSBR517
00594          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00595          10  FILLER                  PIC  X(07)                   DTSBR517
00596                VALUE 'CONTRIB'.                                   DTSBR517
00597      05  HDR2-LINE-16.                                            DTSBR517
00598          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00599          10  FILLER                  PIC  X(07)                   DTSBR517
00600                VALUE 'GREATER'.                                   DTSBR517
00601          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00602          10  FILLER                  PIC  X(04)                   DTSBR517
00603                VALUE 'LESS'.                                      DTSBR517
00604          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00605          10  FILLER                  PIC  X(04)                   DTSBR517
00606                VALUE 'RATE'.                                      DTSBR517
00607          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00608          10  FILLER                  PIC  X(05)                   DTSBR517
00609                VALUE 'ACCTS'.                                     DTSBR517
00610          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR517
00611          10  FILLER                  PIC  X(05)                   DTSBR517
00612                VALUE '(000)'.                                     DTSBR517
00613          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR517
00614          10  FILLER                  PIC  X(05)                   DTSBR517
00615                VALUE '(000)'.                                     DTSBR517
00616          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00617          10  FILLER                  PIC  X(05)                   DTSBR517
00618                VALUE '(000)'.                                     DTSBR517
00619          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00620          10  FILLER                  PIC  X(05)                   DTSBR517
00621                VALUE '(000)'.                                     DTSBR517
00622      05  HDR2-LINE-17.                                            DTSBR517
00623          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00624          10  FILLER                  PIC  X(04)                   DTSBR517
00625                VALUE 'THAN'.                                      DTSBR517
00626          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00627          10  FILLER                  PIC  X(04)                   DTSBR517
00628                VALUE 'THAN'.                                      DTSBR517
00629          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR517
00630          10  FILLER                  PIC  X(03)                   DTSBR517
00631                VALUE '(1)'.                                       DTSBR517
00632          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00633          10  FILLER                  PIC  X(03)                   DTSBR517
00634                VALUE '(2)'.                                       DTSBR517
00635          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR517
00636          10  FILLER                  PIC  X(03)                   DTSBR517
00637                VALUE '(3)'.                                       DTSBR517
00638          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR517
00639          10  FILLER                  PIC  X(03)                   DTSBR517
00640                VALUE '(4)'.                                       DTSBR517
00641          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR517
00642          10  FILLER                  PIC  X(03)                   DTSBR517
00643                VALUE '(5)'.                                       DTSBR517
00644          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR517
00645          10  FILLER                  PIC  X(03)                   DTSBR517
00646                VALUE '(6)'.                                       DTSBR517
00647                                                                   DTSBR517
00648  01  ETA204-MESSAGE-LINE.                                         DTSBR517
00649      05  MSG-LINE-1.                                              DTSBR517
00650          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00651          10  WS-MESSAGE-LINE         PIC  X(79).                  DTSBR517
00652                                                                   DTSBR517
00653  01  ETA204-RATIO-LINE.                                           DTSBR517
00654      05  RATIO-LINE-1.                                            DTSBR517
00655          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00656          10  DTL2-MIN-RATIO          PIC  ZZ9.9-.                 DTSBR517
00657          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00658          10  DTL2-MAX-RATIO          PIC  ZZ9.9-.                 DTSBR517
00659          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR517
00660          10  DTL2-AVG-TAX-RATE       PIC  9.99.                   DTSBR517
00661          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00662          10  DTL2-EMPLR-CNT          PIC  ZZZZ,ZZ9.               DTSBR517
00663          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00664          10  DTL2-TOT-WAGE-THOU      PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00665          10  DTL2-TAX-WAGE-THOU      PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00666          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00667          10  DTL2-BEN-CHARGED-THOU   PIC  ZZZZ,ZZ9-.              DTSBR517
00668          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00669          10  DTL2-EST-UI-PAID-THOU   PIC  ZZZZ,ZZ9-.              DTSBR517
00670                                                                   DTSBR517
00671  01  ETA204-TITLE-LINE.                                           DTSBR517
00672      05  TITLE-LINE-1.                                            DTSBR517
00673          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00674          10  WS-LINE-TITLE           PIC  X(15).                  DTSBR517
00675          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00676          10  TITLE-AVG-TAX-RATE      PIC  9.99.                   DTSBR517
00677          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00678          10  TITLE-EMPLR-CNT         PIC  ZZZZ,ZZ9.               DTSBR517
00679          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00680          10  TITLE-TOT-WAGE-THOU     PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00681          10  TITLE-TAX-WAGE-THOU     PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00682          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00683          10  TITLE-BEN-CHARGED-THOU  PIC  ZZZZ,ZZ9-.              DTSBR517
00684          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00685          10  TITLE-EST-UI-PAID-THOU  PIC  ZZZZ,ZZ9-.              DTSBR517
00686                                                                   DTSBR517
00687 **   THE LAST BYTE OF THE RECORD '0C' FOR END OF PAGE ON PC.      DTSBR517
00688      05  TITLE-LINE-2.                                            DTSBR517
00689          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00690          10  WS-LINE-TITLE2          PIC  X(15).                  DTSBR517
00691          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR517
00692          10  TITLE-AVG-TAX-RATE2     PIC  9.99.                   DTSBR517
00693          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR517
00694          10  TITLE-EMPLR-CNT2        PIC  ZZZZ,ZZ9.               DTSBR517
00695          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00696          10  TITLE-TOT-WAGE-THOU2    PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00697          10  TITLE-TAX-WAGE-THOU2    PIC  ZZZZ,ZZZ,ZZ9-.          DTSBR517
00698          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00699          10  TITLE-BEN-CHARGED-THOU2 PIC  ZZZZ,ZZ9-.              DTSBR517
00700          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR517
00701          10  TITLE-EST-UI-PAID-THOU2 PIC  ZZZZ,ZZ9.               DTSBR517
00702          10  WS-FORM-FEED2           PIC  X(01)  VALUE X'0C'.     DTSBR517
00703      EJECT                                                        DTSBR517
00704                                                                   DTSBR517
00705  LINKAGE SECTION.                                                 DTSBR517
00706                                                                   DTSBR517
00707  01  LRCM-LINK-AREA.                                              DTSBR517
00708  ++INCLUDE DTSILRCM                                               DTSBR517
00709      EJECT                                                        DTSBR517
00710  01  R517-REC.                                                    DTSBR517
00711  ++INCLUDE DTSIR517                                               DTSBR517
00712      EJECT                                                        DTSBR517
00713  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR517
00714                           R517-REC.                               DTSBR517
00715                                                                   DTSBR517
00716      IF FIRST-TIME-IND = 'Y'                                      DTSBR517
00717          PERFORM I1000-INITIATE                                   DTSBR517
00718             THRU I1000-EXIT                                       DTSBR517
00719          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR517
00720                                                                   DTSBR517
00721      IF LRCM-EOR-88                                               DTSBR517
00722          PERFORM T1000-TERMINATE                                  DTSBR517
00723             THRU T1000-EXIT                                       DTSBR517
00724      ELSE                                                         DTSBR517
00725          PERFORM P1000-PROCESS                                    DTSBR517
00726             THRU P1000-EXIT.                                      DTSBR517
00727                                                                   DTSBR517
00728      GOBACK.                                                      DTSBR517
00729      EJECT                                                        DTSBR517
00730  I1000-INITIATE.                                                  DTSBR517
00731                                                                   DTSBR517
00732      OPEN OUTPUT PRT-FILE                                         DTSBR517
00733                  SECTION-C-TEXT-FILE.                             DTSBR517
00734                                                                   DTSBR517
00735      MOVE SPACES TO REPORT-LISTING1                               DTSBR517
00736                     TEXT-LINE.                                    DTSBR517
00737                                                                   DTSBR517
00738      MOVE +0 TO WRK-TEXT-OUT-REC-CNT.                             DTSBR517
00739                                                                   DTSBR517
00740  I1000-EXIT.                                                      DTSBR517
00741      EXIT.                                                        DTSBR517
00742                                                                   DTSBR517
00743  P1000-PROCESS.                                                   DTSBR517
00744                                                                   DTSBR517
00745      PERFORM P2000-DATES                                          DTSBR517
00746         THRU P2000-EXIT.                                          DTSBR517
00747                                                                   DTSBR517
00748      MOVE +0 TO WS-PAGE-CNT WS-PAGE-CNT-PC.                       DTSBR517
00749                                                                   DTSBR517
00750      MOVE +3 TO WS-PAGE-MAX WS-PAGE-MAX-PC.                       DTSBR517
00751                                                                   DTSBR517
00752      PERFORM P6000-COMMON-HEADING THRU P6000-EXIT.                DTSBR517
00753                                                                   DTSBR517
00754      PERFORM P3000-SECTION-A                                      DTSBR517
00755         THRU P3000-EXIT.                                          DTSBR517
00756                                                                   DTSBR517
00757      PERFORM P4000-SECTION-B                                      DTSBR517
00758         THRU P4000-EXIT.                                          DTSBR517
00759                                                                   DTSBR517
00760      PERFORM P7400-COMM-SIGN THRU P7400-EXIT.                     DTSBR517
00761                                                                   DTSBR517
00762      ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC.                        DTSBR517
00763                                                                   DTSBR517
00764      PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT.                DTSBR517
00765                                                                   DTSBR517
00766      PERFORM P5000-SECTION-C                                      DTSBR517
00767         THRU P5000-EXIT.                                          DTSBR517
00768                                                                   DTSBR517
00769  P1000-EXIT.                                                      DTSBR517
00770      EXIT.                                                        DTSBR517
00771      EJECT                                                        DTSBR517
00772  P2000-DATES.                                                     DTSBR517
00773                                                                   DTSBR517
00774      MOVE R517-RUN-DATE TO L001-FED-8-DATE-9.                     DTSBR517
00775      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00776      PERFORM S001-DATE                                            DTSBR517
00777         THRU S001-EXIT.                                           DTSBR517
00778      MOVE L001-SLASH-8-DATE TO WS-RUN-DATE.                       DTSBR517
00779                                                                   DTSBR517
00780      MOVE R517-COMPUTATION-DATE TO L001-FED-8-DATE-9.             DTSBR517
00781      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00782      PERFORM S001-DATE                                            DTSBR517
00783         THRU S001-EXIT.                                           DTSBR517
00784      MOVE L001-SLASH-8-DATE TO WS-COMP-DATE.                      DTSBR517
00785                                                                   DTSBR517
00786      MOVE R517-RATE-YEAR-END-DATE TO L001-FED-8-DATE-9.           DTSBR517
00787      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00788      PERFORM S001-DATE                                            DTSBR517
00789         THRU S001-EXIT.                                           DTSBR517
00790      MOVE L001-SLASH-8-DATE TO WS-RATE-YR-END-DATE.               DTSBR517
00791                                                                   DTSBR517
00792      MOVE R517-NUMBER-AS-OF-DATE TO L001-FED-8-DATE-9.            DTSBR517
00793      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00794      PERFORM S001-DATE                                            DTSBR517
00795         THRU S001-EXIT.                                           DTSBR517
00796      MOVE L001-SLASH-8-DATE TO WS-NBR-AS-OF-DATE.                 DTSBR517
00797                                                                   DTSBR517
00798      MOVE R517-PAYROLL-YEAR-END-DATE TO L001-FED-8-DATE-9.        DTSBR517
00799      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00800      PERFORM S001-DATE                                            DTSBR517
00801         THRU S001-EXIT.                                           DTSBR517
00802      MOVE L001-SLASH-8-DATE TO WS-PAYROLL-YR-END-DATE2            DTSBR517
00803                                WS-PAYROLL-YR-END-DATE3.           DTSBR517
00804                                                                   DTSBR517
00805      MOVE R517-BEN-CHRG-YEAR-END-DATE TO L001-FED-8-DATE-9.       DTSBR517
00806      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00807      PERFORM S001-DATE                                            DTSBR517
00808         THRU S001-EXIT.                                           DTSBR517
00809      MOVE L001-SLASH-8-DATE TO WS-BEN-YR-END-DATE.                DTSBR517
00810                                                                   DTSBR517
00811      MOVE R517-RY-MINUS-ONE-START-DATE TO L001-FED-8-DATE-9.      DTSBR517
00812      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00813      PERFORM S001-DATE                                            DTSBR517
00814         THRU S001-EXIT.                                           DTSBR517
00815      MOVE L001-SLASH-8-DATE TO WS-RY-1-START-DATE.                DTSBR517
00816                                                                   DTSBR517
00817      MOVE R517-RY-MINUS-ONE-END-DATE TO L001-FED-8-DATE-9.        DTSBR517
00818      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00819      PERFORM S001-DATE                                            DTSBR517
00820         THRU S001-EXIT.                                           DTSBR517
00821      MOVE L001-SLASH-8-DATE TO WS-RY-1-END-DATE.                  DTSBR517
00822                                                                   DTSBR517
00823      MOVE R517-RY-MINUS-TWO-START-DATE TO L001-FED-8-DATE-9.      DTSBR517
00824      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00825      PERFORM S001-DATE                                            DTSBR517
00826         THRU S001-EXIT.                                           DTSBR517
00827      MOVE L001-SLASH-8-DATE TO WS-RY-2-START-DATE.                DTSBR517
00828                                                                   DTSBR517
00829      MOVE R517-RY-MINUS-TWO-END-DATE TO L001-FED-8-DATE-9.        DTSBR517
00830      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR517
00831      PERFORM S001-DATE                                            DTSBR517
00832         THRU S001-EXIT.                                           DTSBR517
00833      MOVE L001-SLASH-8-DATE TO WS-RY-2-END-DATE.                  DTSBR517
00834                                                                   DTSBR517
00835  P2000-EXIT.                                                      DTSBR517
00836      EXIT.                                                        DTSBR517
00837      EJECT                                                        DTSBR517
00838  P3000-SECTION-A.                                                 DTSBR517
00839                                                                   DTSBR517
00840      ADD R517-LINE1A-COUNT                                        DTSBR517
00841          R517-LINE1B-COUNT                                        DTSBR517
00842         GIVING WS-LINE1-COUNT.                                    DTSBR517
00843                                                                   DTSBR517
00844      ADD R517-LINE1A-TOT-WAGES                                    DTSBR517
00845          R517-LINE1B-TOT-WAGES                                    DTSBR517
00846         GIVING WS-LINE1-TOT-WAGES.                                DTSBR517
00847                                                                   DTSBR517
00848      ADD R517-LINE1A-TAX-WAGES                                    DTSBR517
00849          R517-LINE1B-TAX-WAGES                                    DTSBR517
00850         GIVING WS-LINE1-TAX-WAGES.                                DTSBR517
00851                                                                   DTSBR517
00852      ADD R517-LINE3A-COUNT                                        DTSBR517
00853          R517-LINE3B-COUNT                                        DTSBR517
00854         GIVING WS-LINE3-COUNT.                                    DTSBR517
00855                                                                   DTSBR517
00856      ADD R517-LINE3A-TOT-WAGES                                    DTSBR517
00857          R517-LINE3B-TOT-WAGES                                    DTSBR517
00858         GIVING WS-LINE3-TOT-WAGES.                                DTSBR517
00859                                                                   DTSBR517
00860      ADD R517-LINE3A-TAX-WAGES                                    DTSBR517
00861          R517-LINE3B-TAX-WAGES                                    DTSBR517
00862         GIVING WS-LINE3-TAX-WAGES.                                DTSBR517
00863                                                                   DTSBR517
00864      ADD R517-LINE4A-COUNT                                        DTSBR517
00865          R517-LINE4B-COUNT                                        DTSBR517
00866         GIVING WS-LINE4-COUNT.                                    DTSBR517
00867                                                                   DTSBR517
00868      ADD R517-LINE4A-TOT-WAGES                                    DTSBR517
00869          R517-LINE4B-TOT-WAGES                                    DTSBR517
00870         GIVING WS-LINE4-TOT-WAGES.                                DTSBR517
00871                                                                   DTSBR517
00872      ADD R517-LINE4A-TAX-WAGES                                    DTSBR517
00873          R517-LINE4B-TAX-WAGES                                    DTSBR517
00874         GIVING WS-LINE4-TAX-WAGES.                                DTSBR517
00875                                                                   DTSBR517
00876      PERFORM P7000-SECTION-A THRU P7000-EXIT.                     DTSBR517
00877                                                                   DTSBR517
00878  P3000-EXIT.                                                      DTSBR517
00879      EXIT.                                                        DTSBR517
00880      EJECT                                                        DTSBR517
00881  P4000-SECTION-B.                                                 DTSBR517
00882                                                                   DTSBR517
00883      DISPLAY 'RATE YR-END: ', WS-RATE-YR-END-DATE.                DTSBR517
00884                                                                   DTSBR517
00885      MOVE R517-LINE6A-CHARGES TO WS-DISPLAY-AMT01                 DTSBR517
00886      DISPLAY 'LINE 6A HAS: ', WS-DISPLAY-AMT01.                   DTSBR517
00887                                                                   DTSBR517
00888      MOVE R517-LINE6A1-CHARGES TO WS-DISPLAY-AMT01                DTSBR517
00889      DISPLAY 'LINE 6A1 HAS:', WS-DISPLAY-AMT01.                   DTSBR517
00890                                                                   DTSBR517
00891      MOVE R517-LINE6B-CHARGES TO WS-DISPLAY-AMT01                 DTSBR517
00892      DISPLAY 'LINE 6B HAS: ', WS-DISPLAY-AMT01.                   DTSBR517
00893                                                                   DTSBR517
00894      MOVE R517-LINE7A-CHARGES TO WS-DISPLAY-AMT01                 DTSBR517
00895      DISPLAY 'LINE 7A HAS: ', WS-DISPLAY-AMT01.                   DTSBR517
00896                                                                   DTSBR517
00897      MOVE R517-LINE7B-CHARGES TO WS-DISPLAY-AMT01                 DTSBR517
00898      DISPLAY 'LINE 7B HAS: ', WS-DISPLAY-AMT01.                   DTSBR517
00899                                                                   DTSBR517
00900      SUBTRACT R517-LINE6A1-CHARGES                                DTSBR517
00901          FROM R517-LINE6A-CHARGES                                 DTSBR517
00902         GIVING WS-LINE6A2-CHARGES.                                DTSBR517
00903                                                                   DTSBR517
00904      ADD R517-LINE6A-CHARGES                                      DTSBR517
00905          R517-LINE6B-CHARGES                                      DTSBR517
00906         GIVING WS-LINE6-CHARGES.                                  DTSBR517
00907                                                                   DTSBR517
00908      ADD R517-LINE7A-CHARGES                                      DTSBR517
00909          R517-LINE7B-CHARGES                                      DTSBR517
00910         GIVING WS-LINE7-CHARGES.                                  DTSBR517
00911                                                                   DTSBR517
00912      ADD WS-LINE6-CHARGES                                         DTSBR517
00913          WS-LINE7-CHARGES                                         DTSBR517
00914         GIVING WS-LINE5-CHARGES.                                  DTSBR517
00915                                                                   DTSBR517
00916      MOVE WS-LINE6-CHARGES TO WS-DISPLAY-AMT01                    DTSBR517
00917      DISPLAY 'LINE 6 HAS:  ', WS-DISPLAY-AMT01.                   DTSBR517
00918                                                                   DTSBR517
00919      MOVE WS-LINE7-CHARGES TO WS-DISPLAY-AMT01                    DTSBR517
00920      DISPLAY 'LINE 7 HAS:  ', WS-DISPLAY-AMT01.                   DTSBR517
00921                                                                   DTSBR517
00922      PERFORM P7200-SECTION-B THRU P7200-EXIT.                     DTSBR517
00923                                                                   DTSBR517
00924  P4000-EXIT.                                                      DTSBR517
00925      EXIT.                                                        DTSBR517
00926      EJECT                                                        DTSBR517
00927  P5000-SECTION-C.                                                 DTSBR517
00928                                                                   DTSBR517
00929      PERFORM P6000-COMMON-HEADING THRU P6000-EXIT.                DTSBR517
00930      PERFORM P6200-COMMON-HEADING THRU P6200-EXIT.                DTSBR517
00931                                                                   DTSBR517
00932      PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT.             DTSBR517
00933      PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT.             DTSBR517
00934                                                                   DTSBR517
00935      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
00936                                                                   DTSBR517
00937      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
00938      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
00939                                                                   DTSBR517
00940      MOVE 'ELIGIBLE - REGULARLY RATED BY FACTOR'                  DTSBR517
00941        TO WS-MESSAGE-LINE.                                        DTSBR517
00942                                                                   DTSBR517
00943      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
00944      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
00945                                                                   DTSBR517
00946      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
00947                                                                   DTSBR517
00948      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
00949      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
00950                                                                   DTSBR517
00951      MOVE +0                                                      DTSBR517
00952        TO WS-TOTALS-EMPLR-CNT                                     DTSBR517
00953           WS-TOTALS-TOT-WAGE-THOU                                 DTSBR517
00954           WS-TOTALS-TAX-WAGE-THOU                                 DTSBR517
00955           WS-TOTALS-BEN-CHARGED-THOU                              DTSBR517
00956           WS-TOTALS-EST-UI-PAID-THOU.                             DTSBR517
00957                                                                   DTSBR517
00958      PERFORM P5100-RATIO-LINE                                     DTSBR517
00959         THRU P5100-EXIT                                           DTSBR517
00960           VARYING R517-ELG-REG-IDX FROM 1 BY 1                    DTSBR517
00961             UNTIL R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT         DTSBR517
00962               OR  R517-ELG-REG-IDX > 37.                          DTSBR517
00963                                                                   DTSBR517
00964      IF R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT                   DTSBR517
00965          GO TO P5000-EXIT.                                        DTSBR517
00966                                                                   DTSBR517
00967      ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC.                        DTSBR517
00968                                                                   DTSBR517
00969      PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT.                DTSBR517
00970      PERFORM P8100-COMMON-FOOTING THRU P8100-EXIT.                DTSBR517
00971                                                                   DTSBR517
00972      PERFORM P6000-COMMON-HEADING THRU P6000-EXIT.                DTSBR517
00973      PERFORM P6200-COMMON-HEADING THRU P6200-EXIT.                DTSBR517
00974                                                                   DTSBR517
00975      PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT.             DTSBR517
00976      PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT.             DTSBR517
00977                                                                   DTSBR517
00978      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
00979                                                                   DTSBR517
00980      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
00981      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
00982                                                                   DTSBR517
00983      PERFORM P5100-RATIO-LINE                                     DTSBR517
00984         THRU P5100-EXIT                                           DTSBR517
00985           VARYING R517-ELG-REG-IDX FROM 38 BY 1                   DTSBR517
00986             UNTIL R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT.        DTSBR517
00987                                                                   DTSBR517
00988      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
00989                                                                   DTSBR517
00990      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
00991      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
00992                                                                   DTSBR517
00993      MOVE '       SUBTOTAL' TO WS-LINE-TITLE.                     DTSBR517
00994                                                                   DTSBR517
00995      MOVE WS-TOTALS-EMPLR-CNT                                     DTSBR517
00996        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
00997                                                                   DTSBR517
00998      MOVE WS-TOTALS-TOT-WAGE-THOU                                 DTSBR517
00999        TO WS-DISPLAY-TOT-WAGE-THOU.                               DTSBR517
01000                                                                   DTSBR517
01001      MOVE WS-TOTALS-TAX-WAGE-THOU                                 DTSBR517
01002        TO WS-DISPLAY-TAX-WAGE-THOU.                               DTSBR517
01003                                                                   DTSBR517
01004      MOVE WS-TOTALS-BEN-CHARGED-THOU                              DTSBR517
01005        TO WS-DISPLAY-BEN-CHARGED-THOU.                            DTSBR517
01006                                                                   DTSBR517
01007      MOVE WS-TOTALS-EST-UI-PAID-THOU                              DTSBR517
01008        TO WS-DISPLAY-EST-UI-PAID-THOU.                            DTSBR517
01009                                                                   DTSBR517
01010      COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                      DTSBR517
01011          =  (WS-DISPLAY-EST-UI-PAID-THOU                          DTSBR517
01012            / WS-DISPLAY-TAX-WAGE-THOU)                            DTSBR517
01013            * 100.                                                 DTSBR517
01014                                                                   DTSBR517
01015      ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                       DTSBR517
01016                                                                   DTSBR517
01017      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE.      DTSBR517
01018      PERFORM P9400-TITLE-LINE THRU P9400-EXIT.                    DTSBR517
01019      PERFORM P9500-TITLE-LINE THRU P9500-EXIT.                    DTSBR517
01020                                                                   DTSBR517
01021      ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC.                        DTSBR517
01022                                                                   DTSBR517
01023      PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT.                DTSBR517
01024      PERFORM P8100-COMMON-FOOTING THRU P8100-EXIT.                DTSBR517
01025                                                                   DTSBR517
01026 *TITLE-PAGE BEGIN                                                 DTSBR517
01027                                                                   DTSBR517
01028                                                                   DTSBR517
01029      PERFORM P6000-COMMON-HEADING THRU P6000-EXIT.                DTSBR517
01030      PERFORM P6200-COMMON-HEADING THRU P6200-EXIT.                DTSBR517
01031                                                                   DTSBR517
01032      PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT.             DTSBR517
01033      PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT.             DTSBR517
01034                                                                   DTSBR517
01035      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
01036                                                                   DTSBR517
01037      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01038      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01039                                                                   DTSBR517
01040      MOVE '     ELIGIBLE -' TO WS-MESSAGE-LINE.                   DTSBR517
01041                                                                   DTSBR517
01042      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01043      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01044                                                                   DTSBR517
01045      MOVE 'SPECIALLY TAXED' TO WS-MESSAGE-LINE.                   DTSBR517
01046                                                                   DTSBR517
01047      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01048      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01049                                                                   DTSBR517
01050      MOVE '       SUBTOTAL' TO WS-LINE-TITLE.                     DTSBR517
01051                                                                   DTSBR517
01052      MOVE R517-ELG-SPECIAL-EMPLR-CNT                              DTSBR517
01053        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
01054                                                                   DTSBR517
01055      COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED                     DTSBR517
01056        = R517-ELG-SPECIAL-TOT-WAGE / 1000.                        DTSBR517
01057                                                                   DTSBR517
01058      COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED                     DTSBR517
01059        = R517-ELG-SPECIAL-TAX-WAGE / 1000.                        DTSBR517
01060                                                                   DTSBR517
01061      COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED                  DTSBR517
01062        = R517-ELG-SPECIAL-BEN-CHARGED / 1000.                     DTSBR517
01063                                                                   DTSBR517
01064      COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED                  DTSBR517
01065        = R517-ELG-SPECIAL-EST-UI-PAID / 1000.                     DTSBR517
01066                                                                   DTSBR517
01067      IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC                      DTSBR517
01068      OR WS-DISPLAY-TAX-WAGE-THOU = ZERO                           DTSBR517
01069          DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = '                    DTSBR517
01070                   WS-DISPLAY-TAX-WAGE-THOU                        DTSBR517
01071          MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE                     DTSBR517
01072      ELSE                                                         DTSBR517
01073          COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                  DTSBR517
01074            = (WS-DISPLAY-EST-UI-PAID-THOU                         DTSBR517
01075                 / WS-DISPLAY-TAX-WAGE-THOU) * 100                 DTSBR517
01076          ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                   DTSBR517
01077                                                                   DTSBR517
01078      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE.      DTSBR517
01079      PERFORM P9400-TITLE-LINE THRU P9400-EXIT.                    DTSBR517
01080      PERFORM P9500-TITLE-LINE THRU P9500-EXIT.                    DTSBR517
01081                                                                   DTSBR517
01082      ADD WS-DISPLAY-EMPLR-CNT                                     DTSBR517
01083       TO WS-TOTALS-EMPLR-CNT.                                     DTSBR517
01084                                                                   DTSBR517
01085      ADD WS-DISPLAY-TOT-WAGE-THOU                                 DTSBR517
01086       TO WS-TOTALS-TOT-WAGE-THOU.                                 DTSBR517
01087                                                                   DTSBR517
01088      ADD WS-DISPLAY-TAX-WAGE-THOU                                 DTSBR517
01089       TO WS-TOTALS-TAX-WAGE-THOU.                                 DTSBR517
01090                                                                   DTSBR517
01091      ADD WS-DISPLAY-BEN-CHARGED-THOU                              DTSBR517
01092       TO WS-TOTALS-BEN-CHARGED-THOU.                              DTSBR517
01093                                                                   DTSBR517
01094      ADD WS-DISPLAY-EST-UI-PAID-THOU                              DTSBR517
01095       TO WS-TOTALS-EST-UI-PAID-THOU.                              DTSBR517
01096                                                                   DTSBR517
01097                                                                   DTSBR517
01098      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
01099                                                                   DTSBR517
01100      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01101      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01102                                                                   DTSBR517
01103      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01104      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01105                                                                   DTSBR517
01106      MOVE ' TOTAL ELIGIBLE' TO WS-LINE-TITLE.                     DTSBR517
01107                                                                   DTSBR517
01108      MOVE WS-TOTALS-EMPLR-CNT                                     DTSBR517
01109        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
01110                                                                   DTSBR517
01111      MOVE WS-TOTALS-TOT-WAGE-THOU                                 DTSBR517
01112        TO WS-DISPLAY-TOT-WAGE-THOU.                               DTSBR517
01113                                                                   DTSBR517
01114      MOVE WS-TOTALS-TAX-WAGE-THOU                                 DTSBR517
01115        TO WS-DISPLAY-TAX-WAGE-THOU.                               DTSBR517
01116                                                                   DTSBR517
01117      MOVE WS-TOTALS-BEN-CHARGED-THOU                              DTSBR517
01118        TO WS-DISPLAY-BEN-CHARGED-THOU.                            DTSBR517
01119                                                                   DTSBR517
01120      MOVE WS-TOTALS-EST-UI-PAID-THOU                              DTSBR517
01121        TO WS-DISPLAY-EST-UI-PAID-THOU.                            DTSBR517
01122                                                                   DTSBR517
01123      IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC                      DTSBR517
01124      OR WS-DISPLAY-TAX-WAGE-THOU = ZERO                           DTSBR517
01125          DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = '                    DTSBR517
01126                   WS-DISPLAY-TAX-WAGE-THOU                        DTSBR517
01127          MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE                     DTSBR517
01128      ELSE                                                         DTSBR517
01129          COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                  DTSBR517
01130            = (WS-DISPLAY-EST-UI-PAID-THOU                         DTSBR517
01131                 / WS-DISPLAY-TAX-WAGE-THOU) * 100                 DTSBR517
01132          ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                   DTSBR517
01133                                                                   DTSBR517
01134      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE.      DTSBR517
01135      PERFORM P9400-TITLE-LINE THRU P9400-EXIT.                    DTSBR517
01136      PERFORM P9500-TITLE-LINE THRU P9500-EXIT.                    DTSBR517
01137                                                                   DTSBR517
01138      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
01139                                                                   DTSBR517
01140      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01141      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01142                                                                   DTSBR517
01143      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01144      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01145                                                                   DTSBR517
01146      MOVE ' TOT INELIGIBLE' TO WS-LINE-TITLE.                     DTSBR517
01147                                                                   DTSBR517
01148      MOVE R517-INELG-EMPLR-CNT                                    DTSBR517
01149        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
01150                                                                   DTSBR517
01151      COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED                     DTSBR517
01152        = R517-INELG-TOT-WAGE / 1000.                              DTSBR517
01153                                                                   DTSBR517
01154      COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED                     DTSBR517
01155        = R517-INELG-TAX-WAGE / 1000.                              DTSBR517
01156                                                                   DTSBR517
01157      COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED                  DTSBR517
01158        = R517-INELG-BEN-CHARGED / 1000.                           DTSBR517
01159                                                                   DTSBR517
01160      COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED                  DTSBR517
01161        = R517-INELG-EST-UI-PAID / 1000.                           DTSBR517
01162                                                                   DTSBR517
01163      IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC                      DTSBR517
01164      OR WS-DISPLAY-TAX-WAGE-THOU = ZERO                           DTSBR517
01165          DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = '                    DTSBR517
01166                   WS-DISPLAY-TAX-WAGE-THOU                        DTSBR517
01167          MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE                     DTSBR517
01168      ELSE                                                         DTSBR517
01169          COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                  DTSBR517
01170            = (WS-DISPLAY-EST-UI-PAID-THOU                         DTSBR517
01171                 / WS-DISPLAY-TAX-WAGE-THOU) * 100                 DTSBR517
01172          ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                   DTSBR517
01173                                                                   DTSBR517
01174      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE.      DTSBR517
01175      PERFORM P9400-TITLE-LINE THRU P9400-EXIT.                    DTSBR517
01176      PERFORM P9500-TITLE-LINE THRU P9500-EXIT.                    DTSBR517
01177                                                                   DTSBR517
01178      ADD WS-DISPLAY-EMPLR-CNT                                     DTSBR517
01179       TO WS-TOTALS-EMPLR-CNT.                                     DTSBR517
01180                                                                   DTSBR517
01181      ADD WS-DISPLAY-TOT-WAGE-THOU                                 DTSBR517
01182       TO WS-TOTALS-TOT-WAGE-THOU.                                 DTSBR517
01183                                                                   DTSBR517
01184      ADD WS-DISPLAY-TAX-WAGE-THOU                                 DTSBR517
01185       TO WS-TOTALS-TAX-WAGE-THOU.                                 DTSBR517
01186                                                                   DTSBR517
01187      ADD WS-DISPLAY-BEN-CHARGED-THOU                              DTSBR517
01188       TO WS-TOTALS-BEN-CHARGED-THOU.                              DTSBR517
01189                                                                   DTSBR517
01190      ADD WS-DISPLAY-EST-UI-PAID-THOU                              DTSBR517
01191       TO WS-TOTALS-EST-UI-PAID-THOU.                              DTSBR517
01192                                                                   DTSBR517
01193                                                                   DTSBR517
01194      MOVE SPACES TO WS-MESSAGE-LINE.                              DTSBR517
01195      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01196      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01197                                                                   DTSBR517
01198      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01199      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01200                                                                   DTSBR517
01201      MOVE '      TOTAL ALL' TO WS-MESSAGE-LINE.                   DTSBR517
01202                                                                   DTSBR517
01203      PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT.                  DTSBR517
01204      PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT.                  DTSBR517
01205                                                                   DTSBR517
01206      MOVE '  SUBJECT ACCTS' TO WS-LINE-TITLE.                     DTSBR517
01207      MOVE '  SUBJECT ACCTS' TO WS-LINE-TITLE2.                    DTSBR517
01208                                                                   DTSBR517
01209      MOVE WS-TOTALS-EMPLR-CNT                                     DTSBR517
01210        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
01211      MOVE WS-TOTALS-EMPLR-CNT                                     DTSBR517
01212        TO TITLE-EMPLR-CNT2.                                       DTSBR517
01213                                                                   DTSBR517
01214      MOVE WS-TOTALS-TOT-WAGE-THOU                                 DTSBR517
01215        TO WS-DISPLAY-TOT-WAGE-THOU.                               DTSBR517
01216      MOVE WS-TOTALS-TOT-WAGE-THOU                                 DTSBR517
01217        TO TITLE-TOT-WAGE-THOU2.                                   DTSBR517
01218                                                                   DTSBR517
01219      MOVE WS-TOTALS-TAX-WAGE-THOU                                 DTSBR517
01220        TO WS-DISPLAY-TAX-WAGE-THOU.                               DTSBR517
01221      MOVE WS-TOTALS-TAX-WAGE-THOU                                 DTSBR517
01222        TO TITLE-TAX-WAGE-THOU2.                                   DTSBR517
01223                                                                   DTSBR517
01224      MOVE WS-TOTALS-BEN-CHARGED-THOU                              DTSBR517
01225        TO WS-DISPLAY-BEN-CHARGED-THOU.                            DTSBR517
01226      MOVE WS-TOTALS-BEN-CHARGED-THOU                              DTSBR517
01227        TO TITLE-BEN-CHARGED-THOU2.                                DTSBR517
01228                                                                   DTSBR517
01229      MOVE WS-TOTALS-EST-UI-PAID-THOU                              DTSBR517
01230        TO WS-DISPLAY-EST-UI-PAID-THOU.                            DTSBR517
01231      MOVE WS-TOTALS-EST-UI-PAID-THOU                              DTSBR517
01232        TO TITLE-EST-UI-PAID-THOU2.                                DTSBR517
01233                                                                   DTSBR517
01234      IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC                      DTSBR517
01235      OR WS-DISPLAY-TAX-WAGE-THOU = ZERO                           DTSBR517
01236          DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = '                    DTSBR517
01237                   WS-DISPLAY-TAX-WAGE-THOU                        DTSBR517
01238          MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE                     DTSBR517
01239      ELSE                                                         DTSBR517
01240          COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                  DTSBR517
01241            = (WS-DISPLAY-EST-UI-PAID-THOU                         DTSBR517
01242                 / WS-DISPLAY-TAX-WAGE-THOU) * 100                 DTSBR517
01243          ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                   DTSBR517
01244                                                                   DTSBR517
01245      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE.      DTSBR517
01246      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO TITLE-AVG-TAX-RATE2.     DTSBR517
01247      PERFORM P9400-TITLE-LINE THRU P9400-EXIT.                    DTSBR517
01248 *    PERFORM P9500-TITLE-LINE THRU P9500-EXIT.                    DTSBR517
01249      PERFORM P9520-TITLE-LINE THRU P9520-EXIT.                    DTSBR517
01250                                                                   DTSBR517
01251                                                                   DTSBR517
01252      ADD +1 TO WS-PAGE-CNT.                                       DTSBR517
01253                                                                   DTSBR517
01254 *    GENERATE ETA204-COMMON-FOOTING.                              DTSBR517
01255  P5000-EXIT.                                                      DTSBR517
01256      EXIT.                                                        DTSBR517
01257                                                                   DTSBR517
01258  P5100-RATIO-LINE.                                                DTSBR517
01259      MOVE R517-ELG-REG-MIN-RATIO (R517-ELG-REG-IDX)               DTSBR517
01260        TO WS-DISPLAY-MIN-RATIO.                                   DTSBR517
01261                                                                   DTSBR517
01262      MOVE R517-ELG-REG-MAX-RATIO (R517-ELG-REG-IDX)               DTSBR517
01263        TO WS-DISPLAY-MAX-RATIO.                                   DTSBR517
01264                                                                   DTSBR517
01265      MOVE R517-ELG-REG-EMPLR-CNT (R517-ELG-REG-IDX)               DTSBR517
01266        TO WS-DISPLAY-EMPLR-CNT.                                   DTSBR517
01267                                                                   DTSBR517
01268      COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED                     DTSBR517
01269        = R517-ELG-REG-TOT-WAGE (R517-ELG-REG-IDX) / 1000.         DTSBR517
01270                                                                   DTSBR517
01271      COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED                     DTSBR517
01272        = R517-ELG-REG-TAX-WAGE (R517-ELG-REG-IDX) / 1000.         DTSBR517
01273                                                                   DTSBR517
01274      COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED                  DTSBR517
01275        = R517-ELG-REG-BEN-CHARGED (R517-ELG-REG-IDX) / 1000.      DTSBR517
01276                                                                   DTSBR517
01277      COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED                  DTSBR517
01278        = R517-ELG-REG-EST-UI-PAID (R517-ELG-REG-IDX) / 1000.      DTSBR517
01279                                                                   DTSBR517
01280      IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC                      DTSBR517
01281      OR WS-DISPLAY-TAX-WAGE-THOU = ZERO                           DTSBR517
01282          DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = '                    DTSBR517
01283                   WS-DISPLAY-TAX-WAGE-THOU                        DTSBR517
01284          MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE                     DTSBR517
01285      ELSE                                                         DTSBR517
01286          COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED                  DTSBR517
01287            = (WS-DISPLAY-EST-UI-PAID-THOU                         DTSBR517
01288                 / WS-DISPLAY-TAX-WAGE-THOU) * 100                 DTSBR517
01289          ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE.                   DTSBR517
01290                                                                   DTSBR517
01291      MOVE WS-DISPLAY-AVG-TAX-RATE3    TO DTL2-AVG-TAX-RATE.       DTSBR517
01292      PERFORM P9600-RATIO-LINE THRU P9600-EXIT.                    DTSBR517
01293      PERFORM P9700-RATIO-LINE THRU P9700-EXIT.                    DTSBR517
01294                                                                   DTSBR517
01295                                                                   DTSBR517
01296      ADD WS-DISPLAY-EMPLR-CNT                                     DTSBR517
01297       TO WS-TOTALS-EMPLR-CNT.                                     DTSBR517
01298                                                                   DTSBR517
01299      ADD WS-DISPLAY-TOT-WAGE-THOU                                 DTSBR517
01300       TO WS-TOTALS-TOT-WAGE-THOU.                                 DTSBR517
01301                                                                   DTSBR517
01302      ADD WS-DISPLAY-TAX-WAGE-THOU                                 DTSBR517
01303       TO WS-TOTALS-TAX-WAGE-THOU.                                 DTSBR517
01304                                                                   DTSBR517
01305      ADD WS-DISPLAY-BEN-CHARGED-THOU                              DTSBR517
01306       TO WS-TOTALS-BEN-CHARGED-THOU.                              DTSBR517
01307                                                                   DTSBR517
01308      ADD WS-DISPLAY-EST-UI-PAID-THOU                              DTSBR517
01309       TO WS-TOTALS-EST-UI-PAID-THOU.                              DTSBR517
01310  P5100-EXIT.                                                      DTSBR517
01311      EXIT.                                                        DTSBR517
01312      EJECT                                                        DTSBR517
01313                                                                   DTSBR517
01314  P6000-COMMON-HEADING.                                            DTSBR517
01315                                                                   DTSBR517
01316      WRITE REPORT-LISTING1 FROM HDR1-LINE-1                       DTSBR517
01317              AFTER TOP-OF-PAGE                                    DTSBR517
01318      WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1               DTSBR517
01319      WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1               DTSBR517
01320      WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1               DTSBR517
01321      WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1.              DTSBR517
01322                                                                   DTSBR517
01323  P6000-EXIT.                                                      DTSBR517
01324      EXIT.                                                        DTSBR517
01325                                                                   DTSBR517
01326  P6200-COMMON-HEADING.                                            DTSBR517
01327                                                                   DTSBR517
01328      MOVE HDR1-LINE-1 TO REPORT-LISTING1.                         DTSBR517
01329      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01330      WRITE TEXT-LINE.                                             DTSBR517
01331                                                                   DTSBR517
01332      MOVE HDR1-LINE-2 TO REPORT-LISTING1.                         DTSBR517
01333      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01334      WRITE TEXT-LINE.                                             DTSBR517
01335                                                                   DTSBR517
01336      MOVE HDR1-LINE-3 TO REPORT-LISTING1.                         DTSBR517
01337      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01338      WRITE TEXT-LINE.                                             DTSBR517
01339                                                                   DTSBR517
01340      MOVE HDR1-LINE-4 TO REPORT-LISTING1.                         DTSBR517
01341      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01342      WRITE TEXT-LINE.                                             DTSBR517
01343                                                                   DTSBR517
01344      MOVE HDR1-LINE-5 TO REPORT-LISTING1.                         DTSBR517
01345      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01346      WRITE TEXT-LINE.                                             DTSBR517
01347      ADD +5 TO WRK-TEXT-OUT-REC-CNT.                              DTSBR517
01348                                                                   DTSBR517
01349  P6200-EXIT.                                                      DTSBR517
01350      EXIT.                                                        DTSBR517
01351                                                                   DTSBR517
01352  P7000-SECTION-A.                                                 DTSBR517
01353                                                                   DTSBR517
01354      MOVE WS-LINE1-COUNT            TO DTL1-LINE1-COUNT.          DTSBR517
01355      MOVE WS-LINE1-TOT-WAGES        TO DTL1-LINE1-TOT-WAGES.      DTSBR517
01356      MOVE WS-LINE1-TAX-WAGES        TO DTL1-LINE1-TAX-WAGES.      DTSBR517
01357      MOVE R517-LINE1A-COUNT         TO DTL1-LINE1A-COUNT.         DTSBR517
01358      MOVE R517-LINE1A-TOT-WAGES     TO DTL1-LINE1A-TOT-WAGES.     DTSBR517
01359      MOVE R517-LINE1A-TAX-WAGES     TO DTL1-LINE1A-TAX-WAGES.     DTSBR517
01360      MOVE R517-LINE1B-COUNT         TO DTL1-LINE1B-COUNT.         DTSBR517
01361      MOVE R517-LINE1B-TOT-WAGES     TO DTL1-LINE1B-TOT-WAGES.     DTSBR517
01362      MOVE R517-LINE1B-TAX-WAGES     TO DTL1-LINE1B-TAX-WAGES.     DTSBR517
01363                                                                   DTSBR517
01364      MOVE R517-LINE2-COUNT          TO DTL1-LINE2-COUNT.          DTSBR517
01365      MOVE R517-LINE2-TOT-WAGES      TO DTL1-LINE2-TOT-WAGES.      DTSBR517
01366                                                                   DTSBR517
01367      MOVE WS-LINE3-COUNT            TO DTL1-LINE3-COUNT.          DTSBR517
01368      MOVE WS-LINE3-TOT-WAGES        TO DTL1-LINE3-TOT-WAGES.      DTSBR517
01369      MOVE WS-LINE3-TAX-WAGES        TO DTL1-LINE3-TAX-WAGES.      DTSBR517
01370      MOVE R517-LINE3A-COUNT         TO DTL1-LINE3A-COUNT.         DTSBR517
01371      MOVE R517-LINE3A-TOT-WAGES     TO DTL1-LINE3A-TOT-WAGES.     DTSBR517
01372      MOVE R517-LINE3A-TAX-WAGES     TO DTL1-LINE3A-TAX-WAGES.     DTSBR517
01373      MOVE R517-LINE3B-COUNT         TO DTL1-LINE3B-COUNT.         DTSBR517
01374      MOVE R517-LINE3B-TOT-WAGES     TO DTL1-LINE3B-TOT-WAGES.     DTSBR517
01375      MOVE R517-LINE3B-TAX-WAGES     TO DTL1-LINE3B-TAX-WAGES.     DTSBR517
01376                                                                   DTSBR517
01377      MOVE WS-LINE4-COUNT            TO DTL1-LINE4-COUNT.          DTSBR517
01378      MOVE WS-LINE4-TOT-WAGES        TO DTL1-LINE4-TOT-WAGES.      DTSBR517
01379      MOVE WS-LINE4-TAX-WAGES        TO DTL1-LINE4-TAX-WAGES.      DTSBR517
01380      MOVE R517-LINE4A-COUNT         TO DTL1-LINE4A-COUNT.         DTSBR517
01381      MOVE R517-LINE4A-TOT-WAGES     TO DTL1-LINE4A-TOT-WAGES.     DTSBR517
01382      MOVE R517-LINE4A-TAX-WAGES     TO DTL1-LINE4A-TAX-WAGES.     DTSBR517
01383      MOVE R517-LINE4B-COUNT         TO DTL1-LINE4B-COUNT.         DTSBR517
01384      MOVE R517-LINE4B-TOT-WAGES     TO DTL1-LINE4B-TOT-WAGES.     DTSBR517
01385      MOVE R517-LINE4B-TAX-WAGES     TO DTL1-LINE4B-TAX-WAGES.     DTSBR517
01386                                                                   DTSBR517
01387      WRITE REPORT-LISTING1 FROM DTL1-LINE-6 AFTER 1               DTSBR517
01388      WRITE REPORT-LISTING1 FROM DTL1-LINE-7 AFTER 1               DTSBR517
01389      WRITE REPORT-LISTING1 FROM DTL1-LINE-8 AFTER 1               DTSBR517
01390      WRITE REPORT-LISTING1 FROM DTL1-LINE-9 AFTER 1               DTSBR517
01391      WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 1              DTSBR517
01392      WRITE REPORT-LISTING1 FROM DTL1-LINE-11 AFTER 1              DTSBR517
01393      WRITE REPORT-LISTING1 FROM DTL1-LINE-12 AFTER 1              DTSBR517
01394      WRITE REPORT-LISTING1 FROM DTL1-LINE-13 AFTER 1              DTSBR517
01395      WRITE REPORT-LISTING1 FROM DTL1-LINE-14 AFTER 1              DTSBR517
01396      WRITE REPORT-LISTING1 FROM DTL1-LINE-15 AFTER 1              DTSBR517
01397      WRITE REPORT-LISTING1 FROM DTL1-LINE-16 AFTER 1              DTSBR517
01398      WRITE REPORT-LISTING1 FROM DTL1-LINE-17 AFTER 1              DTSBR517
01399      WRITE REPORT-LISTING1 FROM DTL1-LINE-18 AFTER 1              DTSBR517
01400      WRITE REPORT-LISTING1 FROM DTL1-LINE-19 AFTER 1              DTSBR517
01401      WRITE REPORT-LISTING1 FROM DTL1-LINE-20 AFTER 1              DTSBR517
01402      WRITE REPORT-LISTING1 FROM DTL1-LINE-21 AFTER 1              DTSBR517
01403      WRITE REPORT-LISTING1 FROM DTL1-LINE-22 AFTER 1              DTSBR517
01404      WRITE REPORT-LISTING1 FROM DTL1-LINE-23 AFTER 1              DTSBR517
01405      WRITE REPORT-LISTING1 FROM DTL1-LINE-24 AFTER 1              DTSBR517
01406      WRITE REPORT-LISTING1 FROM DTL1-LINE-25 AFTER 1              DTSBR517
01407      WRITE REPORT-LISTING1 FROM DTL1-LINE-26 AFTER 1              DTSBR517
01408      WRITE REPORT-LISTING1 FROM DTL1-LINE-27 AFTER 1              DTSBR517
01409      WRITE REPORT-LISTING1 FROM DTL1-LINE-28 AFTER 1              DTSBR517
01410      WRITE REPORT-LISTING1 FROM DTL1-LINE-29 AFTER 1              DTSBR517
01411      WRITE REPORT-LISTING1 FROM DTL1-LINE-30 AFTER 1.             DTSBR517
01412                                                                   DTSBR517
01413  P7000-EXIT.                                                      DTSBR517
01414      EXIT.                                                        DTSBR517
01415                                                                   DTSBR517
01416  P7200-SECTION-B.                                                 DTSBR517
01417                                                                   DTSBR517
01418      MOVE WS-LINE5-CHARGES          TO DTL1-LINE5-CHARGES.        DTSBR517
01419      MOVE WS-LINE6-CHARGES          TO DTL1-LINE6-CHARGES.        DTSBR517
01420      MOVE R517-LINE6A-CHARGES       TO DTL1-LINE6A-CHARGES.       DTSBR517
01421      MOVE R517-LINE6A1-CHARGES      TO DTL1-LINE6A1-CHARGES.      DTSBR517
01422      MOVE WS-LINE6A2-CHARGES        TO DTL1-LINE6A2-CHARGES.      DTSBR517
01423      MOVE R517-LINE6B-CHARGES       TO DTL1-LINE6B-CHARGES.       DTSBR517
01424      MOVE WS-LINE7-CHARGES          TO DTL1-LINE7-CHARGES.        DTSBR517
01425      MOVE R517-LINE7A-CHARGES       TO DTL1-LINE7A-CHARGES.       DTSBR517
01426      MOVE R517-LINE7B-CHARGES       TO DTL1-LINE7B-CHARGES.       DTSBR517
01427      MOVE R517-YR-2-AVG-TAX-RATE    TO DTL1-LINE51-RTE-TAX-WGE.   DTSBR517
01428      MOVE R517-YR-2-AVG-TOT-RATE    TO DTL1-LINE53-RTE-TOT-WGE.   DTSBR517
01429                                                                   DTSBR517
01430      WRITE REPORT-LISTING1 FROM DTL1-LINE-31 AFTER 1              DTSBR517
01431      WRITE REPORT-LISTING1 FROM DTL1-LINE-32 AFTER 1              DTSBR517
01432      WRITE REPORT-LISTING1 FROM DTL1-LINE-33 AFTER 1              DTSBR517
01433      WRITE REPORT-LISTING1 FROM DTL1-LINE-34 AFTER 1              DTSBR517
01434      WRITE REPORT-LISTING1 FROM DTL1-LINE-35 AFTER 1              DTSBR517
01435      WRITE REPORT-LISTING1 FROM DTL1-LINE-36 AFTER 1              DTSBR517
01436      WRITE REPORT-LISTING1 FROM DTL1-LINE-37 AFTER 1              DTSBR517
01437      WRITE REPORT-LISTING1 FROM DTL1-LINE-38 AFTER 1              DTSBR517
01438      WRITE REPORT-LISTING1 FROM DTL1-LINE-39 AFTER 1              DTSBR517
01439      WRITE REPORT-LISTING1 FROM DTL1-LINE-40 AFTER 1              DTSBR517
01440      WRITE REPORT-LISTING1 FROM DTL1-LINE-41 AFTER 1              DTSBR517
01441      WRITE REPORT-LISTING1 FROM DTL1-LINE-42 AFTER 1              DTSBR517
01442      WRITE REPORT-LISTING1 FROM DTL1-LINE-43 AFTER 1              DTSBR517
01443      WRITE REPORT-LISTING1 FROM DTL1-LINE-44 AFTER 1              DTSBR517
01444      WRITE REPORT-LISTING1 FROM DTL1-LINE-45 AFTER 1              DTSBR517
01445      WRITE REPORT-LISTING1 FROM DTL1-LINE-46 AFTER 1              DTSBR517
01446      WRITE REPORT-LISTING1 FROM DTL1-LINE-47 AFTER 1.             DTSBR517
01447                                                                   DTSBR517
01448  P7200-EXIT.                                                      DTSBR517
01449      EXIT.                                                        DTSBR517
01450                                                                   DTSBR517
01451  P7400-COMM-SIGN.                                                 DTSBR517
01452                                                                   DTSBR517
01453      WRITE REPORT-LISTING1 FROM DTL1-LINE-48 AFTER 1              DTSBR517
01454      WRITE REPORT-LISTING1 FROM DTL1-LINE-49 AFTER 1              DTSBR517
01455      WRITE REPORT-LISTING1 FROM DTL1-LINE-50 AFTER 1              DTSBR517
01456      WRITE REPORT-LISTING1 FROM DTL1-LINE-51 AFTER 1              DTSBR517
01457      WRITE REPORT-LISTING1 FROM DTL1-LINE-52 AFTER 1              DTSBR517
01458      WRITE REPORT-LISTING1 FROM DTL1-LINE-53 AFTER 1              DTSBR517
01459      WRITE REPORT-LISTING1 FROM DTL1-LINE-54 AFTER 1              DTSBR517
01460      WRITE REPORT-LISTING1 FROM DTL1-LINE-55 AFTER 1              DTSBR517
01461      WRITE REPORT-LISTING1 FROM DTL1-LINE-56 AFTER 1              DTSBR517
01462      WRITE REPORT-LISTING1 FROM DTL1-LINE-57 AFTER 1.             DTSBR517
01463      WRITE REPORT-LISTING1 FROM DTL1-LINE-58 AFTER 1.             DTSBR517
01464      WRITE REPORT-LISTING1 FROM DTL1-LINE-59 AFTER 1.             DTSBR517
01465      WRITE REPORT-LISTING1 FROM DTL1-LINE-60 AFTER 1.             DTSBR517
01466      WRITE REPORT-LISTING1 FROM DTL1-LINE-61 AFTER 1.             DTSBR517
01467                                                                   DTSBR517
01468  P7400-EXIT.                                                      DTSBR517
01469      EXIT.                                                        DTSBR517
01470                                                                   DTSBR517
01471                                                                   DTSBR517
01472  P8000-COMMON-FOOTING.                                            DTSBR517
01473                                                                   DTSBR517
01474      WRITE REPORT-LISTING1 FROM FOOT-LINE-1 AFTER 1               DTSBR517
01475      WRITE REPORT-LISTING1 FROM FOOT-LINE-2 AFTER 1               DTSBR517
01476      WRITE REPORT-LISTING1 FROM FOOT-LINE-3 AFTER 1.              DTSBR517
01477                                                                   DTSBR517
01478  P8000-EXIT.                                                      DTSBR517
01479      EXIT.                                                        DTSBR517
01480                                                                   DTSBR517
01481  P8100-COMMON-FOOTING.                                            DTSBR517
01482                                                                   DTSBR517
01483      MOVE FOOT-LINE-1 TO REPORT-LISTING1.                         DTSBR517
01484      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01485      WRITE TEXT-LINE.                                             DTSBR517
01486                                                                   DTSBR517
01487      MOVE FOOT-LINE-2 TO REPORT-LISTING1.                         DTSBR517
01488      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01489      WRITE TEXT-LINE.                                             DTSBR517
01490                                                                   DTSBR517
01491      MOVE FOOT-LINE-4 TO REPORT-LISTING1.                         DTSBR517
01492      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01493      WRITE TEXT-LINE.                                             DTSBR517
01494      ADD +3 TO WRK-TEXT-OUT-REC-CNT .                             DTSBR517
01495                                                                   DTSBR517
01496  P8100-EXIT.                                                      DTSBR517
01497      EXIT.                                                        DTSBR517
01498                                                                   DTSBR517
01499  P9000-SECTION-C-HEADING.                                         DTSBR517
01500                                                                   DTSBR517
01501      MOVE R517-RATE-YEAR-TX-WG-BASE TO HDR2-RATE-YEAR-TX-WG-BASE. DTSBR517
01502      MOVE R517-RY-MINUS-ONE-TX-WG-BASE TO                         DTSBR517
01503             HDR2-RY-MINUS-ONE-TX-WG-BASE.                         DTSBR517
01504      MOVE R517-RY-MINUS-TWO-TX-WG-BASE TO                         DTSBR517
01505             HDR2-RY-MINUS-TWO-TX-WG-BASE.                         DTSBR517
01506      WRITE REPORT-LISTING1 FROM HDR2-LINE-6 AFTER 1               DTSBR517
01507      WRITE REPORT-LISTING1 FROM HDR2-LINE-7 AFTER 1               DTSBR517
01508      WRITE REPORT-LISTING1 FROM HDR2-LINE-8 AFTER 1               DTSBR517
01509      WRITE REPORT-LISTING1 FROM HDR2-LINE-9 AFTER 1               DTSBR517
01510      WRITE REPORT-LISTING1 FROM HDR2-LINE-10 AFTER 1              DTSBR517
01511      WRITE REPORT-LISTING1 FROM HDR2-LINE-11 AFTER 1              DTSBR517
01512      WRITE REPORT-LISTING1 FROM HDR2-LINE-12 AFTER 1              DTSBR517
01513      WRITE REPORT-LISTING1 FROM HDR2-LINE-13 AFTER 1              DTSBR517
01514      WRITE REPORT-LISTING1 FROM HDR2-LINE-14 AFTER 1              DTSBR517
01515      WRITE REPORT-LISTING1 FROM HDR2-LINE-15 AFTER 1              DTSBR517
01516      WRITE REPORT-LISTING1 FROM HDR2-LINE-16 AFTER 1              DTSBR517
01517      WRITE REPORT-LISTING1 FROM HDR2-LINE-17 AFTER 1.             DTSBR517
01518                                                                   DTSBR517
01519  P9000-EXIT.                                                      DTSBR517
01520      EXIT.                                                        DTSBR517
01521                                                                   DTSBR517
01522  P9100-SECTION-C-HEADING.                                         DTSBR517
01523                                                                   DTSBR517
01524      MOVE HDR2-LINE-6 TO REPORT-LISTING1.                         DTSBR517
01525      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01526      WRITE TEXT-LINE.                                             DTSBR517
01527                                                                   DTSBR517
01528      MOVE HDR2-LINE-7 TO REPORT-LISTING1.                         DTSBR517
01529      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01530      WRITE TEXT-LINE.                                             DTSBR517
01531                                                                   DTSBR517
01532      MOVE HDR2-LINE-8 TO REPORT-LISTING1.                         DTSBR517
01533      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01534      WRITE TEXT-LINE.                                             DTSBR517
01535                                                                   DTSBR517
01536      MOVE HDR2-LINE-9 TO REPORT-LISTING1.                         DTSBR517
01537      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01538      WRITE TEXT-LINE.                                             DTSBR517
01539                                                                   DTSBR517
01540      MOVE HDR2-LINE-10 TO REPORT-LISTING1.                        DTSBR517
01541      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01542      WRITE TEXT-LINE.                                             DTSBR517
01543                                                                   DTSBR517
01544      MOVE HDR2-LINE-11 TO REPORT-LISTING1.                        DTSBR517
01545      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01546      WRITE TEXT-LINE.                                             DTSBR517
01547                                                                   DTSBR517
01548      MOVE HDR2-LINE-12 TO REPORT-LISTING1.                        DTSBR517
01549      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01550      WRITE TEXT-LINE.                                             DTSBR517
01551                                                                   DTSBR517
01552      MOVE HDR2-LINE-13 TO REPORT-LISTING1.                        DTSBR517
01553      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01554      WRITE TEXT-LINE.                                             DTSBR517
01555                                                                   DTSBR517
01556      MOVE HDR2-LINE-14 TO REPORT-LISTING1.                        DTSBR517
01557      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01558      WRITE TEXT-LINE.                                             DTSBR517
01559                                                                   DTSBR517
01560      MOVE HDR2-LINE-15 TO REPORT-LISTING1.                        DTSBR517
01561      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01562      WRITE TEXT-LINE.                                             DTSBR517
01563                                                                   DTSBR517
01564      MOVE HDR2-LINE-16 TO REPORT-LISTING1.                        DTSBR517
01565      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01566      WRITE TEXT-LINE.                                             DTSBR517
01567                                                                   DTSBR517
01568      MOVE HDR2-LINE-17 TO REPORT-LISTING1.                        DTSBR517
01569      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01570      WRITE TEXT-LINE.                                             DTSBR517
01571      ADD +12 TO WRK-TEXT-OUT-REC-CNT.                             DTSBR517
01572                                                                   DTSBR517
01573  P9100-EXIT.                                                      DTSBR517
01574      EXIT.                                                        DTSBR517
01575                                                                   DTSBR517
01576  P9200-MESSAGE-LINE.                                              DTSBR517
01577                                                                   DTSBR517
01578      WRITE REPORT-LISTING1 FROM MSG-LINE-1 AFTER 1.               DTSBR517
01579                                                                   DTSBR517
01580  P9200-EXIT.                                                      DTSBR517
01581      EXIT.                                                        DTSBR517
01582                                                                   DTSBR517
01583  P9300-MESSAGE-LINE.                                              DTSBR517
01584                                                                   DTSBR517
01585      MOVE TEXT-REC TO TEXT-LINE.                                  DTSBR517
01586      WRITE TEXT-LINE.                                             DTSBR517
01587      ADD +1 TO WRK-TEXT-OUT-REC-CNT.                              DTSBR517
01588                                                                   DTSBR517
01589  P9300-EXIT.                                                      DTSBR517
01590      EXIT.                                                        DTSBR517
01591                                                                   DTSBR517
01592  P9400-TITLE-LINE.                                                DTSBR517
01593                                                                   DTSBR517
01594 *    MOVE WS-DISPLAY-AVG-TAX-RATE     TO TITLE-AVG-TAX-RATE.      DTSBR517
01595      MOVE WS-DISPLAY-EMPLR-CNT        TO TITLE-EMPLR-CNT.         DTSBR517
01596      MOVE WS-DISPLAY-TOT-WAGE-THOU    TO TITLE-TOT-WAGE-THOU.     DTSBR517
01597      MOVE WS-DISPLAY-TAX-WAGE-THOU    TO TITLE-TAX-WAGE-THOU.     DTSBR517
01598      MOVE WS-DISPLAY-BEN-CHARGED-THOU TO TITLE-BEN-CHARGED-THOU.  DTSBR517
01599      MOVE WS-DISPLAY-EST-UI-PAID-THOU TO TITLE-EST-UI-PAID-THOU.  DTSBR517
01600                                                                   DTSBR517
01601      WRITE REPORT-LISTING1 FROM TITLE-LINE-1 AFTER 1.             DTSBR517
01602                                                                   DTSBR517
01603  P9400-EXIT.                                                      DTSBR517
01604      EXIT.                                                        DTSBR517
01605                                                                   DTSBR517
01606  P9500-TITLE-LINE.                                                DTSBR517
01607                                                                   DTSBR517
01608      MOVE TITLE-LINE-1 TO REPORT-LISTING1.                        DTSBR517
01609      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01610      WRITE TEXT-LINE.                                             DTSBR517
01611      ADD +1 TO WRK-TEXT-OUT-REC-CNT.                              DTSBR517
01612                                                                   DTSBR517
01613  P9500-EXIT.                                                      DTSBR517
01614      EXIT.                                                        DTSBR517
01615                                                                   DTSBR517
01616  P9520-TITLE-LINE.                                                DTSBR517
01617                                                                   DTSBR517
01618      MOVE TITLE-LINE-2 TO REPORT-LISTING1.                        DTSBR517
01619      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01620      WRITE TEXT-LINE.                                             DTSBR517
01621      ADD +1 TO WRK-TEXT-OUT-REC-CNT.                              DTSBR517
01622                                                                   DTSBR517
01623  P9520-EXIT.                                                      DTSBR517
01624      EXIT.                                                        DTSBR517
01625                                                                   DTSBR517
01626  P9600-RATIO-LINE.                                                DTSBR517
01627                                                                   DTSBR517
01628      MOVE WS-DISPLAY-MIN-RATIO        TO DTL2-MIN-RATIO.          DTSBR517
01629      MOVE WS-DISPLAY-MAX-RATIO        TO DTL2-MAX-RATIO.          DTSBR517
01630 *    MOVE WS-DISPLAY-AVG-TAX-RATE     TO DTL2-AVG-TAX-RATE.       DTSBR517
01631      MOVE WS-DISPLAY-EMPLR-CNT        TO DTL2-EMPLR-CNT.          DTSBR517
01632      MOVE WS-DISPLAY-TOT-WAGE-THOU    TO DTL2-TOT-WAGE-THOU.      DTSBR517
01633      MOVE WS-DISPLAY-TAX-WAGE-THOU    TO DTL2-TAX-WAGE-THOU.      DTSBR517
01634      MOVE WS-DISPLAY-BEN-CHARGED-THOU TO DTL2-BEN-CHARGED-THOU.   DTSBR517
01635      MOVE WS-DISPLAY-EST-UI-PAID-THOU TO DTL2-EST-UI-PAID-THOU.   DTSBR517
01636                                                                   DTSBR517
01637      WRITE REPORT-LISTING1 FROM RATIO-LINE-1 AFTER 1.             DTSBR517
01638                                                                   DTSBR517
01639  P9600-EXIT.                                                      DTSBR517
01640      EXIT.                                                        DTSBR517
01641                                                                   DTSBR517
01642  P9700-RATIO-LINE.                                                DTSBR517
01643                                                                   DTSBR517
01644      MOVE RATIO-LINE-1 TO REPORT-LISTING1.                        DTSBR517
01645      MOVE TEXT-REC    TO TEXT-LINE.                               DTSBR517
01646      WRITE TEXT-LINE.                                             DTSBR517
01647      ADD +1 TO WRK-TEXT-OUT-REC-CNT.                              DTSBR517
01648                                                                   DTSBR517
01649  P9700-EXIT.                                                      DTSBR517
01650      EXIT.                                                        DTSBR517
01651                                                                   DTSBR517
01652  T1000-TERMINATE.                                                 DTSBR517
01653                                                                   DTSBR517
01654      DISPLAY                                                      DTSBR517
01655       '***  NUMBER OF SECTION-C RECORDS OUTPUT: '                 DTSBR517
01656       WRK-TEXT-OUT-REC-CNT.                                       DTSBR517
01657                                                                   DTSBR517
01658      CLOSE PRT-FILE SECTION-C-TEXT-FILE.                          DTSBR517
01659                                                                   DTSBR517
01660  T1000-EXIT.                                                      DTSBR517
01661      EXIT.                                                        DTSBR517
01662      EJECT                                                        DTSBR517
01663  S001-DATE.                                                       DTSBR517
01664                                                                   DTSBR517
01665      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR517
01666                                                                   DTSBR517
01667  S001-EXIT.                                                       DTSBR517
01668      EXIT.                                                        DTSBR517
01669                                                                   DTSBR517
01670 *S999-ABEND.                                                      DTSBR517
01671 *                                                                 DTSBR517
01672 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR517
01673 *                                                                 DTSBR517
01674 *S999-EXIT.                                                       DTSBR517
01675 *    EXIT.                                                        DTSBR517
