64 lines
5.0 KiB
COBOL
64 lines
5.0 KiB
COBOL
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
|