00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR502.                                DTSBR502
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004                          MODIFED BY TRW S&ITG FEB 1999            DTSBR502
00005  DATE-WRITTEN.           AUGUST 1994.                             DTSBR502
00006  DATE-COMPILED.                                                   DTSBR502
00007      SKIP3                                                        DTSBR502
00008 *****                                                             DTSBR502
00009 *    CALLING SEQUENCE:  DTSBD341 CREATES IR502 RECORDS.           DTSBR502
00010 *                       DTSBD800 CALLS DTSBR502, WHICH            DTSBR502
00011 *                       READS IR502 AND PRODUCES THE LIST.        DTSBR502
00012 *                                                                 DTSBR502
00013 *    FUNCTION:  RATE DISCREPANCY LIST.                            DTSBR502
00014 *                                                                 DTSBR502
00015 *                                                                 DTSBR502
00016 *    MODIFICATION HISTORY:                                        DTSBR502
00017 *                                                                 DTSBR502
00018 * 08-22-94 INITIAL DEVELOPMENT                                    DTSBR502
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR502
00020 *                                                                 DTSBR502
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR502
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR502
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR502
00024 *                                                                 DTSBR502
00025 *                                                                 DTSBR502
00026 *    DESCRIPTION:                                                 DTSBR502
00027 *                                                                 DTSBR502
00028 *        THIS MODULE DISPLAYS ANY DESCREPANCIES BETWEEN RATES     DTSBR502
00029 *        ASSIGNED TO ACCOUNTS AND THEIR CHARACTERISTICS.          DTSBR502
00030 *                                                                 DTSBR502
00031 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR502
00032 *                                                                 DTSBR502
00033 *                                                                 DTSBR502
00034 *    RECORDS READ:                                                DTSBR502
00035 *                                                                 DTSBR502
00036 *        NONE.                                                    DTSBR502
00037 *                                                                 DTSBR502
00038 *                                                                 DTSBR502
00039 *    PRINTED OUTPUTS:                                             DTSBR502
00040 *                                                                 DTSBR502
00041 *        502R1  RATE DISCREPANCY LIST                             DTSBR502
00042 *                                                                 DTSBR502
00043 *                                                                 DTSBR502
00044 *    RECORDS WRITTEN:                                             DTSBR502
00045 *                                                                 DTSBR502
00046 *        NONE.                                                    DTSBR502
00047 *                                                                 DTSBR502
00048 *                                                                 DTSBR502
00049 *    MODULES CALLED:                                              DTSBR502
00050 *                                                                 DTSBR502
00051 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR502
00052 *                                                                 DTSBR502
00053 *                                                                 DTSBR502
00054 *****                                                             DTSBR502
00055      EJECT                                                        DTSBR502
00056  ENVIRONMENT DIVISION.                                            DTSBR502
00057                                                                   DTSBR502
00058  CONFIGURATION SECTION.                                           DTSBR502
00059  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR502
00060                                                                   DTSBR502
00061  INPUT-OUTPUT SECTION.                                            DTSBR502
00062                                                                   DTSBR502
00063  FILE-CONTROL.                                                    DTSBR502
00064      SELECT PRT-FILE ASSIGN TO RPT502R1.                          DTSBR502
00065                                                                   DTSBR502
00066  DATA DIVISION.                                                   DTSBR502
00067                                                                   DTSBR502
00068  FILE SECTION.                                                    DTSBR502
00069                                                                   DTSBR502
00070  FD  PRT-FILE                                                     DTSBR502
00071      RECORDING MODE IS F.                                         DTSBR502
00072  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR502
00073                                                                   DTSBR502
00074  WORKING-STORAGE SECTION.                                         DTSBR502
000745 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR502  01/29/01'.       DTSBR502
00075      SKIP3                                                        DTSBR502
00076  01  WRK-AREA.                                                    DTSBR502
00077      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +502.DTSBR502
00078      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR502
00079                                                                   DTSBR502
00080      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR502
00081      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR502
00082      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR502
00083                                                                   DTSBR502
00084  01  L056-LINK-AREA.                                              DTSBR502
00085  ++INCLUDE DTSIL056                                               DTSBR502
00086      EJECT                                                        DTSBR502
00087                                                                   DTSBR502
00088  01  PAGE-HEADING.                                                DTSBR502
00089      05  HDR-LINE-1.                                              DTSBR502
00090          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00091          10  FILLER                  PIC  X(05)                   DTSBR502
00092                 VALUE '502R1'.                                    DTSBR502
00093          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR502
00094          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR502
00095          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR502
00096          10  FILLER                  PIC  X(05)                   DTSBR502
00097                 VALUE 'DATE:'.                                    DTSBR502
00098          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00099          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR502
00100      05  HDR-LINE-2.                                              DTSBR502
00101          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR502
00102          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR502
00103          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR502
00104          10  FILLER                  PIC  X(05)                   DTSBR502
00105                 VALUE 'TIME:'.                                    DTSBR502
00106          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00107          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR502
00108      05  HDR-LINE-3.                                              DTSBR502
00109          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00110          10  FILLER                  PIC  X(34)                   DTSBR502
00111                 VALUE 'ROUTE TO:  REGISTRATION AND RATES'.        DTSBR502
00112          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR502
00113          10  FILLER                  PIC  X(23)                   DTSBR502
00114                 VALUE ' RATE DISCREPANCY LIST '.                  DTSBR502
00115          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR502
00116          10  FILLER                  PIC  X(05)                   DTSBR502
00117                 VALUE 'PAGE:'.                                    DTSBR502
00118          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR502
00119          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR502
00120      05  HDR-LINE-4                  PIC  X(133) VALUE SPACES.    DTSBR502
00121      05  HDR-LINE-5.                                              DTSBR502
00122          10  FILLER                  PIC  X(56)  VALUE SPACES.    DTSBR502
00123          10  FILLER                  PIC  X(10)                   DTSBR502
00124                 VALUE '  RATE'.                                   DTSBR502
00125      05  HDR-LINE-6.                                              DTSBR502
00126          10  FILLER                  PIC  X(56)  VALUE SPACES.    DTSBR502
00127          10  FILLER                  PIC  X(10)                   DTSBR502
00128                 VALUE 'EFFECTIVE'.                                DTSBR502
00129      05  HDR-LINE-7.                                              DTSBR502
00130          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00131          10  FILLER                  PIC  X(26)                   DTSBR502
00132                 VALUE 'EMP NO       PRIMARY NAME'.                DTSBR502
00133          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR502
00134          10  FILLER                  PIC  X(37)                   DTSBR502
00135                 VALUE ' QUARTER     RATE     MESSAGE'.            DTSBR502
00136      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR502
00137                                                                   DTSBR502
00138  01  NO-REPORT-LINE.                                              DTSBR502
00139      05  NO-RPT-LINE-5.                                           DTSBR502
00140          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR502
00141          10  FILLER                  PIC  X(22)                   DTSBR502
00142                 VALUE 'NO DISCREPANCIES FOUND'.                   DTSBR502
00143                                                                   DTSBR502
00144  01  DETAIL-LINE1.                                                DTSBR502
00145      05  DTL1-LINE-2.                                             DTSBR502
00146          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR502
00147          10  DTL1-EMP-NO             PIC  999B999.                DTSBR502
00148          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR502
00149          10  DTL1-PRIMARY-NAME       PIC  X(40).                  DTSBR502
00150          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR502
00151          10  WS-EFF-QTR-UNPACK       PIC  9999/9.                 DTSBR502
00152          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR502
00153          10  WS-DISP-RATE            PIC  X(07).                  DTSBR502
00154          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR502
00155          10  DTL1-MSG-TEXT-1         PIC  X(50)  VALUE SPACES.    DTSBR502
00156                                                                   DTSBR502
00157  01  DETAIL-LINE2.                                                DTSBR502
00158      05  DTL2-LINE-1.                                             DTSBR502
00159          10  FILLER                  PIC  X(79)  VALUE SPACES.    DTSBR502
00160          10  DTL2-MSG-TEXT-2         PIC  X(50)  VALUE SPACES.    DTSBR502
00161                                                                   DTSBR502
00162  01  CONTROL-FOOTING-FINAL.                                       DTSBR502
00163      05  CFF-LINE-3.                                              DTSBR502
00164          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR502
00165          10  FILLER                  PIC  X(17)                   DTSBR502
00166                 VALUE '*** END OF REPORT'.                        DTSBR502
00167      EJECT                                                        DTSBR502
00168  LINKAGE SECTION.                                                 DTSBR502
00169                                                                   DTSBR502
00170  01  LRCM-LINK-AREA.                                              DTSBR502
00171  ++INCLUDE DTSILRCM                                               DTSBR502
00172      EJECT                                                        DTSBR502
00173  01  R502-REC.                                                    DTSBR502
00174  ++INCLUDE DTSIR502                                               DTSBR502
00175      EJECT                                                        DTSBR502
00176  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR502
00177                           R502-REC.                               DTSBR502
00178                                                                   DTSBR502
00179      IF FIRST-TIME-IND = 'Y'                                      DTSBR502
00180          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR502
00181          MOVE 'N' TO FIRST-TIME-IND                               DTSBR502
00182          IF LRCM-EOR-88                                           DTSBR502
00183              PERFORM P2000-PRINT-HEADER THRU P2000-EXIT           DTSBR502
00184              WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5.    DTSBR502
00185                                                                   DTSBR502
00186      IF LRCM-EOR-88                                               DTSBR502
00187          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR502
00188      ELSE                                                         DTSBR502
00189          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR502
00190                                                                   DTSBR502
00191      GOBACK.                                                      DTSBR502
00192      EJECT                                                        DTSBR502
00193  I1000-INITIATE.                                                  DTSBR502
00194                                                                   DTSBR502
00195      OPEN OUTPUT PRT-FILE.                                        DTSBR502
00196      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR502
00197      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR502
00198      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR502
00199      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR502
00200      MOVE SPACES TO REPORT-LISTING1.                              DTSBR502
00201                                                                   DTSBR502
00202  I1000-EXIT.                                                      DTSBR502
00203      EXIT.                                                        DTSBR502
00204      EJECT                                                        DTSBR502
00205  P1000-PROCESS.                                                   DTSBR502
00206                                                                   DTSBR502
00207      MOVE R502-EFFECTIVE-QTR TO WS-EFF-QTR-UNPACK.                DTSBR502
00208                                                                   DTSBR502
00209      IF R502-NO-RATE-88                                           DTSBR502
00210          MOVE 'NONE' TO WS-DISP-RATE                              DTSBR502
00211      ELSE                                                         DTSBR502
00212          MOVE R502-RATE TO L056-RATE                              DTSBR502
00213          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR502
00214          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR502
00215          MOVE L056-DISP-RATE TO WS-DISP-RATE.                     DTSBR502
00216                                                                   DTSBR502
00217      MOVE R502-EMP-NO              TO DTL1-EMP-NO.                DTSBR502
00218      MOVE R502-PRIMARY-NAME        TO DTL1-PRIMARY-NAME.          DTSBR502
00219      MOVE R502-MSG-TEXT-1          TO DTL1-MSG-TEXT-1.            DTSBR502
00220      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR502
00221      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR502
00222      ADD +2    TO WS-LINE-CNT2.                                   DTSBR502
00223                                                                   DTSBR502
00224      IF R502-MSG-TEXT-2 NOT = SPACES                              DTSBR502
00225          MOVE R502-MSG-TEXT-1          TO DTL2-MSG-TEXT-2         DTSBR502
00226          WRITE REPORT-LISTING1 FROM DTL2-LINE-1 AFTER 1           DTSBR502
00227          ADD +1    TO WS-LINE-CNT2.                               DTSBR502
00228                                                                   DTSBR502
00229  P1000-EXIT.                                                      DTSBR502
00230      EXIT.                                                        DTSBR502
00231      EJECT                                                        DTSBR502
00232                                                                   DTSBR502
00233  P2000-PRINT-HEADER.                                              DTSBR502
00234                                                                   DTSBR502
00235      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR502
00236           WS-LINE-CNT2 GREATER 58                                 DTSBR502
00237         MOVE +0          TO WS-LINE-CNT                           DTSBR502
00238         MOVE +0          TO WS-LINE-CNT2                          DTSBR502
00239         ADD  +1          TO WS-PAGE-CNT                           DTSBR502
00240         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR502
00241         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR502
00242                 AFTER TOP-OF-PAGE                                 DTSBR502
00243         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR502
00244         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR502
00245         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR502
00246         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR502
00247         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR502
00248         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR502
00249         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR502
00250         ADD +8    TO WS-LINE-CNT2.                                DTSBR502
00251                                                                   DTSBR502
00252  P2000-EXIT.                                                      DTSBR502
00253      EXIT.                                                        DTSBR502
00254                                                                   DTSBR502
00255  T1000-TERMINATE.                                                 DTSBR502
00256                                                                   DTSBR502
00257      IF WS-LINE-CNT2 > 52                                         DTSBR502
00258         ADD +8    TO WS-LINE-CNT2                                 DTSBR502
00259         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR502
00260      END-IF.                                                      DTSBR502
00261                                                                   DTSBR502
00262      WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3.               DTSBR502
00263      CLOSE PRT-FILE.                                              DTSBR502
00264                                                                   DTSBR502
00265  T1000-EXIT.                                                      DTSBR502
00266      EXIT.                                                        DTSBR502
00267      EJECT                                                        DTSBR502
00268  S056-RATE-DISPLAY.                                               DTSBR502
00269                                                                   DTSBR502
00270      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR502
00271                                                                   DTSBR502
00272  S056-EXIT.                                                       DTSBR502
00273      EXIT.                                                        DTSBR502
00274                                                                   DTSBR502
00275 *S999-ABEND.                                                      DTSBR502
00276 *                                                                 DTSBR502
00277 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR502
00278 *                                                                 DTSBR502
00279 *S999-EXIT.                                                       DTSBR502
00280 *    EXIT.                                                        DTSBR502
00281                                                                   DTSBR502
