00001  IDENTIFICATION DIVISION.                                         09/26/98
00002  PROGRAM-ID.             DTSCU052.                                DTSCU052
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCU052
00005  DATE-COMPILED.                                                   DTSCU052
00006      SKIP3                                                        DTSCU052
00007 *****                                                             DTSCU052
00008 *                                                                 DTSCU052
00009 *    FUNCTION:  UI RATE EDIT.                                     DTSCU052
00010 *                                                                 DTSCU052
00011 *                                                                 DTSCU052
00012 *    MODIFICATION LOG:                                            DTSCU052
00013 *                                                                 DTSCU052
00014 *    11/25/91  INITIAL DEVELOPMENT.                               DTSCU052
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU052
00016 *                                                                 DTSCU052
00017 *    03/29/94  CONVERT TO MONTANA.                                DTSCU052
00018 *              WORK ORDER:                      PROGRAMMER: RHC   DTSCU052
00019 *                                                                 DTSCU052
00020 *    09/15/97  1997 HOUSE BILL 115 MODIFIED PENALTY RATE LOGIC.   DTSCU052
00021 *              FOR RATES EFFECTIVE 1998/1 AND AFTER, PENALTY      DTSCU052
00022 *              RATE IS EMPLOYERS ASSIGNED CONTRIBUTION RATE       DTSCU052
00023 *              TIMES 1.5, ROUNDED TO THE NEAREST TENTH OF A       DTSCU052
00024 *              PERCENT.                                           DTSCU052
00025 *              WORK ORDER: TCL 211              PROGRAMMER: EHH   DTSCU052
00026 *                                                                 DTSCU052
00027 *    09/22/1998  REVIEWED AND MODIFIED FOR DC.                       CL**2
00028 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00029 *                                                                    CL**2
00030 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00031 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00032 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**2
00033 *                                                                 DTSCU052
00034 *                                                                 DTSCU052
00035 *    DESCRIPTION:                                                 DTSCU052
00036 *                                                                 DTSCU052
00037 *    DTSCU052 IS PASSED A EFF-YRQ, A UI-RATE-TYPE AND A UI-RATE.     CL**2
00038 *    DTSCU052 DETERMINES IF THE RATE IS A VALID RATE FOR THE         CL**2
00039 *    EFF-YRQ AND THE UI-RATE-TYPE SPECIFIED.                      DTSCU052
00040 *                                                                 DTSCU052
00041 *    STARTBR THE REFERENCE FILE AT THE FUIR RECORD WITH           DTSCU052
00042 *    FUIR-EFF-YRQ EQUAL TO L052-EFF-YRQ AND FUIR-TYPE EQUAL       DTSCU052
00043 *    TO L052-UI-RATE-TYPE.                                        DTSCU052
00044 *                                                                 DTSCU052
00045 *    READNEXT THE REFERENCE FILE UNTIL (A BREAK ON FUIR-EFF-YRQ   DTSCU052
00046 *    OR A BREAK ON FUIR-TYPE IS ENCOUNTERED) OR (FUIR-UI-RATE IS  DTSCU052
00047 *    EQUAL TO L052-UI-RATE).                                      DTSCU052
00048 *                                                                 DTSCU052
00049 *    IF L831-FILE-CLOSED-88                                       DTSCU052
00050 *        FILE CLOSED                                              DTSCU052
00051 *    ELSE                                                         DTSCU052
00052 *    IF FUIR-UI-RATE EQUAL TO L052-UI-RATE WAS FOUND              DTSCU052
00053 *        VALID                                                    DTSCU052
00054 *    ELSE                                                         DTSCU052
00055 *        NOT VALID.                                               DTSCU052
00056 *                                                                 DTSCU052
00057 *****                                                             DTSCU052
00058      SKIP3                                                        DTSCU052
00059  ENVIRONMENT DIVISION.                                            DTSCU052
00060      SKIP3                                                        DTSCU052
00061  DATA DIVISION.                                                   DTSCU052
00062      SKIP3                                                        DTSCU052
00063  WORKING-STORAGE SECTION.                                         DTSCU052
000635 77  PAN-VALET PICTURE X(24) VALUE '005DTSCU052  09/26/98'.       DTSCU052
00064      SKIP3                                                        DTSCU052
00065  01  WRK-AREA.                                                    DTSCU052
00066      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U052'.    DTSCU052
00067                                                                   DTSCU052
00068      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU052
00069      EJECT                                                        DTSCU052
00070  01  L831-COMM-AREA.                                              DTSCU052
00071      05  L831-CONTROL-BLOCK.                                      DTSCU052
00072  ++INCLUDE DTSIL831                                                  CL**2
00073      SKIP3                                                        DTSCU052
00074      05  FSKL-REC.                                                DTSCU052
00075  ++INCLUDE DTSIFSKL                                                  CL**2
00076      SKIP3                                                        DTSCU052
00077      05  FUIR-REC REDEFINES FSKL-REC.                             DTSCU052
00078  ++INCLUDE DTSIFUIR                                                  CL**2
00079      EJECT                                                        DTSCU052
00080  LINKAGE SECTION.                                                 DTSCU052
00081      SKIP3                                                        DTSCU052
00082  01  DFHCOMMAREA.                                                 DTSCU052
00083  ++INCLUDE DTSIL052                                                  CL**2
00084      EJECT                                                        DTSCU052
00085  PROCEDURE DIVISION.                                              DTSCU052
00086                                                                      CL**4
00087      SET L052-NOT-VALID TO TRUE.                                     CL**4
00088                                                                      CL**4
00089      MOVE SPACE TO L052-MSG-AREA.                                    CL**5
00090                                                                      CL**2
00091                                                                      CL**4
00092      MOVE LOW-VALUES        TO FUIR-KEY-AREA.                     DTSCU052
00093                                                                      CL**2
00094      SET FUIR-UIR-88 TO TRUE.                                     DTSCU052
00095                                                                      CL**2
00096      MOVE L052-EFF-YRQ TO FUIR-EFF-YRQ.                              CL**3
00097                                                                      CL**2
00098      PERFORM S831-READ THRU S831-EXIT.                               CL**2
00099                                                                      CL**2
00100      IF L831-OK-88                                                   CL**2
00101          PERFORM P1000-PROCESS-FUIR THRU P1000-EXIT                  CL**2
00102      ELSE                                                            CL**3
00103      IF L831-NO-REC-88                                               CL**3
00104          SET L052-NOT-VALID TO TRUE.                                 CL**2
00105                                                                      CL**2
00106                                                                      CL**2
00107      EXEC CICS                                                    DTSCU052
00108          RETURN                                                   DTSCU052
00109      END-EXEC.                                                    DTSCU052
00110                                                                      CL**2
00111                                                                      CL**2
00112      GOBACK.                                                      DTSCU052
00113      EJECT                                                        DTSCU052
00114  P1000-PROCESS-FUIR.                                                 CL**2
00115      IF L052-UI-RATE = FUIR-DEFAULT-NEW-EMP-RATE                     CL**3
00116          SET L052-VALID TO TRUE                                      CL**2
00117          GO TO P1000-EXIT.                                           CL**3
00118                                                                      CL**2
00119      PERFORM                                                         CL**2
00120        VARYING FUIR-RATE-IDX FROM 1 BY 1                             CL**2
00121        UNTIL (FUIR-RATE-IDX > FUIR-RATE-CNT)                         CL**2
00122                     OR                                               CL**2
00123             (L052-VALID)                                             CL**2
00124          IF FUIR-UI-RATE (FUIR-RATE-IDX) = L052-UI-RATE              CL**3
00125              SET L052-VALID TO TRUE                                  CL**2
00126          END-IF                                                      CL**2
00127      END-PERFORM.                                                    CL**2
00128  P1000-EXIT.                                                      DTSCU052
00129      EXIT.                                                        DTSCU052
00130      EJECT                                                        DTSCU052
00131  S831-READ.                                                          CL**2
00132      SET L831-READ-88 TO TRUE.                                       CL**2
00133      GO TO S831-REF-FILE.                                         DTSCU052
00134                                                                      CL**2
00135  S831-REF-FILE.                                                   DTSCU052
00136                                                                      CL**2
00137      EXEC CICS                                                    DTSCU052
00138          LINK                                                     DTSCU052
00139              PROGRAM('DTSCU831')                                     CL**2
00140              COMMAREA(L831-COMM-AREA)                             DTSCU052
00141      END-EXEC.                                                    DTSCU052
00142                                                                      CL**2
00143      IF L831-FILE-CLOSED-88                                       DTSCU052
00144         SET L052-FILE-CLOSED TO TRUE                              DTSCU052
00145         MOVE L831-MSG-AREA  TO L052-MSG-AREA.                     DTSCU052
00146                                                                      CL**2
00147  S831-EXIT.                                                       DTSCU052
00148      EXIT.                                                        DTSCU052
00149                                                                      CL**2
00150                                                                      CL**2
00151                                                                      CL**2
00152 *S899-ABEND.                                                      DTSCU052
00153 *                                                                    CL**2
00154 *****EXEC CICS                                                       CL**2
00155 *********ABEND                                                       CL**2
00156 *************ABCODE (WRK-ABEND-CODE)                                 CL**2
00157 *****END-EXEC.                                                       CL**2
00158 *                                                                    CL**2
00159 *S899-EXIT.                                                       DTSCU052
00160 *****EXIT.                                                           CL**2
