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