00001  IDENTIFICATION DIVISION.                                         11/27/01
00002  PROGRAM-ID.             DTSBR507.                                DTSBR507
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV009
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR507
00005  DATE-COMPILED.                                                   DTSBR507
00006                                                                   DTSBR507
00007 *****                                                             DTSBR507
00008 *                                                                 DTSBR507
00009 *    CALLING SEQUENCE:  DTSBD710 WRITES DTSIR507 RECORDS          DTSBR507
00010 *                       DTSBR507 READS  DTSIR507 RECORDS          DTSBR507
00011 *                       TO PRODUCE THE RATE CUTOFF ERROR REPORT.  DTSBR507
00012 *                                                                 DTSBR507
00013 *    FUNCTION:  RATING EXPERIENCE CUTOFF ERROR LIST.              DTSBR507
00014 *                                                                 DTSBR507
00015 *                                                                 DTSBR507
00016 *    MODIFICATION HISTORY:                                        DTSBR507
00017 *                                                                 DTSBR507
00018 * 12-17-94 INITIAL DEVELOPMENT                                    DTSBR507
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR507
00020 *                                                                 DTSBR507
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR507
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR507
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR507
00024 *                                                                 DTSBR507
00025 *                                                                 DTSBR507
00026 *    DESCRIPTION:                                                 DTSBR507
00027 *                                                                 DTSBR507
00028 *        THIS MODULE REPORTS ON ANY ERROR CONDITIONS THAT OCCUR   DTSBR507
00029 *        IN THE CREATION OF RATE CUTOFF RECORDS FOR THE YEARLY    DTSBR507
00030 *        EXPERIENCE RATING RUN.                                   DTSBR507
00031 *                                                                 DTSBR507
00032 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR507
00033 *                                                                 DTSBR507
00034 *                                                                 DTSBR507
00035 *    RECORDS READ:                                                DTSBR507
00036 *                                                                 DTSBR507
00037 *        NONE.                                                    DTSBR507
00038 *                                                                 DTSBR507
00039 *                                                                 DTSBR507
00040 *    PRINTED OUTPUTS:                                             DTSBR507
00041 *                                                                 DTSBR507
00042 *        507R1  RATING EXPERIENCE CUTOFF ERROR LIST               DTSBR507
00043 *                                                                 DTSBR507
00044 *                                                                 DTSBR507
00045 *    RECORDS WRITTEN:                                             DTSBR507
00046 *                                                                 DTSBR507
00047 *        NONE.                                                    DTSBR507
00048 *                                                                 DTSBR507
00049 *                                                                 DTSBR507
00050 *    MODULES CALLED:                                              DTSBR507
00051 *                                                                 DTSBR507
00052 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR507
00053 *                                                                 DTSBR507
00054 *                                                                 DTSBR507
00055 *****                                                             DTSBR507
00056      EJECT                                                        DTSBR507
00057  ENVIRONMENT DIVISION.                                            DTSBR507
00058                                                                   DTSBR507
00059  CONFIGURATION SECTION.                                           DTSBR507
00060  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR507
00061                                                                   DTSBR507
00062  INPUT-OUTPUT SECTION.                                            DTSBR507
00063                                                                   DTSBR507
00064  FILE-CONTROL.                                                    DTSBR507
00065      SELECT PRT-FILE ASSIGN TO RPT507R1.                          DTSBR507
00066                                                                   DTSBR507
00067  DATA DIVISION.                                                   DTSBR507
00068                                                                   DTSBR507
00069  FILE SECTION.                                                    DTSBR507
00070                                                                   DTSBR507
00071  FD  PRT-FILE                                                     DTSBR507
00072      RECORDING MODE IS F.                                         DTSBR507
00073  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR507
00074                                                                   DTSBR507
00075  WORKING-STORAGE SECTION.                                         DTSBR507
000755 77  PAN-VALET PICTURE X(24) VALUE '009DTSBR507  11/27/01'.       DTSBR507
00076                                                                   DTSBR507
00077  01  WRK-AREA.                                                    DTSBR507
00078      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +507.DTSBR507
00079      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR507
00080                                                                   DTSBR507
00081      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR507
00082      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR507
00083      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR507
00084                                                                   DTSBR507
00085      EJECT                                                        DTSBR507
00086  01  L001-LINK-AREA.                                              DTSBR507
00087  ++INCLUDE DTSIL001                                               DTSBR507
00088      EJECT                                                        DTSBR507
00089  01  L004-LINK-AREA.                                              DTSBR507
00090  ++INCLUDE DTSIL004                                               DTSBR507
00091      EJECT                                                        DTSBR507
00092                                                                   DTSBR507
00093  01  PAGE-HEADING.                                                DTSBR507
00094      05  HDR-LINE-1.                                              DTSBR507
00095          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00096          10  FILLER                  PIC  X(05)                   DTSBR507
00097                 VALUE '507R1'.                                    DTSBR507
00098          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR507
00099          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR507
00100          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR507
00101          10  FILLER                  PIC  X(05)                   DTSBR507
00102                 VALUE 'DATE:'.                                    DTSBR507
00103          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00104          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR507
00105      05  HDR-LINE-2.                                              DTSBR507
00106          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR507
00107          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR507
00108          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR507
00109          10  FILLER                  PIC  X(05)                   DTSBR507
00110                 VALUE 'TIME:'.                                    DTSBR507
00111          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00112          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR507
00113      05  HDR-LINE-3.                                              DTSBR507
00114          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00115          10  FILLER                  PIC  X(33)                   DTSBR507
00116                 VALUE 'ROUTE TO:  REGISTRATION AND RATES'.        DTSBR507
00117          10  FILLER                  PIC  X(85)  VALUE SPACES.    DTSBR507
00118          10  FILLER                  PIC  X(05)                   DTSBR507
00119                 VALUE 'PAGE:'.                                    DTSBR507
00120          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR507
00121          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR507
00122      05  HDR-LINE-4.                                              DTSBR507
00123          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR507
00124          10  FILLER                  PIC  X(20)                   DTSBR507
00125                 VALUE '                    '.                     DTSBR507
00126          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR507
00127          10  FILLER                  PIC  X(35)                   DTSBR507
00128                VALUE 'RATING EXPERIENCE CUTOFF ERROR LIST'.       DTSBR507
00129      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR507
00130      05  HDR-LINE-6.                                              DTSBR507
00131          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00132          10  FILLER                  PIC  X(20)                   DTSBR507
00133                VALUE '   RATE EXP CUTOFF: '.                      DTSBR507
00134          10  WS-EXP-CUTOFF-DATE      PIC  X(08).                  DTSBR507
00135      05  HDR-LINE-7.                                              DTSBR507
00136          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR507
00137          10  FILLER                  PIC  X(20)                   DTSBR507
00138                VALUE 'RATE EFFECTIVE QTR: '.                      DTSBR507
00139          10  WS-EFF-QTR              PIC  X(04).                  DTSBR507
00140      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR507
00141      05  HDR-LINE-9.                                              DTSBR507
00142          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR507
00143          10  FILLER                  PIC  X(06)                   DTSBR507
00144                 VALUE 'EMP NO'.                                   DTSBR507
00145          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR507
00146          10  FILLER                  PIC  X(13)                   DTSBR507
00147                 VALUE 'PRIMARY NAME'.                             DTSBR507
00148          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR507
00149          10  FILLER                  PIC  X(13)                   DTSBR507
00150                 VALUE 'ERROR MESSAGE'.                            DTSBR507
00151                                                                   DTSBR507
00152  01  NO-REPORT-LINE.                                              DTSBR507
00153      05  NO-RPT-LINE-5.                                           DTSBR507
00154          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR507
00155          10  FILLER                  PIC  X(15)                   DTSBR507
00156                 VALUE 'NO ERRORS FOUND'.                          DTSBR507
00157                                                                   DTSBR507
00158  01  DETAIL-LINE.                                                 DTSBR507
00159      05  DTL-LINE-2.                                              DTSBR507
00160          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00161          10  FILLER                  PIC  X(04)                   DTSBR507
00162                 VALUE 'SUCC'.                                     DTSBR507
00163          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00164          10  DTL-SUCC-EMP-NO         PIC  999B999.                DTSBR507
00165          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00166          10  DTL-SUCC-PRIMARY-NAME   PIC  X(40).                  DTSBR507
00167          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00168          10  DTL-MSG-TEXT-1          PIC  X(50).                  DTSBR507
00169                                                                   DTSBR507
00170      05  DTL-LINE-3.                                              DTSBR507
00171          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00172          10  FILLER                  PIC  X(04)                   DTSBR507
00173                 VALUE 'PRED'.                                     DTSBR507
00174          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00175          10  DTL-PRED-EMP-NO         PIC  999B999.                DTSBR507
00176          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00177          10  DTL-PRED-PRIMARY-NAME   PIC  X(40).                  DTSBR507
00178          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR507
00179          10  DTL-MSG-TEXT-2          PIC  X(50).                  DTSBR507
00180                                                                   DTSBR507
00181  01  CONTROL-FOOTING-FINAL.                                       DTSBR507
00182      05  CFF-LINE-4.                                              DTSBR507
00183          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR507
00184          10  FILLER                  PIC  X(17)                   DTSBR507
00185                 VALUE '*** END OF REPORT'.                        DTSBR507
00186      EJECT                                                        DTSBR507
00187  LINKAGE SECTION.                                                 DTSBR507
00188                                                                   DTSBR507
00189  01  LRCM-LINK-AREA.                                              DTSBR507
00190  ++INCLUDE DTSILRCM                                               DTSBR507
00191      EJECT                                                        DTSBR507
00192  01  R507-REC.                                                    DTSBR507
00193  ++INCLUDE DTSIR507                                               DTSBR507
00194      EJECT                                                        DTSBR507
00195  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR507
00196                           R507-REC.                               DTSBR507
00197      IF FIRST-TIME-IND = 'Y'                                      DTSBR507
00198          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR507
00199          MOVE 'N' TO FIRST-TIME-IND                               DTSBR507
00200          IF LRCM-EOR-88                                           DTSBR507
00201              PERFORM P2000-PRINT-HEADER THRU P2000-EXIT           DTSBR507
00202              WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5.    DTSBR507
00203                                                                   DTSBR507
00204      IF LRCM-EOR-88                                               DTSBR507
00205          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR507
00206      ELSE                                                         DTSBR507
00207          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR507
00208                                                                   DTSBR507
00209      GOBACK.                                                      DTSBR507
00210      EJECT                                                        DTSBR507
00211  I1000-INITIATE.                                                  DTSBR507
00212                                                                   DTSBR507
00213      OPEN OUTPUT PRT-FILE.                                        DTSBR507
00214      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR507
00215      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR507
00216      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR507
00217      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR507
00218      MOVE SPACES TO REPORT-LISTING1.                              DTSBR507
00219                                                                   DTSBR507
00220      IF LRCM-EOR-88                                               DTSBR507
00221          MOVE SPACES TO WS-EXP-CUTOFF-DATE                        DTSBR507
00222                         WS-EFF-QTR                                DTSBR507
00223      ELSE                                                         DTSBR507
00224          MOVE R507-EXP-CUTOFF-DATE TO L001-FED-8-DATE-9           DTSBR507
00225          SET L001-FROM-FED-8 TO TRUE                              DTSBR507
00226          PERFORM S001-DATE THRU S001-EXIT                         DTSBR507
00227          MOVE L001-SLASH-DATE TO WS-EXP-CUTOFF-DATE               DTSBR507
00228          PERFORM I1100-PICKUP-YRQ THRU I1100-EXIT.                DTSBR507
00229                                                                   DTSBR507
00230  I1000-EXIT.                                                      DTSBR507
00231      EXIT.                                                        DTSBR507
00232      EJECT                                                        DTSBR507
00233  I1100-PICKUP-YRQ.                                                DTSBR507
00234      IF LRCM-PICKUP-YRQ = R507-EFF-QTR                            DTSBR507
00235          MOVE 'PU  ' TO WS-EFF-QTR                                DTSBR507
00236      ELSE                                                         DTSBR507
00237          MOVE R507-EFF-QTR TO L004-QTR-5-9                        DTSBR507
00238          SET L004-FROM-5 TO TRUE                                  DTSBR507
00239          PERFORM S004-QUARTER THRU S004-EXIT                      DTSBR507
00240          MOVE L004-SLASH-QTR TO WS-EFF-QTR.                       DTSBR507
00241  I1100-EXIT.                                                      DTSBR507
00242      EXIT.                                                        DTSBR507
00243      EJECT                                                        DTSBR507
00244  P1000-PROCESS.                                                   DTSBR507
00245                                                                   DTSBR507
00246      MOVE R507-SUCC-EMP-NO         TO DTL-SUCC-EMP-NO.            DTSBR507
00247      MOVE R507-SUCC-PRIMARY-NAME   TO DTL-SUCC-PRIMARY-NAME.      DTSBR507
00248      MOVE R507-MSG-TEXT-1          TO DTL-MSG-TEXT-1.             DTSBR507
00249      MOVE R507-PRED-EMP-NO         TO DTL-PRED-EMP-NO.            DTSBR507
00250      MOVE R507-PRED-PRIMARY-NAME   TO DTL-PRED-PRIMARY-NAME.      DTSBR507
00251      MOVE R507-MSG-TEXT-2          TO DTL-MSG-TEXT-2.             DTSBR507
00252      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR507
00253      WRITE REPORT-LISTING1 FROM DTL-LINE-2 AFTER 2.               DTSBR507
00254      WRITE REPORT-LISTING1 FROM DTL-LINE-3 AFTER 1.               DTSBR507
00255      ADD +3    TO WS-LINE-CNT2.                                   DTSBR507
00256                                                                   DTSBR507
00257  P1000-EXIT.                                                      DTSBR507
00258      EXIT.                                                        DTSBR507
00259      EJECT                                                        DTSBR507
00260                                                                   DTSBR507
00261  P2000-PRINT-HEADER.                                              DTSBR507
00262                                                                   DTSBR507
00263      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR507
00264           WS-LINE-CNT2 GREATER 58                                 DTSBR507
00265         MOVE +0          TO WS-LINE-CNT                           DTSBR507
00266         MOVE +0          TO WS-LINE-CNT2                          DTSBR507
00267         ADD  +1          TO WS-PAGE-CNT                           DTSBR507
00268         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR507
00269         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR507
00270                 AFTER TOP-OF-PAGE                                 DTSBR507
00271         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR507
00272         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR507
00273         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR507
00274         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR507
00275         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR507
00276         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR507
00277         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR507
00278         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR507
00279         ADD +9    TO WS-LINE-CNT2.                                DTSBR507
00280                                                                   DTSBR507
00281  P2000-EXIT.                                                      DTSBR507
00282      EXIT.                                                        DTSBR507
00283                                                                   DTSBR507
00284  T1000-TERMINATE.                                                 DTSBR507
00285                                                                   DTSBR507
00286      IF WS-LINE-CNT2 > 52                                         DTSBR507
00287         ADD +8    TO WS-LINE-CNT2                                 DTSBR507
00288         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR507
00289      END-IF.                                                      DTSBR507
00290                                                                   DTSBR507
00291      WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4.               DTSBR507
00292      CLOSE PRT-FILE.                                              DTSBR507
00293                                                                   DTSBR507
00294  T1000-EXIT.                                                      DTSBR507
00295      EXIT.                                                        DTSBR507
00296      EJECT                                                        DTSBR507
00297  S001-DATE.                                                       DTSBR507
00298                                                                   DTSBR507
00299      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR507
00300                                                                   DTSBR507
00301  S001-EXIT.                                                       DTSBR507
00302      EXIT.                                                        DTSBR507
00303                                                                   DTSBR507
00304  S004-QUARTER.                                                    DTSBR507
00305                                                                   DTSBR507
00306      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR507
00307                                                                   DTSBR507
00308  S004-EXIT.                                                       DTSBR507
00309      EXIT.                                                        DTSBR507
00310                                                                   DTSBR507
00311 *S999-ABEND.                                                      DTSBR507
00312 *                                                                 DTSBR507
00313 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR507
00314 *                                                                 DTSBR507
00315 *S999-EXIT.                                                       DTSBR507
00316 *    EXIT.                                                        DTSBR507
00317                                                                   DTSBR507
