00001  IDENTIFICATION DIVISION.                                         12/04/23
00002  PROGRAM-ID.             DTSBR515.                                DTSBR515
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV018
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR515
00005  DATE-COMPILED.                                                   DTSBR515
00006      SKIP3                                                        DTSBR515
00007 *****                                                             DTSBR515
00008 *                                                                 DTSBR515
00009 *    FUNCTION:  RATE ASSIGNMENT DETAIL LIST.                      DTSBR515
00010 *                                                                 DTSBR515
00011 *    CALLING SEQUENCE:  DTSBD750 WRITES DTSIR515 RECORDS          DTSBR515
00012 *                       DTSBR515 READS  DTSIR515 RECORDS          DTSBR515
00013 *                       TO PRODUCE THE RATE ASSIGNMENT DETAIL LISTDTSBR515
00014 *                                                                 DTSBR515
00015 *    MODIFICATION HISTORY:                                        DTSBR515
00016 *                                                                 DTSBR515
00017 * 12-17-94 INITIAL DEVELOPMENT                                    DTSBR515
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR515
00019 *                                                                 DTSBR515
00020 * 05-26-95 CHANGE REPORT LITERALS.                                DTSBR515
00021 *          REFERENCE RFP #                AUTHOR OF CHANGE - RHC  DTSBR515
00022 *                                                                 DTSBR515
00023 * 05-15-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS      DTSBR515
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR515
00025 *                                                                 DTSBR515
00026 * 07-16-02 MODIFIED TO PRODUCE UP TO THREE DIFFERENCE RATE        DTSBR515
00027 *          ASSIGNMENT REPORTS. I.E., REGULAR, ESTIMATED,          DTSBR515
00028 *          AND FINAL.                                             DTSBR515
00029 *          REFERENCE - HOUSEHOLD DEVL.    AUTHOR OF CHANGE - RW1  DTSBR515
00030 *                                                                 DTSBR515
00031 *                                                                    CL**4
00032 * 07-31-17 MODIFIED TO DISPLAY RESERVE RATIO TO MATCH REPORT         CL**4
00033 *          503 (RATE NOTICES) AND SCREEN (52).                       CL**4
00034 *                                                                    CL**4
00035 *          REFERENCE - HOUSEHOLD DEVL.    AUTHOR OF CHANGE - ZL1     CL**4
00036 *                                                                    CL**4
00037 *                                                                    CL*11
00038 * 10-08-19 MODIFIED TO DISPLAY NEGATIVE CHARGED AMOUNTS, REPORT      CL*11
00039 *          SHOWED ZEROS IF AMOUNT WAS NEGATIVE.                      CL*11
00040 *                                                                    CL*11
00041 *          REFERENCE - T11636             AUTHOR OF CHANGE - ZL1     CL*11
00042 *                                                                    CL*11
00043 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR515
00044 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR515
00045 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR515
00046 *                                                                 DTSBR515
00047 *                                                                 DTSBR515
00048 *    DESCRIPTION:                                                 DTSBR515
00049 *                                                                 DTSBR515
00050 *        THIS MODULE PRINTS THE DETAIL INFORMATION FOR THE RATE   DTSBR515
00051 *        ASSIGNMENT JOB OF THE ANNUAL RATING PROCESS.             DTSBR515
00052 *                                                                 DTSBR515
00053 *                                                                 DTSBR515
00054 *    RECORDS READ:                                                DTSBR515
00055 *                                                                 DTSBR515
00056 *        NONE.                                                    DTSBR515
00057 *                                                                 DTSBR515
00058 *                                                                 DTSBR515
00059 *    PRINTED OUTPUTS:                                             DTSBR515
00060 *                                                                 DTSBR515
00061 *        515R1  REGULAR RATE ASSIGNMENT DETAIL LIST.              DTSBR515
00062 *        515R2  ESTIMATED RATE ASSIGNMENT DETAIL LIST.            DTSBR515
00063 *        515R3  FINAL RATE ASSIGNMENT DETAIL LIST.                DTSBR515
00064 *        515R4  EXPORT FILE TO XCEL FOR DETAIL LIST.                 CL**9
00065 *                                                                 DTSBR515
00066 *                                                                 DTSBR515
00067 *    RECORDS WRITTEN:                                             DTSBR515
00068 *                                                                 DTSBR515
00069 *        NONE.                                                    DTSBR515
00070 *                                                                 DTSBR515
00071 *                                                                 DTSBR515
00072 *    MODULES CALLED:                                              DTSBR515
00073 *                                                                 DTSBR515
00074 *        DTSBU004 QUARTER CONVERSION MODULE                       DTSBR515
00075 *        DTSBU055 UI RATE EXPERIENCE PERIOD MODULE                DTSBR515
00076 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR515
00077 *        DTSBU057 RESERVE RATIO DISPLAY                              CL**4
00078 *                                                                 DTSBR515
00079 *                                                                 DTSBR515
00080 *****                                                             DTSBR515
00081      EJECT                                                        DTSBR515
00082  ENVIRONMENT DIVISION.                                            DTSBR515
00083                                                                   DTSBR515
00084  CONFIGURATION SECTION.                                           DTSBR515
00085  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR515
00086                                                                   DTSBR515
00087                                                                   DTSBR515
00088  INPUT-OUTPUT SECTION.                                            DTSBR515
00089                                                                   DTSBR515
00090  FILE-CONTROL.                                                    DTSBR515
00091      SELECT PRT-FILE1 ASSIGN TO RPT515R1.                         DTSBR515
00092      SELECT PRT-FILE2 ASSIGN TO RPT515R2.                         DTSBR515
00093      SELECT PRT-FILE3 ASSIGN TO RPT515R3.                         DTSBR515
00094      SELECT PRT-FILE4 ASSIGN TO RPT515R4.                            CL**4
00095                                                                   DTSBR515
00096  DATA DIVISION.                                                   DTSBR515
00097                                                                   DTSBR515
00098  FILE SECTION.                                                    DTSBR515
00099                                                                   DTSBR515
00100  FD  PRT-FILE1                                                    DTSBR515
00101      RECORDING MODE IS F.                                         DTSBR515
00102  01  PRT-RECORD1             PIC X(133).                          DTSBR515
00103                                                                   DTSBR515
00104  FD  PRT-FILE2                                                    DTSBR515
00105      RECORDING MODE IS F.                                         DTSBR515
00106  01  PRT-RECORD2             PIC X(133).                          DTSBR515
00107                                                                   DTSBR515
00108  FD  PRT-FILE3                                                    DTSBR515
00109      RECORDING MODE IS F.                                         DTSBR515
00110  01  PRT-RECORD3             PIC X(133).                          DTSBR515
00111                                                                   DTSBR515
00112  FD  PRT-FILE4                                                       CL**4
00113      RECORDING MODE IS F.                                            CL**4
00114  01  PRT-RECORD4             PIC X(200).                             CL*16
00115                                                                      CL**4
00116      EJECT                                                        DTSBR515
00117  WORKING-STORAGE SECTION.                                         DTSBR515
001175 77  PAN-VALET PICTURE X(24) VALUE '018DTSBR515  12/04/23'.       DTSBR515
00118  77  PAN-VALET PICTURE X(24) VALUE '051DTSBR515  12/24/02'.       DTSBR515
00119                                                                   DTSBR515
00120  01  WRK-AREA.                                                    DTSBR515
00121      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +515.DTSBR515
00122      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.    DTSBR515
00123      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR515
00124      05  WS-NUMBER-ONE               PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00125      05  WS-NUMBER-TWO               PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00126      05  WS-NUMBER-THREE             PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00127                                                                   DTSBR515
00128      05  WS-LINE-CNT1                PIC S9(02)  COMP-3 VALUE 60. DTSBR515
00129      05  WS-LINE-COUNT1              PIC S9(02)  COMP-3 VALUE +0. DTSBR515
00130      05  WS-PAGE-CNT1                PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00131                                                                   DTSBR515
00132      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE 60. DTSBR515
00133      05  WS-LINE-COUNT2              PIC S9(02)  COMP-3 VALUE +0. DTSBR515
00134      05  WS-PAGE-CNT2                PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00135                                                                   DTSBR515
00136      05  WS-LINE-CNT3                PIC S9(02)  COMP-3 VALUE 60. DTSBR515
00137      05  WS-LINE-COUNT3              PIC S9(02)  COMP-3 VALUE +0. DTSBR515
00138      05  WS-PAGE-CNT3                PIC S9(05)  COMP-3 VALUE +0. DTSBR515
00139                                                                   DTSBR515
00140      05  WS-REG-EFF-QTR              PIC  9(05).                  DTSBR515
00141      05  WS-REG-EXP-YR-DISP1         PIC  X(04).                  DTSBR515
00142      05  WS-REG-EXP-YR-DISP2         PIC  X(04).                  DTSBR515
00143      05  WS-TAX-QTR-FROM             PIC  X(04).                  DTSBR515
00144      05  WS-TAX-QTR-THRU             PIC  X(04).                  DTSBR515
00145      05  WS-REG-EXP-YR-DISP3         PIC  X(04).                  DTSBR515
00146      05  WS-REG-RATE-TYPE            PIC  X(08).                  DTSBR515
00147      05  WS-REG-RESERVE              PIC S9(02)V9.                DTSBR515
00148                                                                   DTSBR515
00149      05  WS-GOV-EFF-QTR              PIC  9(05).                  DTSBR515
00150      05  WS-GOV-COMPUTED-RATE        PIC  X(07).                  DTSBR515
00151      EJECT                                                        DTSBR515
00152  01  L004-LINK-AREA.                                              DTSBR515
00153  ++INCLUDE DTSIL004                                               DTSBR515
00154  01  L055-LINK-AREA.                                              DTSBR515
00155  ++INCLUDE DTSIL055                                               DTSBR515
00156      EJECT                                                        DTSBR515
00157  01  L056-LINK-AREA.                                              DTSBR515
00158  ++INCLUDE DTSIL056                                               DTSBR515
00159  01  L057-LINK-AREA.                                                 CL**2
00160  ++INCLUDE DTSIL057                                                  CL**2
00161      EJECT                                                        DTSBR515
00162  01  PAGE-HEADING.                                                DTSBR515
00163      05  HDR-LINE-1.                                              DTSBR515
00164          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00165          10  HDR-RPT-NO              PIC  X(05)  VALUE SPACES.    DTSBR515
00166          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR515
00167          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR515
00168          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR515
00169          10  FILLER                  PIC  X(05)                   DTSBR515
00170                 VALUE 'DATE:'.                                    DTSBR515
00171          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00172          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR515
00173      05  HDR-LINE-2.                                              DTSBR515
00174          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR515
00175          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR515
00176          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR515
00177          10  FILLER                  PIC  X(05)                   DTSBR515
00178                 VALUE 'TIME:'.                                    DTSBR515
00179          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00180          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR515
00181      05  HDR-LINE-3.                                              DTSBR515
00182          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00183          10  FILLER                  PIC  X(35)                   DTSBR515
00184                 VALUE 'ROUTE TO:  REGISTRATION AND RATES'.        DTSBR515
00185          10  FILLER                  PIC  X(82)  VALUE SPACES.    DTSBR515
00186          10  FILLER                  PIC  X(05)                   DTSBR515
00187                 VALUE 'PAGE:'.                                    DTSBR515
00188          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00189          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR515
00190      05  HDR-LINE-4.                                              DTSBR515
00191          10  FILLER                  PIC  X(39)  VALUE SPACES.    DTSBR515
00192          10  HDR-ASSIGMENT-HEADING   PIC  X(38)  VALUE SPACES.    DTSBR515
00193          10  FILLER                  PIC  X(04)                   DTSBR515
00194                VALUE '--- '.                                      DTSBR515
00195          10  WS-EMPLOYER-RATING      PIC  X(15).                  DTSBR515
00196          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR515
00197      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR515
00198      05  HDR-LINE-6.                                              DTSBR515
00199          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00200          10  FILLER                  PIC  X(20)                   DTSBR515
00201                VALUE 'RATE EFFECTIVE QTR: '.                      DTSBR515
00202          10  HDR-REG-EFF-QTR         PIC  99/9.                   DTSBR515
00203                                                                   DTSBR515
00204  01  DETAIL-LINES.                                                DTSBR515
00205      05  DTL-LINE-2.                                              DTSBR515
00206          10  FILLER                  PIC  X(64)  VALUE SPACES.    DTSBR515
00207          10  FILLER                  PIC  X(40)                   DTSBR515
00208                 VALUE '-------------TAXABLE WAGES--------------'. DTSBR515
00209          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR515
00210          10  FILLER                  PIC  X(07)                   DTSBR515
00211                 VALUE 'AVERAGE'.                                  DTSBR515
00212      05  DTL-LINE-3.                                              DTSBR515
00213          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00214          10  FILLER                  PIC  X(26)                   DTSBR515
00215                 VALUE 'EMP NO       PRIMARY NAME'.                DTSBR515
00216          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR515
00217          10  WS-TAX-WAGES1-FROM      PIC  X(04).                  DTSBR515
00218          10  FILLER                  PIC  X                       DTSBR515
00219                 VALUE '-'.                                        DTSBR515
00220          10  WS-TAX-WAGES1-THRU      PIC  X(04).                  DTSBR515
00221          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR515
00222          10  WS-TAX-WAGES2-FROM      PIC  X(04).                  DTSBR515
00223          10  FILLER                  PIC  X                       DTSBR515
00224                 VALUE '-'.                                        DTSBR515
00225          10  WS-TAX-WAGES2-THRU      PIC  X(04).                  DTSBR515
00226          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR515
00227          10  WS-TAX-WAGES3-FROM      PIC  X(04).                  DTSBR515
00228          10  FILLER                  PIC  X                       DTSBR515
00229                 VALUE '-'.                                        DTSBR515
00230          10  WS-TAX-WAGES3-THRU      PIC  X(04).                  DTSBR515
00231          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR515
00232          10  FILLER                  PIC  X(21)                   DTSBR515
00233                 VALUE 'TAXABLE WAGES    RATE'.                    DTSBR515
00234      05  DTL-LINE-4.                                              DTSBR515
00235          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00236          10  DTL-EMP-NO              PIC  999B999.                DTSBR515
00237          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR515
00238          10  DTL-PRIMARY-NAME        PIC  X(40).                  DTSBR515
00239          10  WS-REG-TAXABLE-WAGES1   PIC  ZZZZZ,ZZZ,ZZ9.99.       DTSBR515
00240          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR515
00241          10  WS-REG-TAXABLE-WAGES2   PIC  ZZZZZ,ZZZ,ZZ9.99.       DTSBR515
00242          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR515
00243          10  WS-REG-TAXABLE-WAGES3   PIC  ZZZZZ,ZZZ,ZZ9.99.       DTSBR515
00244          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR515
00245          10  DTL-AVG-TAX-WAGE        PIC  ZZZZZ,ZZZ,ZZ9.99.       DTSBR515
00246          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR515
00247          10  WS-REG-COMPUTED-RATE    PIC  X(06).                  DTSBR515
00248      05  DTL-LINE-5.                                              DTSBR515
00249          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR515
00250          10  FILLER                  PIC  X(40)                   DTSBR515
00251                 VALUE '  PRIOR RESERVE          UI TAX PAID'.     DTSBR515
00252          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00253          10  FILLER                  PIC  X(15)                   DTSBR515
00254                 VALUE ' TRUST FUND INT'.                          DTSBR515
00255          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00256          10  FILLER                  PIC  X(15)                   DTSBR515
00257                 VALUE '  BENEFITS CHGD'.                          DTSBR515
00258          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00259          10  FILLER                  PIC  X(15)                   DTSBR515
00260                 VALUE 'CURRENT RESERVE'.                          DTSBR515
00261          10  FILLER                  PIC  X(02)  VALUE SPACE.     DTSBR515
00262          10  FILLER                  PIC  X(17)                   DTSBR515
00263                 VALUE '      RSVR RATIO '.                        DTSBR515
00264          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR515
00265          10  WS-REG-PENALTY-RATE     PIC  X(06).                  DTSBR515
00266      05  DTL-LINE-6.                                              DTSBR515
00267          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR515
00268          10  DTL-PRIOR-RESERVE-AMT   PIC ZZZ,ZZZ,ZZ9.99-.         DTSBR515
00269          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR515
00270          10  DTL-UI-TAX-PAID-AMT     PIC ZZZ,ZZZ,ZZ9.99-.         DTSBR515
00271          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR515
00272          10  DTL-TRUST-FUND-INT-AMT  PIC ZZZ,ZZZ,ZZ9.99-.         DTSBR515
00273          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00274          10  DTL-BENEFITS-CHARGED-AMT PIC ZZZ,ZZZ,ZZ9.99-.        DTSBR515
00275          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR515
00276          10  DTL-CURR-RESERVE-AMT    PIC ZZZ,ZZZ,ZZ9.99-.         DTSBR515
00277          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR515
00278          10  DTL-RESERVE-RATIO       PIC X(05).                      CL**2
00279          10  FILLER                  PIC X                        DTSBR515
00280                 VALUE '%'.                                        DTSBR515
00281                                                                   DTSBR515
00282  01  CONTROL-FOOTING-FINAL.                                       DTSBR515
00283      05  CFF-LINE-4.                                              DTSBR515
00284          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR515
00285          10  CFF-NUMBER-ONE          PIC  ZZ,ZZ9.                 DTSBR515
00286          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR515
00287          10  CFF-LITERAL             PIC  X(40)  VALUE SPACES.    DTSBR515
00288      05  CFF-LINE-8.                                              DTSBR515
00289          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR515
00290          10  FILLER                  PIC  X(17)                   DTSBR515
00291                 VALUE '*** END OF REPORT'.                        DTSBR515
00292      05  DTL-EXPORT.                                                 CL**4
00293          10  FILLER                  PIC  X(01)  VALUE SPACE.        CL**4
00294          10  EXP-EMP-NO              PIC  999B999.                   CL**4
00295          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00296          10  EXP-PRIMARY-NAME        PIC  X(15).                     CL**5
00297          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00298          10  WS-EXP-TAXABLE-WAGES1   PIC  ZZZZZ,ZZZ,ZZ9.99.          CL**4
00299          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00300          10  WS-EXP-TAXABLE-WAGES2   PIC  ZZZZZ,ZZZ,ZZ9.99.          CL**4
00301          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00302          10  WS-EXP-TAXABLE-WAGES3   PIC  ZZZZZ,ZZZ,ZZ9.99.          CL**4
00303          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00304          10  EXP-AVG-TAX-WAGE        PIC  ZZZZZ,ZZZ,ZZ9.99.          CL**4
00305          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00306          10  WS-EXP-COMPUTED-RATE    PIC  X(06).                     CL**4
00307          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00308          10  EXP-PRIOR-RESERVE-AMT   PIC ZZZ,ZZZ,ZZ9.99-.            CL**5
00309          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00310          10  EXP-UI-TAX-PAID-AMT     PIC ZZZ,ZZZ,ZZ9.99-.            CL**4
00311          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00312          10  EXP-TRUST-FUND-INT-AMT  PIC ZZZ,ZZZ,ZZ9.99-.            CL**4
00313          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00314          10  EXP-BENEFITS-CHARGED-AMT PIC ZZZ,ZZZ,ZZ9.99-.           CL**4
00315          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00316          10  EXP-CURR-RESERVE-AMT    PIC ZZZ,ZZZ,ZZ9.99-.            CL**4
00317          10  FILLER                  PIC  X(02)  VALUE '| '.         CL*18
00318          10  EXP-RESERVE-RATIO       PIC X(05).                      CL**4
00319          10  FILLER                  PIC X                           CL**4
00320                 VALUE '%'.                                           CL**4
00321          10  FILLER                  PIC  X(02)  VALUE SPACES.       CL*17
00322                                                                      CL**4
00323      EJECT                                                        DTSBR515
00324  LINKAGE SECTION.                                                 DTSBR515
00325                                                                   DTSBR515
00326  01  LRCM-LINK-AREA.                                              DTSBR515
00327  ++INCLUDE DTSILRCM                                               DTSBR515
00328      EJECT                                                        DTSBR515
00329  01  R515-REC.                                                    DTSBR515
00330  ++INCLUDE DTSIR515                                               DTSBR515
00331      EJECT                                                        DTSBR515
00332  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR515
00333                           R515-REC.                               DTSBR515
00334      IF FIRST-TIME-IND = 'Y'                                      DTSBR515
00335          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR515
00336          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR515
00337                                                                   DTSBR515
00338      IF LRCM-EOR-88                                               DTSBR515
00339          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR515
00340      ELSE                                                         DTSBR515
00341          PERFORM P0000-PROCESS THRU P0000-EXIT.                   DTSBR515
00342                                                                   DTSBR515
00343      GOBACK.                                                      DTSBR515
00344      EJECT                                                        DTSBR515
00345  I1000-INITIATE.                                                  DTSBR515
00346                                                                   DTSBR515
00347      OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4.            CL**8
00348      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR515
00349      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR515
00350      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR515
00351      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR515
00352      MOVE SPACES TO PRT-RECORD1 PRT-RECORD2 PRT-RECORD3.          DTSBR515
00353                                                                   DTSBR515
00354      MOVE ZEROES TO WS-REG-EFF-QTR WS-GOV-EFF-QTR.                DTSBR515
00355      PERFORM S1000-INIT    THRU S1000-EXIT.                       DTSBR515
00356                                                                   DTSBR515
00357  I1000-EXIT.                                                      DTSBR515
00358      EXIT.                                                        DTSBR515
00359      EJECT                                                        DTSBR515
00360  P0000-PROCESS.                                                   DTSBR515
00361                                                                   DTSBR515
00362       EVALUATE TRUE                                               DTSBR515
00363          WHEN R515-RPT-TYPE-REG-88                                DTSBR515
00364            MOVE ' REGULAR RATE ASSIGNMENT DETAIL LIST -'  TO      DTSBR515
00365              HDR-ASSIGMENT-HEADING                                DTSBR515
00366            PERFORM P1000-PROCESS  THRU P1000-EXIT                 DTSBR515
00367          WHEN R515-RPT-TYPE-ESTIM-88                              DTSBR515
00368            MOVE 'ESTIMATED RATE ASSIGNMENT DETAIL LIST '  TO      DTSBR515
00369              HDR-ASSIGMENT-HEADING                                DTSBR515
00370            PERFORM P1000-PROCESS  THRU P1000-EXIT                 DTSBR515
00371          WHEN R515-RPT-TYPE-FINAL-88                              DTSBR515
00372            MOVE '  FINAL RATE ASSIGNMENT DETAIL LIST --'  TO      DTSBR515
00373              HDR-ASSIGMENT-HEADING                                DTSBR515
00374            PERFORM P1000-PROCESS  THRU P1000-EXIT                 DTSBR515
00375          WHEN OTHER                                               DTSBR515
00376           MOVE 'R515 REPORT TYPE NOT REG, ESTIM, OR FINAL '       DTSBR515
00377                  TO WRK-ABEND-MSG                                 DTSBR515
00378           PERFORM S999-ABEND    THRU S999-EXIT                    DTSBR515
00379       END-EVALUATE.                                               DTSBR515
00380                                                                   DTSBR515
00381  P0000-EXIT.                                                      DTSBR515
00382      EXIT.                                                        DTSBR515
00383                                                                   DTSBR515
00384  P1000-PROCESS.                                                   DTSBR515
00385                                                                   DTSBR515
00386      IF WS-REG-EFF-QTR = ZEROES                                   DTSBR515
00387          PERFORM S1000-INIT THRU S1000-EXIT.                      DTSBR515
00388                                                                   DTSBR515
00389      IF R515-RATE-CLASSIFIED-88                                   DTSBR515
00390         MOVE 'CLASSIFIED ' TO WS-EMPLOYER-RATING                  DTSBR515
00391      END-IF.                                                      DTSBR515
00392                                                                   DTSBR515
00393      IF R515-RATE-NONCLASSIFIED-88                                DTSBR515
00394         MOVE 'NOT CLASSIFIED' TO WS-EMPLOYER-RATING               DTSBR515
00395      END-IF.                                                      DTSBR515
00396                                                                   DTSBR515
00397      MOVE R515-RESERVE-RATIO TO L057-RATIO                           CL**2
00398 *    SET L056-DISP1-LEFT-88 TO TRUE.                                 CL**2
00399      PERFORM S057-DISP-RATIO THRU S057-EXIT.                         CL**3
00400      MOVE   L057-DISP-RATIO TO DTL-RESERVE-RATIO                     CL**5
00401                                EXP-RESERVE-RATIO.                    CL**5
00402                                                                   DTSBR515
00403      IF R515-PENALTY-RATE = ZEROES                                DTSBR515
00404          MOVE SPACES TO WS-REG-PENALTY-RATE                       DTSBR515
00405          MOVE R515-COMPUTED-RATE TO L056-RATE                     DTSBR515
00406          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR515
00407          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR515
00408          MOVE SPACES TO WS-REG-COMPUTED-RATE                      DTSBR515
00409          STRING ' ' DELIMITED BY SIZE                             DTSBR515
00410                 L056-DISP-RATE DELIMITED BY SIZE                  DTSBR515
00411             INTO                                                  DTSBR515
00412                 WS-REG-COMPUTED-RATE                              DTSBR515
00413      ELSE                                                         DTSBR515
00414          MOVE R515-PENALTY-RATE TO L056-RATE                      DTSBR515
00415          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR515
00416          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR515
00417          MOVE L056-DISP-RATE TO WS-REG-PENALTY-RATE               DTSBR515
00418          MOVE R515-COMPUTED-RATE TO L056-RATE                     DTSBR515
00419          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR515
00420          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR515
00421          MOVE SPACES TO WS-REG-COMPUTED-RATE                      DTSBR515
00422          STRING '(' DELIMITED BY SIZE                             DTSBR515
00423                 L056-DISP-RATE DELIMITED BY SPACE                 DTSBR515
00424                 ')' DELIMITED BY SIZE                             DTSBR515
00425             INTO                                                  DTSBR515
00426                 WS-REG-COMPUTED-RATE.                             DTSBR515
00427                                                                   DTSBR515
00428      MOVE WS-REG-COMPUTED-RATE TO WS-EXP-COMPUTED-RATE.              CL**6
00429      PERFORM P2100-TAX-WAGES THRU P2100-EXIT VARYING              DTSBR515
00430              R515-WAGES-IDX FROM 1 BY 1 UNTIL                     DTSBR515
00431              R515-WAGES-IDX > 3.                                  DTSBR515
00432                                                                   DTSBR515
00433      MOVE R515-EMP-NO                  TO DTL-EMP-NO                 CL**5
00434                                           EXP-EMP-NO.                CL**5
00435      MOVE R515-PRIMARY-NAME            TO DTL-PRIMARY-NAME           CL**5
00436                                           EXP-PRIMARY-NAME.          CL**5
00437      MOVE R515-AVG-TAX-WAGE            TO DTL-AVG-TAX-WAGE           CL**5
00438                                           EXP-AVG-TAX-WAGE.          CL**5
00439      MOVE R515-PRIOR-RESERVE-AMT       TO DTL-PRIOR-RESERVE-AMT      CL**6
00440                                           EXP-PRIOR-RESERVE-AMT.     CL**6
00441      MOVE R515-UI-TAX-PAID-AMT         TO DTL-UI-TAX-PAID-AMT        CL**6
00442                                           EXP-UI-TAX-PAID-AMT.       CL*10
00443      MOVE R515-TRUST-FUND-INTEREST-AMT TO DTL-TRUST-FUND-INT-AMT     CL**6
00444                                           EXP-TRUST-FUND-INT-AMT.    CL**6
00445                                                                   DTSBR515
00446 *    IF R515-BENEFITS-CHARGED-AMT > +0                               CL*11
00447          MOVE R515-BENEFITS-CHARGED-AMT TO                        DTSBR515
00448               DTL-BENEFITS-CHARGED-AMT                            DTSBR515
00449               EXP-BENEFITS-CHARGED-AMT                               CL**6
00450 *    ELSE                                                            CL*11
00451 *        MOVE          ZERO             TO                           CL*11
00452 *             DTL-BENEFITS-CHARGED-AMT                               CL*11
00453 *             EXP-BENEFITS-CHARGED-AMT                               CL*11
00454 *    END-IF.                                                         CL*11
00455                                                                   DTSBR515
00456      MOVE R515-CURRENT-RESERVE-AMT     TO DTL-CURR-RESERVE-AMT       CL**7
00457                                           EXP-CURR-RESERVE-AMT.      CL**6
00458 *    MOVE R515-RESERVE-RATIO           TO DTL-RESERVE-RATIO.         CL**2
00459                                                                   DTSBR515
00460      IF R515-RPT-TYPE-REG-88                                      DTSBR515
00461         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR515
00462         WRITE PRT-RECORD1 FROM DTL-LINE-2  AFTER 2                DTSBR515
00463         WRITE PRT-RECORD1 FROM DTL-LINE-3  AFTER 1                DTSBR515
00464         WRITE PRT-RECORD1 FROM DTL-LINE-4  AFTER 1                DTSBR515
00465         WRITE PRT-RECORD1 FROM DTL-LINE-5  AFTER 1                DTSBR515
00466         WRITE PRT-RECORD1 FROM DTL-LINE-6  AFTER 1                DTSBR515
00467         ADD +6    TO WS-LINE-COUNT1                               DTSBR515
00468         ADD +1    TO WS-NUMBER-ONE.                               DTSBR515
00469                                                                   DTSBR515
00470      IF R515-RPT-TYPE-ESTIM-88                                    DTSBR515
00471         PERFORM P4000-PRINT-HEADER THRU P4000-EXIT                DTSBR515
00472         WRITE PRT-RECORD2 FROM DTL-LINE-2  AFTER 2                DTSBR515
00473         WRITE PRT-RECORD2 FROM DTL-LINE-3  AFTER 1                DTSBR515
00474         WRITE PRT-RECORD2 FROM DTL-LINE-4  AFTER 1                DTSBR515
00475         WRITE PRT-RECORD2 FROM DTL-LINE-5  AFTER 1                DTSBR515
00476         WRITE PRT-RECORD2 FROM DTL-LINE-6  AFTER 1                DTSBR515
00477         ADD +6    TO WS-LINE-COUNT2                               DTSBR515
00478         ADD +1    TO WS-NUMBER-TWO.                               DTSBR515
00479                                                                   DTSBR515
00480      IF R515-RPT-TYPE-FINAL-88                                    DTSBR515
00481         PERFORM P5000-PRINT-HEADER THRU P5000-EXIT                DTSBR515
00482         WRITE PRT-RECORD3 FROM DTL-LINE-2  AFTER 2                DTSBR515
00483         WRITE PRT-RECORD3 FROM DTL-LINE-3  AFTER 1                DTSBR515
00484         WRITE PRT-RECORD3 FROM DTL-LINE-4  AFTER 1                DTSBR515
00485         WRITE PRT-RECORD3 FROM DTL-LINE-5  AFTER 1                DTSBR515
00486         WRITE PRT-RECORD3 FROM DTL-LINE-6  AFTER 1                DTSBR515
00487         ADD +6    TO WS-LINE-COUNT3                               DTSBR515
00488         ADD +1    TO WS-NUMBER-THREE.                             DTSBR515
00489                                                                   DTSBR515
00490         WRITE PRT-RECORD4 FROM DTL-EXPORT.                           CL**8
00491  P1000-EXIT.                                                      DTSBR515
00492      EXIT.                                                        DTSBR515
00493                                                                   DTSBR515
00494  P2100-TAX-WAGES.                                                 DTSBR515
00495                                                                   DTSBR515
00496      IF R515-WAGES-FROM-YRQ (R515-WAGES-IDX) GREATER ZEROS        DTSBR515
00497         MOVE R515-WAGES-FROM-YRQ (R515-WAGES-IDX) TO L004-QTR-5-9 DTSBR515
00498         PERFORM S004-FROM-5 THRU S004-EXIT                        DTSBR515
00499         MOVE L004-SLASH-QTR TO WS-TAX-QTR-FROM                    DTSBR515
00500      ELSE                                                         DTSBR515
00501           MOVE SPACES TO WS-TAX-QTR-FROM                          DTSBR515
00502      END-IF.                                                      DTSBR515
00503      IF R515-WAGES-THRU-YRQ (R515-WAGES-IDX) GREATER ZEROS        DTSBR515
00504         MOVE R515-WAGES-THRU-YRQ (R515-WAGES-IDX) TO L004-QTR-5-9 DTSBR515
00505         PERFORM S004-FROM-5 THRU S004-EXIT                        DTSBR515
00506         MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU                    DTSBR515
00507      ELSE                                                         DTSBR515
00508           MOVE SPACES TO WS-TAX-QTR-THRU                          DTSBR515
00509      END-IF.                                                      DTSBR515
00510                                                                   DTSBR515
00511      EVALUATE TRUE                                                DTSBR515
00512         WHEN R515-WAGES-IDX = 1                                   DTSBR515
00513             MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO                DTSBR515
00514                  WS-REG-TAXABLE-WAGES1                            DTSBR515
00515                  WS-EXP-TAXABLE-WAGES1                               CL**6
00516             MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES1-FROM            DTSBR515
00517             MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES1-THRU            DTSBR515
00518         WHEN R515-WAGES-IDX = 2                                   DTSBR515
00519             MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO                DTSBR515
00520                  WS-REG-TAXABLE-WAGES2                            DTSBR515
00521                  WS-EXP-TAXABLE-WAGES2                               CL**6
00522             MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES2-FROM            DTSBR515
00523             MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES2-THRU            DTSBR515
00524         WHEN R515-WAGES-IDX = 3                                   DTSBR515
00525             MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO                DTSBR515
00526                  WS-REG-TAXABLE-WAGES3                            DTSBR515
00527                  WS-EXP-TAXABLE-WAGES3                               CL**6
00528             MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES3-FROM            DTSBR515
00529             MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES3-THRU            DTSBR515
00530      END-EVALUATE.                                                DTSBR515
00531  P2100-EXIT.                                                      DTSBR515
00532      EXIT.                                                        DTSBR515
00533                                                                   DTSBR515
00534  P3000-PRINT-HEADER.                                              DTSBR515
00535      IF WS-LINE-CNT1 GREATER 58 OR                                DTSBR515
00536           WS-LINE-COUNT1 GREATER 58                               DTSBR515
00537         MOVE +0           TO WS-LINE-CNT1                         DTSBR515
00538         MOVE +0           TO WS-LINE-COUNT1                       DTSBR515
00539         ADD  +1           TO WS-PAGE-CNT1                         DTSBR515
00540         MOVE WS-PAGE-CNT1 TO HDR-PAGE-CNT                         DTSBR515
00541         MOVE '515R1'      TO HDR-RPT-NO                           DTSBR515
00542         WRITE PRT-RECORD1 FROM HDR-LINE-1 AFTER TOP-OF-PAGE       DTSBR515
00543         WRITE PRT-RECORD1 FROM HDR-LINE-2 AFTER 1                 DTSBR515
00544         WRITE PRT-RECORD1 FROM HDR-LINE-3 AFTER 1                 DTSBR515
00545         WRITE PRT-RECORD1 FROM HDR-LINE-4 AFTER 1                 DTSBR515
00546         WRITE PRT-RECORD1 FROM HDR-LINE-5 AFTER 1                 DTSBR515
00547         WRITE PRT-RECORD1 FROM HDR-LINE-6 AFTER 1                 DTSBR515
00548         ADD +6    TO WS-LINE-COUNT1.                              DTSBR515
00549  P3000-EXIT.                                                      DTSBR515
00550      EXIT.                                                        DTSBR515
00551                                                                   DTSBR515
00552  P4000-PRINT-HEADER.                                              DTSBR515
00553      IF WS-LINE-CNT2 GREATER 58 OR                                DTSBR515
00554           WS-LINE-COUNT2 GREATER 58                               DTSBR515
00555         MOVE +0           TO WS-LINE-CNT2                         DTSBR515
00556         MOVE +0           TO WS-LINE-COUNT2                       DTSBR515
00557         ADD  +1           TO WS-PAGE-CNT2                         DTSBR515
00558         MOVE WS-PAGE-CNT2 TO HDR-PAGE-CNT                         DTSBR515
00559         MOVE '515R2'      TO HDR-RPT-NO                           DTSBR515
00560         WRITE PRT-RECORD2 FROM HDR-LINE-1 AFTER TOP-OF-PAGE       DTSBR515
00561         WRITE PRT-RECORD2 FROM HDR-LINE-2 AFTER 1                 DTSBR515
00562         WRITE PRT-RECORD2 FROM HDR-LINE-3 AFTER 1                 DTSBR515
00563         WRITE PRT-RECORD2 FROM HDR-LINE-4 AFTER 1                 DTSBR515
00564         WRITE PRT-RECORD2 FROM HDR-LINE-5 AFTER 1                 DTSBR515
00565         WRITE PRT-RECORD2 FROM HDR-LINE-6 AFTER 1                 DTSBR515
00566         ADD +6    TO WS-LINE-COUNT2.                              DTSBR515
00567  P4000-EXIT.                                                      DTSBR515
00568      EXIT.                                                        DTSBR515
00569                                                                   DTSBR515
00570  P5000-PRINT-HEADER.                                              DTSBR515
00571      IF WS-LINE-CNT3 GREATER 58 OR                                DTSBR515
00572           WS-LINE-COUNT3 GREATER 58                               DTSBR515
00573         MOVE +0           TO WS-LINE-CNT3                         DTSBR515
00574         MOVE +0           TO WS-LINE-COUNT3                       DTSBR515
00575         ADD  +1           TO WS-PAGE-CNT3                         DTSBR515
00576         MOVE WS-PAGE-CNT3 TO HDR-PAGE-CNT                         DTSBR515
00577         MOVE '515R3'      TO HDR-RPT-NO                           DTSBR515
00578         WRITE PRT-RECORD3 FROM HDR-LINE-1 AFTER TOP-OF-PAGE       DTSBR515
00579         WRITE PRT-RECORD3 FROM HDR-LINE-2 AFTER 1                 DTSBR515
00580         WRITE PRT-RECORD3 FROM HDR-LINE-3 AFTER 1                 DTSBR515
00581         WRITE PRT-RECORD3 FROM HDR-LINE-4 AFTER 1                 DTSBR515
00582         WRITE PRT-RECORD3 FROM HDR-LINE-5 AFTER 1                 DTSBR515
00583         WRITE PRT-RECORD3 FROM HDR-LINE-6 AFTER 1                 DTSBR515
00584         ADD +6    TO WS-LINE-COUNT3.                              DTSBR515
00585  P5000-EXIT.                                                      DTSBR515
00586      EXIT.                                                        DTSBR515
00587                                                                   DTSBR515
00588  T1000-TERMINATE.                                                 DTSBR515
00589                                                                   DTSBR515
00590      PERFORM S3000-TERM-R1 THRU S3000-EXIT.                       DTSBR515
00591                                                                   DTSBR515
00592  T1000-EXIT.                                                      DTSBR515
00593      EXIT.                                                        DTSBR515
00594                                                                   DTSBR515
00595  S1000-INIT.                                                      DTSBR515
00596                                                                   DTSBR515
00597      MOVE R515-EFF-QTR TO WS-REG-EFF-QTR.                         DTSBR515
00598      MOVE WS-REG-EFF-QTR (3:3) TO HDR-REG-EFF-QTR.                DTSBR515
00599                                                                   DTSBR515
00600  S1000-EXIT.                                                      DTSBR515
00601      EXIT.                                                        DTSBR515
00602                                                                   DTSBR515
00603  S3000-TERM-R1.                                                   DTSBR515
00604                                                                   DTSBR515
00605      IF WS-NUMBER-ONE > ZEROS                                     DTSBR515
00606         IF WS-LINE-COUNT1 > 50                                    DTSBR515
00607            PERFORM P3000-PRINT-HEADER THRU P3000-EXIT             DTSBR515
00608         END-IF                                                    DTSBR515
00609         MOVE WS-NUMBER-ONE TO CFF-NUMBER-ONE                      DTSBR515
00610         MOVE 'RATE NOTICES PRINTED    ' TO CFF-LITERAL            DTSBR515
00611         WRITE PRT-RECORD1 FROM CFF-LINE-4  AFTER 4                DTSBR515
00612         WRITE PRT-RECORD1 FROM CFF-LINE-8  AFTER 4                DTSBR515
00613      END-IF.                                                      DTSBR515
00614                                                                   DTSBR515
00615      IF WS-NUMBER-TWO > ZEROS                                     DTSBR515
00616         IF WS-LINE-COUNT2 > 50                                    DTSBR515
00617            PERFORM P4000-PRINT-HEADER THRU P4000-EXIT             DTSBR515
00618         END-IF                                                    DTSBR515
00619         MOVE WS-NUMBER-TWO TO CFF-NUMBER-ONE                      DTSBR515
00620         MOVE 'ESTIMATED RATES ASSIGNED' TO CFF-LITERAL            DTSBR515
00621         WRITE PRT-RECORD2 FROM CFF-LINE-4  AFTER 4                DTSBR515
00622         WRITE PRT-RECORD2 FROM CFF-LINE-8  AFTER 4                DTSBR515
00623      END-IF.                                                      DTSBR515
00624                                                                   DTSBR515
00625      IF WS-NUMBER-THREE > ZEROS                                   DTSBR515
00626         IF WS-LINE-COUNT3 > 50                                    DTSBR515
00627            PERFORM P5000-PRINT-HEADER THRU P5000-EXIT             DTSBR515
00628         END-IF                                                    DTSBR515
00629         MOVE WS-NUMBER-THREE TO CFF-NUMBER-ONE                    DTSBR515
00630         MOVE 'RATE NOTICES PRINTED    ' TO CFF-LITERAL            DTSBR515
00631         WRITE PRT-RECORD3 FROM CFF-LINE-4  AFTER 4                DTSBR515
00632         WRITE PRT-RECORD3 FROM CFF-LINE-8  AFTER 4                DTSBR515
00633      END-IF.                                                      DTSBR515
00634                                                                   DTSBR515
00635      CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4.                  CL**6
00636                                                                   DTSBR515
00637  S3000-EXIT.                                                      DTSBR515
00638      EXIT.                                                        DTSBR515
00639                                                                   DTSBR515
00640  S004-FROM-5.                                                     DTSBR515
00641                                                                   DTSBR515
00642      SET L004-FROM-5 TO TRUE.                                     DTSBR515
00643                                                                   DTSBR515
00644      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR515
00645                                                                   DTSBR515
00646  S004-EXIT.                                                       DTSBR515
00647      EXIT.                                                        DTSBR515
00648                                                                   DTSBR515
00649 ** S055-EXPERIENCE-PERIOD.                                        DTSBR515
00650 **     SKIP1                                                      DTSBR515
00651 **     CALL 'DTSBU055' USING L055-LINK-AREA.                      DTSBR515
00652 **                                                                DTSBR515
00653 ** S055-EXIT.                                                     DTSBR515
00654 **     EXIT.                                                      DTSBR515
00655                                                                   DTSBR515
00656  S056-RATE-DISPLAY.                                               DTSBR515
00657                                                                   DTSBR515
00658      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR515
00659                                                                   DTSBR515
00660  S056-EXIT.                                                       DTSBR515
00661      EXIT.                                                        DTSBR515
00662                                                                      CL**2
00663  S057-DISP-RATIO.                                                    CL**2
00664                                                                      CL**2
00665      CALL 'DTSBU057' USING L057-LINK-AREA.                           CL**2
00666                                                                      CL**2
00667  S057-EXIT.                                                          CL**2
00668      EXIT.                                                           CL**2
00669                                                                   DTSBR515
00670  S999-ABEND.                                                      DTSBR515
00671                                                                   DTSBR515
00672      DISPLAY '*** DTSBR515 ABENDING.  '                           DTSBR515
00673              WRK-ABEND-MSG.                                       DTSBR515
00674                                                                   DTSBR515
00675      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR515
00676                                                                   DTSBR515
00677  S999-EXIT.                                                       DTSBR515
00678      EXIT.                                                        DTSBR515
00679                                                                   DTSBR515
