00001  IDENTIFICATION DIVISION.                                         12/18/23
00002  PROGRAM-ID.             DTSBR521.                                DTSBR521
00003  AUTHOR.                 D.SHEPPERSON                                LV013
00004  DATE-WRITTEN.           MAY 1999.                                DTSBR521
00005  DATE-COMPILED.                                                   DTSBR521
00006      SKIP3                                                        DTSBR521
00007 *****                                                             DTSBR521
00008 *                                                                 DTSBR521
00009 *    FUNCTION:  EMPLOYER EXPERIENCE RATING SUMMARY                DTSBR521
00010 *               - RATE TABLE SUMMARY AS OF YY/Q                   DTSBR521
00011 *                                                                 DTSBR521
00012 *    CALLING SEQUENCE:  DTSBD750 WRITES DTSIR521 RECORDS          DTSBR521
00013 *                       DTSBR521 READS  DTSIR521 RECORDS          DTSBR521
00014 *                       TO PRODUCE THE RATE ASSIGNMENT REPORT.    DTSBR521
00015 *                                                                 DTSBR521
00016 *    MODIFICATION HISTORY:                                        DTSBR521
00017 *                                                                 DTSBR521
00018 * 11-25-97 INITIAL DEVELOPMENT                                    DTSBR521
00019 *          REFERENCE RFP #TCL 227         AUTHOR OF CHANGE - EHH  DTSBR521
00020 *                                                                 DTSBR521
00021 * 05-18-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS      DTSBR521
00022 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR521
00023 *                                                                 DTSBR521
00024 *                                                                 DTSBR521
00025 *    DESCRIPTION:                                                 DTSBR521
00026 *                                                                 DTSBR521
00027 *        THIS MODULE GENERATES THE EMPLOYER EXPERIENCE RATING     DTSBR521
00028 *        SUMMARY REPORT.                                          DTSBR521
00029 *                                                                 DTSBR521
00030 *                                                                 DTSBR521
00031 *    RECORDS READ:                                                DTSBR521
00032 *                                                                 DTSBR521
00033 *        NONE.                                                    DTSBR521
00034 *                                                                 DTSBR521
00035 *    REFERENCE FILE RECORDS READ:                                 DTSBR521
00036 *                                                                 DTSBR521
00037 *        FUIR.                                                    DTSBR521
00038 *                                                                 DTSBR521
00039 *    PRINTED OUTPUTS:                                             DTSBR521
00040 *                                                                 DTSBR521
00041 *        521R1  EMPLOYER ANNUAL RATE SUMMARY REPORT.              DTSBR521
00042 *                                                                 DTSBR521
00043 *                                                                 DTSBR521
00044 *    RECORDS WRITTEN:                                             DTSBR521
00045 *                                                                 DTSBR521
00046 *        NONE.                                                    DTSBR521
00047 *                                                                 DTSBR521
00048 *                                                                 DTSBR521
00049 *    MODULES CALLED:                                              DTSBR521
00050 *                                                                 DTSBR521
00051 *        DTSBU001 EMP REGISTRATION CODES EDIT/DESCRIPTION         DTSBR521
00052 *        DTSBU004 QUARTER CONVERSION MODULE                       DTSBR521
00053 *        DTSBU056 UI RATE DESCRIPTION MODULE                      DTSBR521
00054 *        DTSBU057 FORMAT RESERVE RATIO FOR DISPLAY ON PRINTED     DTSBR521
00055 *                 OUTPUT.                                         DTSBR521
00056 *                                                                 DTSBR521
00057 *****                                                             DTSBR521
00058      EJECT                                                        DTSBR521
00059  ENVIRONMENT DIVISION.                                            DTSBR521
00060                                                                   DTSBR521
00061  CONFIGURATION SECTION.                                           DTSBR521
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR521
00063                                                                   DTSBR521
00064  INPUT-OUTPUT SECTION.                                            DTSBR521
00065                                                                   DTSBR521
00066  FILE-CONTROL.                                                    DTSBR521
00067      SELECT PRT-FILE ASSIGN TO RPT521R1.                          DTSBR521
00068                                                                   DTSBR521
00069  DATA DIVISION.                                                   DTSBR521
00070                                                                   DTSBR521
00071  FILE SECTION.                                                    DTSBR521
00072                                                                   DTSBR521
00073  FD  PRT-FILE                                                     DTSBR521
00074      RECORDING MODE IS F.                                         DTSBR521
00075  01  PRT-RECORD              PIC X(165).                             CL*11
00076                                                                   DTSBR521
00077      EJECT                                                        DTSBR521
00078  WORKING-STORAGE SECTION.                                         DTSBR521
000785 77  PAN-VALET PICTURE X(24) VALUE '013DTSBR521  12/18/23'.       DTSBR521
00079  77  PAN-VALET PICTURE X(24) VALUE '223DTSBR521  11/28/01'.       DTSBR521
00080                                                                   DTSBR521
00081  01  WRK-AREA.                                                    DTSBR521
00082      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +521.DTSBR521
00083      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR521
00084      05  ABEND-MSG                   PIC  X(60).                  DTSBR521
00085                                                                   DTSBR521
00086      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR521
00087      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR521
00088      05  WS-PAGE-CNT                 PIC S9(05)  COMP-3 VALUE +0. DTSBR521
00089                                                                   DTSBR521
00090      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR521
00091      05  WS-OUTPUT-HEADING           PIC  X(55).                  DTSBR521
00092      05  WS-FUIR-MIN-RATIO           PIC S9(02)V9(05).            DTSBR521
00093      05  WS-FUIR-MAX-RATIO           PIC S9(02)V9(05).            DTSBR521
00094      05  WS-FUIR-UI-RATE             PIC S9(01)V9999              DTSBR521
00095                                      COMP-3 VALUE 0.              DTSBR521
00096      05  WS-FUIR-UI-RATE-D           PIC X(07).                   DTSBR521
00097      05  WS-EFF-QTR-UNPACK           PIC  9(05).                  DTSBR521
00098      05  WS-OUT-TAXABLE-WAGES1       PIC S9(11)V99.               DTSBR521
00099      05  WS-OUT-TAXABLE-WAGES2       PIC S9(11)V99.               DTSBR521
00100      05  WS-OUT-TAXABLE-WAGES3       PIC S9(11)V99.                  CL**2
00101      05  WS-UI-RATE-CATEGORY         PIC X.                       DTSBR521
00102      05  WS-TAX-QTR-FROM             PIC X(04).                   DTSBR521
00103      05  WS-TAX-QTR-THRU             PIC X(04).                   DTSBR521
00104      05  WS-TAX-PD-FROM-THRU.                                     DTSBR521
00105          10 WS-TAX-PD-FROM-DT        PIC X(04).                   DTSBR521
00106          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00107          10 FILLER                   PIC X(01) VALUE '-'.         DTSBR521
00108          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00109          10 WS-TAX-PD-THRU-DT        PIC X(04).                   DTSBR521
00110      05  WS-TRUST-FND-FROM-THRU.                                  DTSBR521
00111          10 WS-TRUST-FROM-DT         PIC X(04).                   DTSBR521
00112          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00113          10 FILLER                   PIC X(01) VALUE '-'.         DTSBR521
00114          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00115          10 WS-TRUST-THRU-DT         PIC X(04).                   DTSBR521
00116      05  WS-BENEFIT-CHG-FROM-THRU.                                DTSBR521
00117          10 WS-BENEF-FROM-DT         PIC X(04).                   DTSBR521
00118          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00119          10 FILLER                   PIC X(01) VALUE '-'.         DTSBR521
00120          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00121          10 WS-BENEF-THRU-DT         PIC X(04).                   DTSBR521
00122      05  WS-TAX-WAGE1-FROM-THRU.                                  DTSBR521
00123          10 WS-TAX-WAGE1-FROM        PIC X(04).                   DTSBR521
00124          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00125          10 FILLER                   PIC X(01) VALUE '-'.         DTSBR521
00126          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00127          10 WS-TAX-WAGE1-THRU        PIC X(04).                   DTSBR521
00128      05  WS-TAX-WAGE2-FROM-THRU.                                  DTSBR521
00129          10 WS-TAX-WAGE2-FROM        PIC X(04).                   DTSBR521
00130          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00131          10 FILLER                   PIC X(01) VALUE '-'.         DTSBR521
00132          10 FILLER                   PIC X(01) VALUE SPACE.       DTSBR521
00133          10 WS-TAX-WAGE2-THRU        PIC X(04).                   DTSBR521
00134      05  WS-TAX-WAGE3-FROM-THRU.                                     CL**2
00135          10 WS-TAX-WAGE3-FROM        PIC X(04).                      CL**2
00136          10 FILLER                   PIC X(01) VALUE SPACE.          CL**2
00137          10 FILLER                   PIC X(01) VALUE '-'.            CL**2
00138          10 FILLER                   PIC X(01) VALUE SPACE.          CL**2
00139          10 WS-TAX-WAGE3-THRU        PIC X(04).                      CL**2
00140      EJECT                                                        DTSBR521
00141  01  WS-OUTPUT-LINE.                                              DTSBR521
00142          10  WS-REG-UI-RATE          PIC S9V9999     COMP-3.      DTSBR521
00143          10  WS-REG-UI-RATE-D        PIC X(07).                   DTSBR521
00144          10  WS-REG-TRUST-FUND-INT   PIC S9(11)V99   COMP-3.         CL**6
00145          10  WS-REG-BENEFITS-CHGD    PIC S9(11)V99   COMP-3.         CL**6
00146          10  WS-REG-MIN-RATIO        PIC S9(02)V99.               DTSBR521
00147          10  WS-REG-MAX-RATIO        PIC S9(02)V99.               DTSBR521
00148          10  WS-REG-EMPL-COUNT       PIC S9(07)      COMP-3.      DTSBR521
00149          10  WS-REG-UI-TAX-PAID      PIC S9(11)V99   COMP-3.         CL**6
00150          10  WS-REG-CURRENT-RESERVE  PIC S9(11)V99   COMP-3.         CL**6
00151          10  WS-REG-TAXABLE-WAGES1   PIC S9(11)V99   COMP-3.      DTSBR521
00152          10  WS-REG-TAXABLE-WAGES2   PIC S9(11)V99   COMP-3.      DTSBR521
00153          10  WS-REG-TAXABLE-WAGES3   PIC S9(11)V99   COMP-3.         CL**2
00154      EJECT                                                        DTSBR521
00155  01  WS-OUTPUT-CLASSIFIED.                                        DTSBR521
00156      05  WS-CLASSF-FIELDS.                                        DTSBR521
00157          10  WS-CLS-TRUST-FUND-INT   PIC S9(11)V99   COMP-3.         CL**6
00158          10  WS-CLS-BENEFITS-CHGD    PIC S9(11)V99   COMP-3.         CL**6
00159          10  WS-CLS-EMPL-COUNT       PIC S9(07)      COMP-3.      DTSBR521
00160          10  WS-CLS-UI-RATE          PIC  99V9.                   DTSBR521
00161          10  WS-CLS-UI-TAX-PAID      PIC S9(11)V99   COMP-3.         CL**6
00162          10  WS-CLS-CURRENT-RESERVE  PIC S9(11)V99   COMP-3.         CL**6
00163          10  WS-CLS-TAXABLE-WAGES1   PIC S9(11)V99   COMP-3.      DTSBR521
00164          10  WS-CLS-TAXABLE-WAGES2   PIC S9(11)V99   COMP-3.      DTSBR521
00165          10  WS-CLS-TAXABLE-WAGES3   PIC S9(11)V99   COMP-3.         CL**2
00166      EJECT                                                        DTSBR521
00167  01  WS-EMPLR-AREA.                                               DTSBR521
00168      05  WS-EMPLR-FIELDS.                                         DTSBR521
00169          10  WS-EMP-UI-TAX-PAID      PIC S9(11)V99   COMP-3.         CL**6
00170          10  WS-EMP-TRUST-FUND-INT   PIC S9(11)V99   COMP-3.         CL**6
00171          10  WS-EMP-BENEFITS-CHGD    PIC S9(11)V99   COMP-3.         CL**6
00172          10  WS-EMP-EMPL-COUNT       PIC S9(07)      COMP-3.      DTSBR521
00173          10  WS-EMP-UI-RATE          PIC X(07).                   DTSBR521
00174          10  WS-EMP-CURRENT-RESERVE  PIC S9(11)V99   COMP-3.         CL**6
00175          10  WS-EMP-TAXABLE-WAGES1   PIC S9(11)V99   COMP-3.      DTSBR521
00176          10  WS-EMP-TAXABLE-WAGES2   PIC S9(11)V99   COMP-3.      DTSBR521
00177          10  WS-EMP-TAXABLE-WAGES3   PIC S9(11)V99   COMP-3.         CL**2
00178                                                                   DTSBR521
00179  01  WS-GRAND-AREA.                                               DTSBR521
00180      05  WS-GRAND-TOTAL-FIELDS.                                   DTSBR521
00181          10  WS-GRD-TAXABLE-WAGES1   PIC S9(11)V99   COMP-3.      DTSBR521
00182          10  WS-GRD-TAXABLE-WAGES2   PIC S9(11)V99   COMP-3.      DTSBR521
00183          10  WS-GRD-TAXABLE-WAGES3   PIC S9(11)V99   COMP-3.         CL**2
00184          10  WS-GRD-TRUST-FUND-INT   PIC S9(11)V99   COMP-3.         CL**6
00185          10  WS-GRD-BENEFITS-CHGD    PIC S9(11)V99   COMP-3.         CL**6
00186          10  WS-GRD-EMPLR-COUNT      PIC S9(07)      COMP-3.      DTSBR521
00187          10  WS-GRD-UI-TAX-PAID      PIC S9(11)V99   COMP-3.         CL**6
00188          10  WS-GRD-CURRENT-RESERVE  PIC S9(11)V99   COMP-3.         CL**6
00189      EJECT                                                        DTSBR521
00190  01  FUIR-REC.                                                    DTSBR521
00191  ++INCLUDE DTSIFUIR                                               DTSBR521
00192      EJECT                                                        DTSBR521
00193  01  L001-LINK-AREA.                                              DTSBR521
00194  ++INCLUDE DTSIL001                                               DTSBR521
00195      EJECT                                                        DTSBR521
00196  01  L004-LINK-AREA.                                              DTSBR521
00197  ++INCLUDE DTSIL004                                               DTSBR521
00198      EJECT                                                        DTSBR521
00199  01  L056-LINK-AREA.                                              DTSBR521
00200  ++INCLUDE DTSIL056                                               DTSBR521
00201      EJECT                                                        DTSBR521
00202  01  L057-LINK-AREA.                                              DTSBR521
00203  ++INCLUDE DTSIL057                                               DTSBR521
00204      EJECT                                                        DTSBR521
00205  01  L931-LINK-AREA.                                              DTSBR521
00206  ++INCLUDE DTSIL931                                               DTSBR521
00207      EJECT                                                        DTSBR521
00208  01  FSKL-REC.                                                    DTSBR521
00209  ++INCLUDE DTSIFSKL                                               DTSBR521
00210      EJECT                                                        DTSBR521
00211  01  PAGE-HEADING.                                                DTSBR521
00212      05  HDR-LINE-1.                                              DTSBR521
00213          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00214          10  FILLER                  PIC  X(05)                   DTSBR521
00215                 VALUE '521R1'.                                    DTSBR521
00216          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR521
00217          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR521
00218          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR521
00219          10  FILLER                  PIC  X(05)                   DTSBR521
00220                 VALUE 'DATE:'.                                    DTSBR521
00221          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00222          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR521
00223      05  HDR-LINE-2.                                              DTSBR521
00224          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR521
00225          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR521
00226          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR521
00227          10  FILLER                  PIC  X(05)                   DTSBR521
00228                 VALUE 'TIME:'.                                    DTSBR521
00229          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00230          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR521
00231      05  HDR-LINE-3.                                              DTSBR521
00232          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00233          10  FILLER                  PIC  X(33)                   DTSBR521
00234                 VALUE 'ROUTE TO:  REGISTRATION AND RATES'.        DTSBR521
00235          10  FILLER                  PIC  X(84)  VALUE SPACES.    DTSBR521
00236          10  FILLER                  PIC  X(05)                   DTSBR521
00237                 VALUE 'PAGE:'.                                    DTSBR521
00238          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR521
00239          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR521
00240      05  HDR-LINE-4.                                              DTSBR521
00241          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR521
00242          10  FILLER                  PIC  X(20)                   DTSBR521
00243                 VALUE '                    '.                     DTSBR521
00244          10  FILLER                  PIC  X(17)  VALUE SPACES.    DTSBR521
00245          10  FILLER                  PIC  X(32)                   DTSBR521
00246                VALUE ' RATE ASSIGNMENT SUMMARY REPORT '.          DTSBR521
00247      05  HDR-LINE-5.                                              DTSBR521
00248          10  FILLER                  PIC  X(60)  VALUE SPACES.    DTSBR521
00249          10  FILLER                  PIC X(06)                    DTSBR521
00250                 VALUE 'TABLE '.                                   DTSBR521
00251          10  WS-FUIR-RATE-TABLE      PIC X(05).                   DTSBR521
00252      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR521
00253      05  HDR-LINE-7.                                              DTSBR521
00254          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00255          10  FILLER                  PIC  X(20)                   DTSBR521
00256                VALUE 'RATE EFFECTIVE QTR: '.                      DTSBR521
00257          10  HDR-EFF-QTR-UNPACK      PIC  99/9.                   DTSBR521
00258      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR521
00259      05  HDR-LINE-9.                                              DTSBR521
00260          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00261          10  FILLER                  PIC  X(43)                      CL**7
00262              VALUE ' MIN    MAX    UI   EMPLYR       UI TAX PAI'.    CL**8
00263          10  FILLER                  PIC  X(46)                      CL*11
00264           VALUE 'D     TRUST FUND INT       BENFTS CHRGD    CUR'.    CL*11
00265          10  FILLER                  PIC  X(40)                   DTSBR521
00266           VALUE 'RENT RESERVE       TAXABLE WAGES      TA'.          CL*10
00267          10  FILLER                  PIC  X(11)                   DTSBR521
00268              VALUE 'XABLE WAGES'.                                    CL**9
00269          10  FILLER                  PIC  X(19)                      CL**5
00270                 VALUE '      TAXABLE WAGES'.                         CL**5
00271      05  HDR-LINE-10.                                             DTSBR521
00272          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00273          10  FILLER                  PIC  X(27)                   DTSBR521
00274                 VALUE 'RATIO  RATIO  RATE   COUNT '.              DTSBR521
00275          10  FILLER                  PIC  X(06)  VALUE SPACES.       CL*12
00276          10  HDR-TAX-PD-FROM-THRU    PIC  X(11).                  DTSBR521
00277          10  FILLER                  PIC  X(08)  VALUE SPACES.       CL*13
00278          10  HDR-TRUST-FND-FROM-THRU PIC  X(11).                  DTSBR521
00279          10  FILLER                  PIC  X(08)  VALUE SPACES.       CL*13
00280          10  HDR-BENEF-CHG-FROM-THRU PIC  X(11).                  DTSBR521
00281          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR521
00282          10  WS-CURR-RESERVE-DT      PIC  X(08).                  DTSBR521
00283          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR521
00284          10  HDR-TAX-WAGE1-FROM-THRU PIC  X(11).                  DTSBR521
00285          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR521
00286          10  HDR-TAX-WAGE2-FROM-THRU PIC  X(11).                  DTSBR521
00287          10  FILLER                  PIC  X(08)  VALUE SPACES.       CL**2
00288          10  HDR-TAX-WAGE3-FROM-THRU PIC  X(11).                     CL**2
00289                                                                   DTSBR521
00290  01  DETAIL-LINE.                                                 DTSBR521
00291      05  DTL-LINE-2.                                              DTSBR521
00292          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00293          10  WS-FUIR-MIN-RATIO-D     PIC  X(05).                  DTSBR521
00294          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00295          10  WS-FUIR-MAX-RATIO-D     PIC  X(05).                  DTSBR521
00296          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00297          10  DTL-REG-UI-RATE-D       PIC  X(04).                  DTSBR521
00298          10  FILLER                  PIC  X(02)  VALUE SPACE.     DTSBR521
00299          10  DTL-REG-EMPL-COUNT      PIC   ZZZ,ZZ9.               DTSBR521
00300          10  DTL-REG-UI-TAX-PAID     PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.        CL**6
00301          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00302          10  DTL-REG-TRUST-FUND-INT  PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.        CL**6
00303          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00304          10  DTL-REG-BENEFITS-CHGD   PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.        CL**6
00305          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00306          10  DTL-REG-CURRENT-RESERVE PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.     DTSBR521
00307          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00308          10  DTL-REG-TAXABLE-WAGES1  PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.     DTSBR521
00309          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00310          10  DTL-REG-TAXABLE-WAGES2  PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.     DTSBR521
00311          10  FILLER                  PIC  X(01)  VALUE SPACE.        CL**2
00312          10  DTL-REG-TAXABLE-WAGES3  PIC  -ZZ,ZZZ,ZZZ,ZZ9.99.        CL**2
00313      SKIP2                                                        DTSBR521
00314  01  CLASSIFIED-TOTALS.                                           DTSBR521
00315      05  DTL-CLS-LINE-3.                                          DTSBR521
00316          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00317          10  FILLER                  PIC  X(18)                   DTSBR521
00318                 VALUE 'CLASSIFIED TOTAL  '.                       DTSBR521
00319          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00320          10  DTL-CLS-EMPL-COUNT      PIC  ZZZ,ZZ9.                DTSBR521
00321          10  DTL-CLS-UI-TAX-PAID     PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00322          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00323          10  DTL-CLS-TRUST-FUND-INT  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00324          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00325          10  DTL-CLS-BENEFITS-CHGD   PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00326          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00327          10  DTL-CLS-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00328          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00329          10  DTL-CLS-TAXABLE-WAGES1  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00330          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00331          10  DTL-CLS-TAXABLE-WAGES2  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00332          10  FILLER                  PIC  X(01)  VALUE SPACE.        CL**2
00333          10  DTL-CLS-TAXABLE-WAGES3  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**2
00334                                                                   DTSBR521
00335  01  NONCLASSIF-TOTALS.                                           DTSBR521
00336      05  DTL-EMP-LINE-3.                                          DTSBR521
00337          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00338          10  FILLER                  PIC  X(13)                   DTSBR521
00339                 VALUE 'NEW EMPLOYER '.                            DTSBR521
00340          10  DTL-EMP-UI-RATE         PIC X(04).                   DTSBR521
00341          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00342          10  DTL-EMP-EMPL-COUNT      PIC  ZZZ,ZZ9.                DTSBR521
00343          10  DTL-EMP-UI-TAX-PAID     PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00344          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00345          10  DTL-EMP-TRUST-FUND-INT  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00346          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00347          10  DTL-EMP-BENEFITS-CHGD   PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00348          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00349          10  DTL-EMP-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00350          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00351          10  DTL-EMP-TAXABLE-WAGES1  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00352          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00353          10  DTL-EMP-TAXABLE-WAGES2  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00354          10  FILLER                  PIC  X(01)  VALUE SPACE.        CL**2
00355          10  DTL-EMP-TAXABLE-WAGES3  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**2
00356  01  CONTROL-FOOTING-FINAL.                                       DTSBR521
00357      05  CFF-GRD-LINE-3.                                          DTSBR521
00358          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00359          10  FILLER                  PIC  X(14)                   DTSBR521
00360                 VALUE 'GRAND TOTAL   '.                           DTSBR521
00361          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR521
00362          10  CFF-GRD-EMPLR-COUNT     PIC  ZZZ,ZZ9.                DTSBR521
00363          10  CFF-GRD-UI-TAX-PAID     PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00364          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00365          10  CFF-GRD-TRUST-FUND-INT  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00366          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00367          10  CFF-GRD-BENEFITS-CHGD   PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**6
00368          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00369          10  CFF-GRD-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00370          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR521
00371          10  CFF-GRD-TAXABLE-WAGES1  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00372          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR521
00373          10  CFF-GRD-TAXABLE-WAGES2  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.      DTSBR521
00374          10  FILLER                  PIC  X(01)  VALUE SPACE.        CL**2
00375          10  CFF-GRD-TAXABLE-WAGES3  PIC -ZZ,ZZZ,ZZZ,ZZ9.99.         CL**2
00376      EJECT                                                        DTSBR521
00377  LINKAGE SECTION.                                                 DTSBR521
00378      SKIP3                                                        DTSBR521
00379  01  LRCM-LINK-AREA.                                              DTSBR521
00380  ++INCLUDE DTSILRCM                                               DTSBR521
00381      EJECT                                                        DTSBR521
00382  01  R521-REC.                                                    DTSBR521
00383  ++INCLUDE DTSIR521                                               DTSBR521
00384      EJECT                                                        DTSBR521
00385  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR521
00386                           R521-REC.                               DTSBR521
00387      IF FIRST-TIME-IND = 'Y'                                      DTSBR521
00388          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR521
00389          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR521
00390                                                                   DTSBR521
00391      IF LRCM-EOR-88                                               DTSBR521
00392          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR521
00393      ELSE                                                         DTSBR521
00394          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR521
00395                                                                   DTSBR521
00396      GOBACK.                                                      DTSBR521
00397      EJECT                                                        DTSBR521
00398  I1000-INITIATE.                                                  DTSBR521
00399                                                                   DTSBR521
00400      OPEN OUTPUT PRT-FILE.                                        DTSBR521
00401      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR521
00402      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR521
00403      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR521
00404      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR521
00405      MOVE SPACES TO PRT-RECORD.                                   DTSBR521
00406                                                                   DTSBR521
00407      MOVE R521-EFF-QTR            TO   WS-EFF-QTR-UNPACK.         DTSBR521
00408      MOVE WS-EFF-QTR-UNPACK (3:3) TO  HDR-EFF-QTR-UNPACK.         DTSBR521
00409                                                                   DTSBR521
00410      MOVE R521-COMPUTED-RATE    TO WS-FUIR-UI-RATE.               DTSBR521
00411      MOVE R521-UI-RATE-CATEGORY TO WS-UI-RATE-CATEGORY.           DTSBR521
00412                                                                   DTSBR521
00413      PERFORM I2000-SET-FUIR-AREA  THRU I2000-EXIT.                DTSBR521
00414                                                                   DTSBR521
00415      PERFORM I2200-INITIALIZE-RTN THRU I2200-EXIT.                DTSBR521
00416                                                                   DTSBR521
00417      PERFORM I3000-INIT-DATES     THRU I3000-EXIT.                DTSBR521
00418                                                                   DTSBR521
00419      PERFORM I2100-SET-RATIO THRU I2100-EXIT                      DTSBR521
00420              VARYING FUIR-RATE-IDX FROM 1 BY 1 UNTIL              DTSBR521
00421              FUIR-RATE-IDX GREATER FUIR-RATE-CNT                  DTSBR521
00422                                                                   DTSBR521
00423      INITIALIZE WS-CLS-TRUST-FUND-INT                             DTSBR521
00424                 WS-CLS-BENEFITS-CHGD                              DTSBR521
00425                 WS-CLS-EMPL-COUNT                                 DTSBR521
00426                 WS-CLS-UI-TAX-PAID                                DTSBR521
00427                 WS-CLS-CURRENT-RESERVE                            DTSBR521
00428                 WS-CLS-TAXABLE-WAGES1                             DTSBR521
00429                 WS-CLS-TAXABLE-WAGES2                                CL**2
00430                 WS-CLS-TAXABLE-WAGES3.                               CL**2
00431                                                                   DTSBR521
00432       INITIALIZE WS-EMP-UI-TAX-PAID                               DTSBR521
00433                  WS-EMP-TRUST-FUND-INT                            DTSBR521
00434                  WS-EMP-BENEFITS-CHGD                             DTSBR521
00435                  WS-EMP-EMPL-COUNT                                DTSBR521
00436                  WS-EMP-UI-RATE                                   DTSBR521
00437                  WS-EMP-CURRENT-RESERVE                           DTSBR521
00438                  WS-EMP-TAXABLE-WAGES1                            DTSBR521
00439                  WS-EMP-TAXABLE-WAGES2                               CL**2
00440                  WS-EMP-TAXABLE-WAGES3.                              CL**2
00441                                                                   DTSBR521
00442      INITIALIZE  WS-GRD-TAXABLE-WAGES1                            DTSBR521
00443                  WS-GRD-TAXABLE-WAGES2                            DTSBR521
00444                  WS-GRD-TAXABLE-WAGES3                               CL**2
00445                  WS-GRD-TRUST-FUND-INT                            DTSBR521
00446                  WS-GRD-BENEFITS-CHGD                             DTSBR521
00447                  WS-GRD-EMPLR-COUNT                               DTSBR521
00448                  WS-GRD-UI-TAX-PAID                               DTSBR521
00449                  WS-GRD-CURRENT-RESERVE.                          DTSBR521
00450  I1000-EXIT.                                                      DTSBR521
00451      EXIT.                                                        DTSBR521
00452                                                                   DTSBR521
00453  I2000-SET-FUIR-AREA.                                             DTSBR521
00454                                                                   DTSBR521
00455        MOVE LOW-VALUES TO FUIR-KEY-AREA.                          DTSBR521
00456                                                                   DTSBR521
00457        SET FUIR-UIR-88 TO TRUE.                                   DTSBR521
00458                                                                   DTSBR521
00459        MOVE R521-EFF-QTR TO FUIR-EFF-YRQ.                         DTSBR521
00460                                                                   DTSBR521
00461        MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA.                       DTSBR521
00462                                                                   DTSBR521
00463        PERFORM S931-READ THRU S931-EXIT.                          DTSBR521
00464                                                                   DTSBR521
00465        IF L931-NO-REC-88                                          DTSBR521
00466           MOVE 'NO FUIR RECORD OCCURRENCE FOR RATE YEAR'          DTSBR521
00467             TO ABEND-MSG                                          DTSBR521
00468           PERFORM S999-ABEND THRU S999-EXIT.                      DTSBR521
00469                                                                   DTSBR521
00470        MOVE FSKL-REC TO FUIR-REC.                                 DTSBR521
00471                                                                   DTSBR521
00472        MOVE FUIR-RATE-TABLE  TO WS-FUIR-RATE-TABLE.               DTSBR521
00473                                                                   DTSBR521
00474  I2000-EXIT.                                                      DTSBR521
00475      EXIT.                                                        DTSBR521
00476                                                                   DTSBR521
00477  I2100-SET-RATIO.                                                 DTSBR521
00478       MOVE ZEROES   TO  WS-FUIR-UI-RATE .                         DTSBR521
00479       MOVE ZEROES   TO  WS-FUIR-MIN-RATIO.                        DTSBR521
00480       MOVE ZEROES   TO  WS-FUIR-MAX-RATIO.                        DTSBR521
00481                                                                   DTSBR521
00482       IF R521-RATE-NONCLASSIFIED-88                               DTSBR521
00483          MOVE  FUIR-DEFAULT-NEW-EMP-RATE TO WS-FUIR-UI-RATE       DTSBR521
00484          PERFORM I2300-CNV-RATIO THRU I2300-EXIT                  DTSBR521
00485          MOVE WS-FUIR-UI-RATE-D TO WS-EMP-UI-RATE                 DTSBR521
00486          SET FUIR-RATE-IDX TO FUIR-RATE-CNT                       DTSBR521
00487       ELSE                                                        DTSBR521
00488       IF FUIR-UI-RATE (FUIR-RATE-IDX) = R521-COMPUTED-RATE        DTSBR521
00489          MOVE FUIR-MIN-RATIO (FUIR-RATE-IDX) TO                   DTSBR521
00490               WS-FUIR-MIN-RATIO                                   DTSBR521
00491          MOVE FUIR-MAX-RATIO (FUIR-RATE-IDX) TO                   DTSBR521
00492               WS-FUIR-MAX-RATIO                                   DTSBR521
00493          MOVE FUIR-UI-RATE (FUIR-RATE-IDX) TO                     DTSBR521
00494               WS-FUIR-UI-RATE                                     DTSBR521
00495          PERFORM I2300-CNV-RATIO THRU I2300-EXIT                  DTSBR521
00496          SET FUIR-RATE-IDX TO FUIR-RATE-CNT                       DTSBR521
00497       END-IF.                                                     DTSBR521
00498  I2100-EXIT.                                                      DTSBR521
00499      EXIT.                                                        DTSBR521
00500                                                                   DTSBR521
00501  I2200-INITIALIZE-RTN.                                            DTSBR521
00502         INITIALIZE WS-REG-TRUST-FUND-INT                          DTSBR521
00503                    WS-REG-BENEFITS-CHGD                           DTSBR521
00504                    WS-REG-EMPL-COUNT                              DTSBR521
00505                    WS-REG-UI-RATE                                 DTSBR521
00506                    WS-REG-UI-RATE-D                               DTSBR521
00507                    WS-REG-UI-TAX-PAID                             DTSBR521
00508                    WS-REG-CURRENT-RESERVE                         DTSBR521
00509                    WS-REG-TAXABLE-WAGES1                          DTSBR521
00510                    WS-REG-TAXABLE-WAGES2                             CL**2
00511                    WS-REG-TAXABLE-WAGES3.                            CL**2
00512  I2200-EXIT.                                                      DTSBR521
00513      EXIT.                                                        DTSBR521
00514                                                                   DTSBR521
00515  I2300-CNV-RATIO.                                                 DTSBR521
00516        IF WS-FUIR-UI-RATE > 0                                     DTSBR521
00517           MOVE WS-FUIR-UI-RATE    TO L056-RATE                    DTSBR521
00518           SET L056-DISP1-RIGHT-88 TO TRUE                         DTSBR521
00519           PERFORM S056-RATE-DISPLAY                               DTSBR521
00520              THRU S056-EXIT                                       DTSBR521
00521           MOVE L056-DISP-RATE     TO WS-FUIR-UI-RATE-D            DTSBR521
00522                                                                   DTSBR521
00523           MOVE WS-FUIR-MIN-RATIO  TO L057-RATIO                   DTSBR521
00524           PERFORM S057-RATIO-DISPLAY                              DTSBR521
00525              THRU S057-EXIT                                       DTSBR521
00526           MOVE L057-DISP-RATIO    TO WS-FUIR-MIN-RATIO-D          DTSBR521
00527                                                                   DTSBR521
00528           MOVE WS-FUIR-MAX-RATIO  TO L057-RATIO                   DTSBR521
00529           PERFORM S057-RATIO-DISPLAY                              DTSBR521
00530              THRU S057-EXIT                                       DTSBR521
00531           MOVE L057-DISP-RATIO    TO WS-FUIR-MAX-RATIO-D          DTSBR521
00532                                                                   DTSBR521
00533        ELSE                                                       DTSBR521
00534            MOVE   'UI RATES NOT LOADED CORRECTLY'                 DTSBR521
00535            TO ABEND-MSG                                           DTSBR521
00536          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR521
00537  I2300-EXIT.                                                      DTSBR521
00538      EXIT.                                                        DTSBR521
00539                                                                   DTSBR521
00540  I3000-INIT-DATES.                                                DTSBR521
00541      SKIP1                                                        DTSBR521
00542      MOVE R521-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9.    DTSBR521
00543      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR521
00544      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR521
00545      MOVE L001-SLASH-DATE TO WS-CURR-RESERVE-DT.                  DTSBR521
00546      SKIP1                                                        DTSBR521
00547       IF R521-UI-TAX-PAID-FROM-YRQ GREATER ZEROS                  DTSBR521
00548          MOVE R521-UI-TAX-PAID-FROM-YRQ  TO                       DTSBR521
00549               L004-QTR-5-9                                        DTSBR521
00550          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00551          MOVE L004-SLASH-QTR TO WS-TAX-PD-FROM-DT                 DTSBR521
00552       ELSE                                                        DTSBR521
00553            MOVE SPACES TO WS-TAX-PD-FROM-DT                       DTSBR521
00554       END-IF.                                                     DTSBR521
00555                                                                   DTSBR521
00556       IF R521-UI-TAX-PAID-THRU-YRQ GREATER ZEROS                  DTSBR521
00557          MOVE R521-UI-TAX-PAID-THRU-YRQ  TO                       DTSBR521
00558               L004-QTR-5-9                                        DTSBR521
00559          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00560          MOVE L004-SLASH-QTR TO WS-TAX-PD-THRU-DT                 DTSBR521
00561       ELSE                                                        DTSBR521
00562            MOVE SPACES TO WS-TAX-PD-THRU-DT                       DTSBR521
00563       END-IF.                                                     DTSBR521
00564                                                                   DTSBR521
00565       MOVE WS-TAX-PD-FROM-THRU TO HDR-TAX-PD-FROM-THRU.           DTSBR521
00566                                                                   DTSBR521
00567       IF  R521-TRUST-FUND-INT-FROM-YRQ GREATER ZEROES             DTSBR521
00568          MOVE  R521-TRUST-FUND-INT-FROM-YRQ TO                    DTSBR521
00569               L004-QTR-5-9                                        DTSBR521
00570          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00571          MOVE L004-SLASH-QTR TO WS-TRUST-FROM-DT                  DTSBR521
00572       ELSE                                                        DTSBR521
00573            MOVE SPACES TO WS-TRUST-FROM-DT                        DTSBR521
00574       END-IF.                                                     DTSBR521
00575       IF  R521-TRUST-FUND-INT-THRU-YRQ GREATER ZEROS              DTSBR521
00576          MOVE  R521-TRUST-FUND-INT-THRU-YRQ TO                    DTSBR521
00577               L004-QTR-5-9                                        DTSBR521
00578          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00579          MOVE L004-SLASH-QTR TO WS-TRUST-THRU-DT                  DTSBR521
00580       ELSE                                                        DTSBR521
00581            MOVE SPACES TO WS-TRUST-THRU-DT                        DTSBR521
00582       END-IF.                                                     DTSBR521
00583                                                                   DTSBR521
00584       MOVE WS-TRUST-FND-FROM-THRU TO HDR-TRUST-FND-FROM-THRU.     DTSBR521
00585                                                                   DTSBR521
00586       IF  R521-UI-BEN-CHGD-FROM-YRQ GREATER ZEROS                 DTSBR521
00587          MOVE  R521-UI-BEN-CHGD-FROM-YRQ TO                       DTSBR521
00588               L004-QTR-5-9                                        DTSBR521
00589          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00590          MOVE L004-SLASH-QTR TO WS-BENEF-FROM-DT                  DTSBR521
00591       ELSE                                                        DTSBR521
00592            MOVE SPACES TO WS-BENEF-FROM-DT                        DTSBR521
00593       END-IF.                                                     DTSBR521
00594       IF  R521-UI-BEN-CHGD-THRU-YRQ GREATER ZEROS                    CL**4
00595          MOVE  R521-UI-BEN-CHGD-THRU-YRQ TO                          CL**4
00596               L004-QTR-5-9                                        DTSBR521
00597          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00598          MOVE L004-SLASH-QTR TO WS-BENEF-THRU-DT                  DTSBR521
00599       ELSE                                                        DTSBR521
00600            MOVE SPACES TO WS-BENEF-THRU-DT                        DTSBR521
00601       END-IF.                                                     DTSBR521
00602                                                                   DTSBR521
00603       MOVE WS-BENEFIT-CHG-FROM-THRU TO HDR-BENEF-CHG-FROM-THRU.   DTSBR521
00604                                                                   DTSBR521
00605       PERFORM P2000-TAX-QTRS THRU P2000-EXIT VARYING              DTSBR521
00606               R521-WAGES-YRQ-IDX FROM 1 BY 1 UNTIL                DTSBR521
00607               R521-WAGES-YRQ-IDX > 3.                                CL**2
00608  I3000-EXIT.                                                      DTSBR521
00609      EXIT.                                                        DTSBR521
00610      EJECT                                                        DTSBR521
00611  P1000-PROCESS.                                                   DTSBR521
00612                                                                   DTSBR521
00613       PERFORM P3000-TAX-WAGES  THRU P3000-EXIT VARYING            DTSBR521
00614               R521-TAX-WAGE-IDX FROM 1 BY 1 UNTIL                 DTSBR521
00615               R521-TAX-WAGE-IDX > 3.                                 CL**2
00616                                                                   DTSBR521
00617       IF R521-COMPUTED-RATE = WS-FUIR-UI-RATE                     DTSBR521
00618          IF  R521-UI-RATE-CATEGORY =  WS-UI-RATE-CATEGORY         DTSBR521
00619              MOVE WS-FUIR-UI-RATE-D TO WS-REG-UI-RATE-D           DTSBR521
00620              MOVE WS-REG-UI-RATE-D (4:4) TO DTL-REG-UI-RATE-D     DTSBR521
00621          ELSE                                                     DTSBR521
00622            PERFORM P1200-EMPLR-CATEGORY THRU P1200-EXIT           DTSBR521
00623            PERFORM P1300-RESET-TOTALS  THRU P1300-EXIT            DTSBR521
00624       ELSE                                                        DTSBR521
00625                                                                   DTSBR521
00626          MOVE WS-REG-EMPL-COUNT        TO DTL-REG-EMPL-COUNT      DTSBR521
00627          MOVE WS-REG-UI-TAX-PAID       TO DTL-REG-UI-TAX-PAID     DTSBR521
00628          MOVE WS-REG-TRUST-FUND-INT    TO DTL-REG-TRUST-FUND-INT  DTSBR521
00629          MOVE WS-REG-BENEFITS-CHGD     TO DTL-REG-BENEFITS-CHGD   DTSBR521
00630          MOVE WS-REG-CURRENT-RESERVE   TO DTL-REG-CURRENT-RESERVE DTSBR521
00631          MOVE WS-REG-TAXABLE-WAGES1    TO DTL-REG-TAXABLE-WAGES1  DTSBR521
00632          MOVE WS-REG-TAXABLE-WAGES2    TO DTL-REG-TAXABLE-WAGES2  DTSBR521
00633          MOVE WS-REG-TAXABLE-WAGES3    TO DTL-REG-TAXABLE-WAGES3     CL**2
00634                                                                   DTSBR521
00635          PERFORM P5000-PRINT-HEADER THRU P5000-EXIT               DTSBR521
00636          WRITE PRT-RECORD FROM DTL-LINE-2  AFTER 2                DTSBR521
00637          ADD +2    TO WS-LINE-CNT2                                DTSBR521
00638                                                                   DTSBR521
00639          MOVE R521-COMPUTED-RATE TO WS-FUIR-UI-RATE               DTSBR521
00640          MOVE R521-UI-RATE-CATEGORY TO WS-UI-RATE-CATEGORY        DTSBR521
00641          PERFORM P1300-RESET-TOTALS  THRU P1300-EXIT              DTSBR521
00642          PERFORM I2100-SET-RATIO THRU I2100-EXIT                  DTSBR521
00643                  VARYING FUIR-RATE-IDX FROM 1 BY 1 UNTIL          DTSBR521
00644                  FUIR-RATE-IDX GREATER FUIR-RATE-CNT              DTSBR521
00645          MOVE WS-FUIR-UI-RATE-D TO WS-REG-UI-RATE-D               DTSBR521
00646          MOVE WS-REG-UI-RATE-D (4:4) TO DTL-REG-UI-RATE-D         DTSBR521
00647       END-IF.                                                     DTSBR521
00648                                                                   DTSBR521
00649        PERFORM P1100-ADD-REGULAR    THRU P1100-EXIT.              DTSBR521
00650        PERFORM P1050-EMPLR-CLASS    THRU P1050-EXIT.              DTSBR521
00651  P1000-EXIT.                                                      DTSBR521
00652       EXIT.                                                       DTSBR521
00653       EJECT                                                       DTSBR521
00654  P1050-EMPLR-CLASS.                                               DTSBR521
00655       IF R521-RATE-CLASSIFIED-88                                  DTSBR521
00656          ADD R521-TRUST-FUND-INTEREST-AMT TO                      DTSBR521
00657              WS-CLS-TRUST-FUND-INT                                DTSBR521
00658          ADD R521-BENEFITS-CHARGED-AMT TO                         DTSBR521
00659              WS-CLS-BENEFITS-CHGD                                 DTSBR521
00660          ADD R521-UI-TAX-PAID-AMT TO                              DTSBR521
00661              WS-CLS-UI-TAX-PAID                                   DTSBR521
00662          ADD R521-CURRENT-RESERVE-AMT TO                          DTSBR521
00663              WS-CLS-CURRENT-RESERVE                               DTSBR521
00664          ADD WS-OUT-TAXABLE-WAGES1 TO                             DTSBR521
00665              WS-CLS-TAXABLE-WAGES1                                DTSBR521
00666          ADD WS-OUT-TAXABLE-WAGES2 TO                             DTSBR521
00667              WS-CLS-TAXABLE-WAGES2                                DTSBR521
00668          ADD WS-OUT-TAXABLE-WAGES3 TO                                CL**2
00669              WS-CLS-TAXABLE-WAGES3                                   CL**2
00670         ADD 1 TO WS-CLS-EMPL-COUNT                                DTSBR521
00671       END-IF.                                                     DTSBR521
00672                                                                   DTSBR521
00673       IF R521-RATE-NONCLASSIFIED-88                               DTSBR521
00674          ADD R521-TRUST-FUND-INTEREST-AMT TO                      DTSBR521
00675              WS-EMP-TRUST-FUND-INT                                DTSBR521
00676          ADD R521-BENEFITS-CHARGED-AMT TO                         DTSBR521
00677              WS-EMP-BENEFITS-CHGD                                 DTSBR521
00678          ADD R521-UI-TAX-PAID-AMT TO                              DTSBR521
00679              WS-EMP-UI-TAX-PAID                                   DTSBR521
00680          ADD R521-CURRENT-RESERVE-AMT TO                          DTSBR521
00681              WS-EMP-CURRENT-RESERVE                               DTSBR521
00682          ADD WS-OUT-TAXABLE-WAGES1 TO                             DTSBR521
00683              WS-EMP-TAXABLE-WAGES1                                DTSBR521
00684          ADD WS-OUT-TAXABLE-WAGES2 TO                             DTSBR521
00685              WS-EMP-TAXABLE-WAGES2                                DTSBR521
00686          ADD WS-OUT-TAXABLE-WAGES3 TO                                CL**2
00687              WS-EMP-TAXABLE-WAGES3                                   CL**2
00688          ADD 1 TO  WS-EMP-EMPL-COUNT                              DTSBR521
00689       END-IF.                                                     DTSBR521
00690                                                                   DTSBR521
00691  P1050-EXIT.                                                      DTSBR521
00692      EXIT.                                                        DTSBR521
00693                                                                   DTSBR521
00694  P1100-ADD-REGULAR.                                               DTSBR521
00695        ADD   R521-TRUST-FUND-INTEREST-AMT TO                      DTSBR521
00696              WS-REG-TRUST-FUND-INT.                               DTSBR521
00697        ADD   R521-BENEFITS-CHARGED-AMT TO                         DTSBR521
00698              WS-REG-BENEFITS-CHGD.                                DTSBR521
00699        ADD   R521-UI-TAX-PAID-AMT TO                              DTSBR521
00700              WS-REG-UI-TAX-PAID.                                  DTSBR521
00701        ADD   R521-CURRENT-RESERVE-AMT TO                          DTSBR521
00702              WS-REG-CURRENT-RESERVE.                              DTSBR521
00703        ADD   WS-OUT-TAXABLE-WAGES1    TO                          DTSBR521
00704              WS-REG-TAXABLE-WAGES1.                               DTSBR521
00705        ADD   WS-OUT-TAXABLE-WAGES2    TO                          DTSBR521
00706              WS-REG-TAXABLE-WAGES2.                               DTSBR521
00707        ADD   WS-OUT-TAXABLE-WAGES3    TO                             CL**2
00708              WS-REG-TAXABLE-WAGES3.                                  CL**2
00709        ADD 1 TO WS-REG-EMPL-COUNT.                                DTSBR521
00710  P1100-EXIT.                                                      DTSBR521
00711      EXIT.                                                        DTSBR521
00712                                                                   DTSBR521
00713  P1200-EMPLR-CATEGORY.                                            DTSBR521
00714       MOVE R521-COMPUTED-RATE      TO WS-FUIR-UI-RATE             DTSBR521
00715       MOVE R521-UI-RATE-CATEGORY   TO WS-UI-RATE-CATEGORY.        DTSBR521
00716  P1200-EXIT.                                                      DTSBR521
00717      EXIT.                                                        DTSBR521
00718                                                                   DTSBR521
00719  P1300-RESET-TOTALS.                                              DTSBR521
00720      INITIALIZE WS-REG-TRUST-FUND-INT                             DTSBR521
00721                 WS-REG-BENEFITS-CHGD                              DTSBR521
00722                 WS-REG-EMPL-COUNT                                 DTSBR521
00723                 WS-REG-UI-TAX-PAID                                DTSBR521
00724                 WS-REG-CURRENT-RESERVE                            DTSBR521
00725                 WS-REG-TAXABLE-WAGES1                             DTSBR521
00726                 WS-REG-TAXABLE-WAGES2                                CL**2
00727                 WS-REG-TAXABLE-WAGES3.                               CL**2
00728  P1300-EXIT.                                                      DTSBR521
00729      EXIT.                                                        DTSBR521
00730                                                                   DTSBR521
00731  P2000-TAX-QTRS.                                                  DTSBR521
00732                                                                   DTSBR521
00733       IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0             DTSBR521
00734          MOVE R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX)            DTSBR521
00735               TO L004-QTR-5-9                                     DTSBR521
00736          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR521
00737          MOVE L004-SLASH-QTR TO WS-TAX-QTR-FROM                   DTSBR521
00738        ELSE                                                       DTSBR521
00739          MOVE SPACES TO WS-TAX-QTR-FROM                           DTSBR521
00740        END-IF.                                                    DTSBR521
00741       IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0             DTSBR521
00742          MOVE R521-WAGES-THRU-YRQ (R521-WAGES-YRQ-IDX)            DTSBR521
00743               TO L004-QTR-5-9                                     DTSBR521
00744        PERFORM S004-FROM-5 THRU S004-EXIT                         DTSBR521
00745        MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU                     DTSBR521
00746       ELSE                                                        DTSBR521
00747          MOVE SPACES TO WS-TAX-QTR-THRU                           DTSBR521
00748       END-IF.                                                     DTSBR521
00749       IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0                CL**2
00750          MOVE R521-WAGES-THRU-YRQ (R521-WAGES-YRQ-IDX)               CL**2
00751               TO L004-QTR-5-9                                        CL**2
00752        PERFORM S004-FROM-5 THRU S004-EXIT                            CL**2
00753        MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU                        CL**2
00754       ELSE                                                           CL**2
00755          MOVE SPACES TO WS-TAX-QTR-THRU                              CL**2
00756       END-IF.                                                        CL**2
00757       EVALUATE TRUE                                               DTSBR521
00758          WHEN R521-WAGES-YRQ-IDX = 1                              DTSBR521
00759              MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE1-FROM            DTSBR521
00760              MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE1-THRU            DTSBR521
00761              MOVE WS-TAX-WAGE1-FROM-THRU TO                       DTSBR521
00762                      HDR-TAX-WAGE1-FROM-THRU                      DTSBR521
00763          WHEN R521-WAGES-YRQ-IDX = 2                              DTSBR521
00764              MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE2-FROM            DTSBR521
00765              MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE2-THRU            DTSBR521
00766              MOVE WS-TAX-WAGE2-FROM-THRU TO                       DTSBR521
00767                      HDR-TAX-WAGE2-FROM-THRU                      DTSBR521
00768          WHEN R521-WAGES-YRQ-IDX = 3                                 CL**2
00769              MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE3-FROM               CL**2
00770              MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE3-THRU               CL**2
00771              MOVE WS-TAX-WAGE3-FROM-THRU TO                          CL**2
00772                      HDR-TAX-WAGE3-FROM-THRU                         CL**2
00773       END-EVALUATE.                                               DTSBR521
00774                                                                   DTSBR521
00775  P2000-EXIT.                                                      DTSBR521
00776      EXIT.                                                        DTSBR521
00777  P3000-TAX-WAGES.                                                 DTSBR521
00778      EVALUATE TRUE                                                DTSBR521
00779          WHEN R521-TAX-WAGE-IDX = 1                               DTSBR521
00780              MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO            DTSBR521
00781                   WS-OUT-TAXABLE-WAGES1                           DTSBR521
00782          WHEN R521-TAX-WAGE-IDX = 2                               DTSBR521
00783              MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO            DTSBR521
00784                   WS-OUT-TAXABLE-WAGES2                           DTSBR521
00785          WHEN R521-TAX-WAGE-IDX = 3                                  CL**2
00786              MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO               CL**2
00787                   WS-OUT-TAXABLE-WAGES3                              CL**2
00788      END-EVALUATE.                                                DTSBR521
00789  P3000-EXIT.                                                      DTSBR521
00790      EXIT.                                                        DTSBR521
00791                                                                   DTSBR521
00792  P4000-GRAND-TOTALS.                                              DTSBR521
00793                                                                   DTSBR521
00794      ADD WS-CLS-EMPL-COUNT   WS-EMP-EMPL-COUNT                    DTSBR521
00795      GIVING WS-GRD-EMPLR-COUNT.                                   DTSBR521
00796      ADD WS-CLS-TRUST-FUND-INT   WS-EMP-TRUST-FUND-INT            DTSBR521
00797      GIVING WS-GRD-TRUST-FUND-INT.                                DTSBR521
00798      ADD WS-CLS-BENEFITS-CHGD  WS-EMP-BENEFITS-CHGD               DTSBR521
00799      GIVING WS-GRD-BENEFITS-CHGD.                                 DTSBR521
00800      ADD WS-CLS-UI-TAX-PAID  WS-EMP-UI-TAX-PAID                   DTSBR521
00801      GIVING WS-GRD-UI-TAX-PAID.                                   DTSBR521
00802      ADD WS-CLS-CURRENT-RESERVE WS-EMP-CURRENT-RESERVE            DTSBR521
00803      GIVING WS-GRD-CURRENT-RESERVE.                               DTSBR521
00804      ADD WS-CLS-TAXABLE-WAGES1  WS-EMP-TAXABLE-WAGES1             DTSBR521
00805      GIVING WS-GRD-TAXABLE-WAGES1.                                DTSBR521
00806      ADD WS-CLS-TAXABLE-WAGES2  WS-EMP-TAXABLE-WAGES2             DTSBR521
00807      GIVING WS-GRD-TAXABLE-WAGES2.                                DTSBR521
00808      ADD WS-CLS-TAXABLE-WAGES3  WS-EMP-TAXABLE-WAGES3                CL**2
00809      GIVING WS-GRD-TAXABLE-WAGES3.                                   CL**2
00810                                                                   DTSBR521
00811  P4000-EXIT.                                                      DTSBR521
00812      EXIT.                                                        DTSBR521
00813                                                                   DTSBR521
00814  P5000-PRINT-HEADER.                                              DTSBR521
00815      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR521
00816           WS-LINE-CNT2 GREATER 58                                 DTSBR521
00817         MOVE +0          TO WS-LINE-CNT                           DTSBR521
00818         MOVE +0          TO WS-LINE-CNT2                          DTSBR521
00819         ADD  +1          TO WS-PAGE-CNT                           DTSBR521
00820         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR521
00821         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR521
00822         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR521
00823         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR521
00824         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR521
00825         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR521
00826         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR521
00827         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR521
00828         WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                  DTSBR521
00829         WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                  DTSBR521
00830         WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1                 DTSBR521
00831         ADD +10   TO WS-LINE-CNT2.                                DTSBR521
00832  P5000-EXIT.                                                      DTSBR521
00833      EXIT.                                                        DTSBR521
00834                                                                   DTSBR521
00835  T1000-TERMINATE.                                                 DTSBR521
00836                                                                   DTSBR521
00837      IF WS-LINE-CNT2 > 52                                         DTSBR521
00838         ADD +6    TO WS-LINE-CNT2                                 DTSBR521
00839         PERFORM P5000-PRINT-HEADER THRU P5000-EXIT                DTSBR521
00840      END-IF.                                                      DTSBR521
00841                                                                   DTSBR521
00842      MOVE WS-REG-UI-RATE-D (4:4)   TO DTL-REG-UI-RATE-D.          DTSBR521
00843      MOVE WS-REG-EMPL-COUNT        TO DTL-REG-EMPL-COUNT.         DTSBR521
00844      MOVE WS-REG-UI-TAX-PAID       TO DTL-REG-UI-TAX-PAID.        DTSBR521
00845      MOVE WS-REG-TRUST-FUND-INT    TO DTL-REG-TRUST-FUND-INT.     DTSBR521
00846      MOVE WS-REG-BENEFITS-CHGD     TO DTL-REG-BENEFITS-CHGD.      DTSBR521
00847      MOVE WS-REG-CURRENT-RESERVE   TO DTL-REG-CURRENT-RESERVE.    DTSBR521
00848      MOVE WS-REG-TAXABLE-WAGES1    TO DTL-REG-TAXABLE-WAGES1.     DTSBR521
00849      MOVE WS-REG-TAXABLE-WAGES2    TO DTL-REG-TAXABLE-WAGES2.     DTSBR521
00850      MOVE WS-REG-TAXABLE-WAGES3    TO DTL-REG-TAXABLE-WAGES3.        CL**2
00851      WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2.                    DTSBR521
00852                                                                   DTSBR521
00853      IF WS-LINE-CNT2 > 52                                         DTSBR521
00854         ADD +6    TO WS-LINE-CNT2                                 DTSBR521
00855         PERFORM P5000-PRINT-HEADER THRU P5000-EXIT                DTSBR521
00856      END-IF.                                                      DTSBR521
00857                                                                   DTSBR521
00858      MOVE WS-CLS-EMPL-COUNT        TO DTL-CLS-EMPL-COUNT.         DTSBR521
00859      MOVE WS-CLS-UI-TAX-PAID       TO DTL-CLS-UI-TAX-PAID.        DTSBR521
00860      MOVE WS-CLS-TRUST-FUND-INT    TO DTL-CLS-TRUST-FUND-INT.     DTSBR521
00861      MOVE WS-CLS-BENEFITS-CHGD     TO DTL-CLS-BENEFITS-CHGD.      DTSBR521
00862      MOVE WS-CLS-CURRENT-RESERVE   TO DTL-CLS-CURRENT-RESERVE.    DTSBR521
00863      MOVE WS-CLS-TAXABLE-WAGES1    TO DTL-CLS-TAXABLE-WAGES1.     DTSBR521
00864      MOVE WS-CLS-TAXABLE-WAGES2    TO DTL-CLS-TAXABLE-WAGES2.     DTSBR521
00865      MOVE WS-CLS-TAXABLE-WAGES3    TO DTL-CLS-TAXABLE-WAGES3.        CL**2
00866      WRITE PRT-RECORD FROM DTL-CLS-LINE-3  AFTER 3.               DTSBR521
00867                                                                   DTSBR521
00868      IF WS-LINE-CNT2 > 52                                         DTSBR521
00869         ADD +6    TO WS-LINE-CNT2                                 DTSBR521
00870         PERFORM P5000-PRINT-HEADER THRU P5000-EXIT                DTSBR521
00871      END-IF.                                                      DTSBR521
00872                                                                   DTSBR521
00873      MOVE WS-EMP-UI-RATE (4:4)     TO DTL-EMP-UI-RATE.            DTSBR521
00874      MOVE WS-EMP-EMPL-COUNT        TO DTL-EMP-EMPL-COUNT.         DTSBR521
00875      MOVE WS-EMP-UI-TAX-PAID       TO DTL-EMP-UI-TAX-PAID.        DTSBR521
00876      MOVE WS-EMP-TRUST-FUND-INT    TO DTL-EMP-TRUST-FUND-INT.     DTSBR521
00877      MOVE WS-EMP-BENEFITS-CHGD     TO DTL-EMP-BENEFITS-CHGD.      DTSBR521
00878      MOVE WS-EMP-CURRENT-RESERVE   TO DTL-EMP-CURRENT-RESERVE.    DTSBR521
00879      MOVE WS-EMP-TAXABLE-WAGES1    TO DTL-EMP-TAXABLE-WAGES1.     DTSBR521
00880      MOVE WS-EMP-TAXABLE-WAGES2    TO DTL-EMP-TAXABLE-WAGES2.     DTSBR521
00881      MOVE WS-EMP-TAXABLE-WAGES3    TO DTL-EMP-TAXABLE-WAGES3.        CL**2
00882      WRITE PRT-RECORD FROM DTL-EMP-LINE-3  AFTER 3.               DTSBR521
00883                                                                   DTSBR521
00884      IF WS-LINE-CNT2 > 52                                         DTSBR521
00885         ADD +6    TO WS-LINE-CNT2                                 DTSBR521
00886         PERFORM P5000-PRINT-HEADER THRU P5000-EXIT                DTSBR521
00887      END-IF.                                                      DTSBR521
00888                                                                   DTSBR521
00889      PERFORM P4000-GRAND-TOTALS THRU P4000-EXIT.                  DTSBR521
00890      MOVE WS-GRD-EMPLR-COUNT       TO CFF-GRD-EMPLR-COUNT.        DTSBR521
00891      MOVE WS-GRD-UI-TAX-PAID       TO CFF-GRD-UI-TAX-PAID.        DTSBR521
00892      MOVE WS-GRD-TRUST-FUND-INT    TO CFF-GRD-TRUST-FUND-INT.     DTSBR521
00893      MOVE WS-GRD-BENEFITS-CHGD     TO CFF-GRD-BENEFITS-CHGD.      DTSBR521
00894      MOVE WS-GRD-CURRENT-RESERVE   TO CFF-GRD-CURRENT-RESERVE.    DTSBR521
00895      MOVE WS-GRD-TAXABLE-WAGES1    TO CFF-GRD-TAXABLE-WAGES1.     DTSBR521
00896      MOVE WS-GRD-TAXABLE-WAGES2    TO CFF-GRD-TAXABLE-WAGES2.     DTSBR521
00897      MOVE WS-GRD-TAXABLE-WAGES3    TO CFF-GRD-TAXABLE-WAGES3.        CL**2
00898      WRITE PRT-RECORD FROM CFF-GRD-LINE-3  AFTER 3.               DTSBR521
00899                                                                   DTSBR521
00900      CLOSE PRT-FILE.                                              DTSBR521
00901                                                                   DTSBR521
00902  T1000-EXIT.                                                      DTSBR521
00903      EXIT.                                                        DTSBR521
00904      EJECT                                                        DTSBR521
00905  S001-DATE.                                                       DTSBR521
00906                                                                   DTSBR521
00907       CALL 'DTSBU001' USING L001-LINK-AREA.                       DTSBR521
00908                                                                   DTSBR521
00909  S001-EXIT.                                                       DTSBR521
00910      EXIT.                                                        DTSBR521
00911                                                                   DTSBR521
00912  S004-FROM-5.                                                     DTSBR521
00913                                                                   DTSBR521
00914      SET L004-FROM-5 TO TRUE.                                     DTSBR521
00915                                                                   DTSBR521
00916      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR521
00917                                                                   DTSBR521
00918  S004-EXIT.                                                       DTSBR521
00919      EXIT.                                                        DTSBR521
00920                                                                   DTSBR521
00921  S056-RATE-DISPLAY.                                               DTSBR521
00922                                                                   DTSBR521
00923      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR521
00924                                                                   DTSBR521
00925  S056-EXIT.                                                       DTSBR521
00926      EXIT.                                                        DTSBR521
00927                                                                   DTSBR521
00928  S057-RATIO-DISPLAY.                                              DTSBR521
00929                                                                   DTSBR521
00930      CALL 'DTSBU057' USING L057-LINK-AREA.                        DTSBR521
00931                                                                   DTSBR521
00932  S057-EXIT.                                                       DTSBR521
00933      EXIT.                                                        DTSBR521
00934                                                                   DTSBR521
00935  S931-READ.                                                       DTSBR521
00936      SET L931-READ-88 TO TRUE.                                    DTSBR521
00937      GO TO S931-REF-I.                                            DTSBR521
00938                                                                   DTSBR521
00939  S931-REF-I.                                                      DTSBR521
00940       CALL 'DTSBU931' USING L931-LINK-AREA                        DTSBR521
00941                             FSKL-REC.                             DTSBR521
00942  S931-EXIT.                                                       DTSBR521
00943       EXIT.                                                       DTSBR521
00944                                                                   DTSBR521
00945  S999-ABEND.                                                      DTSBR521
00946                                                                   DTSBR521
00947      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR521
00948                                                                   DTSBR521
00949  S999-EXIT.                                                       DTSBR521
00950      EXIT.                                                        DTSBR521
