00001 *****                                                             11/11/02
00002 *                                                                 DTSIL054
00003 *    MACIL054    USED IN COMBINATION WITH MACIMRCT TO FORM           LV004
00004 *                THE LINKAGE TO THE UI RATE DETERMINATION MODULE. DTSIL054
00005 *                                                                 DTSIL054
00006 *                IF L054-RATE-LOOKUP-NO-88, THEN ALL L054 DATA    DTSIL054
00007 *                ELEMENTS SAVE L054-CALC-UI-RATE AND              DTSIL054
00008 *                L054-PEN-UI-RATE ARE RETURNED - NO EFFORT TO     DTSIL054
00009 *                READ THE FUIR RECORD AND LOOKUP THE APPLICABLE   DTSIL054
00010 *                RATE IS MADE.                                    DTSIL054
00011 *                                                                 DTSIL054
00012 *                IF L054-RATE-LOOKUP-YES-88, THEN ALL L054 DATA   DTSIL054
00013 *                ELEMENTS INCLUDING L054-CALC-UI-RATE AND         DTSIL054
00014 *                L054-PEN-UI-RATE ARE RETURNED.                   DTSIL054
00015 *                                                                 DTSIL054
00016 *                IF L054-ESTIMATED-RATE-YES-88, DTSBU054 WILL     DTSIL054
00017 *                CALCULATE THE RATE FOR CLASSIFIED EMPLOYERS      DTSIL054
00018 *                WITH MRCT-QTR1-ESTIM-TAX-WAGE INCLUDED IN THE    DTSIL054
00019 *                AVERAGE TAXABLE WAGES FOR THE MOST RECENT        DTSIL054
00020 *                YEAR.                                            DTSIL054
00021 *                                                                 DTSIL054
00022 *                11/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH   DTSIL054
00023 *                                                                 DTSIL054
00024 *****                                                             DTSIL054
00025                                                                   DTSIL054
00026          10  L054-OPTION                 PIC  X(01).              DTSIL054
00027              88  L054-RATE-LOOKUP-NO-88      VALUE '1'.           DTSIL054
00028              88  L054-RATE-LOOKUP-YES-88     VALUE '2'.           DTSIL054
00029                                                                   DTSIL054
00030          10  L054-ESTIMATED-RATE-IND     PIC  X(01).              DTSIL054
00031              88  L054-ESTIMATED-RATE-YES-88  VALUE '1'.           DTSIL054
00032              88  L054-ESTIMATED-RATE-NO-88   VALUE '2'.           DTSIL054
00033                                                                   DTSIL054
00034          10  L054-RESULT-IND             PIC  X(01).              DTSIL054
00035              88  L054-OK-88                  VALUE '1'.           DTSIL054
00036              88  L054-NO-FUIR-88             VALUE '3'.           DTSIL054
00037              88  L054-FILE-CLOSED-88         VALUE '9'.           DTSIL054
00038                                                                   DTSIL054
00039          10  L054-CURRENT-RESERVE-AMT    PIC S9(09)V9(02) COMP-3. DTSIL054
00040                                                                   DTSIL054
00041          10  L054-AVG-TAX-WAGE           PIC S9(11)V9(02) COMP-3. DTSIL054
00042                                                                   DTSIL054
00043          10  L054-RATIO                  PIC S9(02)V9(05) COMP-3. DTSIL054
00044                                                                   DTSIL054
00045          10  L054-UI-RATE-CATEGORY       PIC  X(01).              DTSIL054
00046              88  L054-CLASSIFIED-88          VALUE 'C'.           DTSIL054
00047              88  L054-NONCLASSIFIED-88       VALUE 'N'.           DTSIL054
00048                                                                   DTSIL054
00049          10  L054-UI-CALC-RATE           PIC S9(01)V9(04) COMP-3. DTSIL054
00050                                                                   DTSIL054
00051          10  L054-UI-PEN-RATE-CD         PIC  X(01).              DTSIL054
00052              88  L054-UI-PEN-RATE-YES-88     VALUE 'Y'.           DTSIL054
00053              88  L054-UI-PEN-RATE-NO-88      VALUE 'N'.           DTSIL054
00054              88  L054-UI-PEN-RATE-INEFF-88   VALUE 'I'.           DTSIL054
00055              88  L054-UI-PEN-RATE-UNDETER-88 VALUE '?'.           DTSIL054
00056                                                                   DTSIL054
00057          10  L054-UI-PEN-RATE            PIC S9(01)V9(04) COMP-3. DTSIL054
00058                                                                   DTSIL054
00059          10  FILLER                      PIC  X(64).              DTSIL054
00060                                                                   DTSIL054
00061          10  L054-MSG-AREA.                                       DTSIL054
00062              15  L054-MSG-ID             PIC  X(04).              DTSIL054
00063              15  L054-MSG-TEXT           PIC  X(60).              DTSIL054