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