00001 ***** 01/29/02 00002 * DTSIL381 00003 * DTSIL381 DETERMINE (FOR A GIVEN QUARTER) LIABILITY, LV005 00004 * DEFAULT DUE DATE, AND UI RATE. DTSIL381 00005 * DTSIL381 00006 * DTSIL381 00007 * 11/03/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL381 00008 * DTSIL381 00009 * 11/19/2001 ADDED FILING SCHEDULE INDICATORS. GD DTSIL381 00010 * DTSIL381 00011 * FOR HOUSEHOLD EMPLOYERS, BU381 CALLS DTSCU410 DTSIL381 00012 * TO DETERMINE WHETHER THE SUBJECT QUARTER DTSIL381 00013 * IS FILED QUARTERLY OR ANNUALLY. THE PROGRAM DTSIL381 00014 * RETURNS THE SCHEDULE IN L381-FILING-SCHED-CD, DTSIL381 00015 * AND RETURNS EITHER THE QUARTERLY OR ANNUAL DTSIL381 00016 * DUE DATE AS NEEDED. DTSIL381 00017 * IF THERE IS NO SCHEDULE FOR THE QUARTER, IT DTSIL381 00018 * SETS L381-SCHED-NULL-88 TO TRUE. DTSIL381 00019 * FOR NON-HOUSEHOLD EMPLOYERS, THE CODE WILL DTSIL381 00020 * ALWAYS BE NULL. DTSIL381 00021 * DTSIL381 00022 * THE CALLING PROGRAM SETS L381-HOUSEHOLD-IND BASED DTSIL381 00023 * ON THE ORGANIZATION TYPE CODE ON THE MPRF RECORD. DTSIL381 00024 * ONLY HOUSEHOLD EMPLOYERS HAVE THE OPTION OF DTSIL381 00025 * ANNUALLY. DTSIL381 00026 * DTSIL381 00027 * THE L381-FORCE-SCHED-IND IS USED WHEN THE CALLING DTSIL381 00028 * PROGRAM NEEDS THE DUE DATE REGARLESS OF THE STATE DTSIL381 00029 * OF THE QUARTER (FOR EXAMPLE, WHEN THE EMPLOYER DTSIL381 00030 * FILES A QUARTERLY REPORT WHILE THE MFSC IS STILL DTSIL381 00031 * PENDING). DTSIL381 00032 * DTSIL381 00033 ***** DTSIL381 00034 DTSIL381 00035 10 L381-EMP-NO PIC S9(07) COMP-3. DTSIL381 00036 DTSIL381 00037 10 L381-YRQ PIC S9(05) COMP-3. DTSIL381 00038 DTSIL381 00039 10 L381-EMP-CLASS PIC X(01). DTSIL381 00040 88 L381-CLASS-RATED-88 VALUE 'R'. DTSIL381 00041 88 L381-CLASS-SELF-INS-88 VALUE 'S'. DTSIL381 00042 DTSIL381 00043 10 L381-RETURN-AREA. DTSIL381 00044 15 L381-LIABLE-IND PIC X(01). DTSIL381 00045 88 L381-LIABLE-88 VALUE '0'. DTSIL381 00046 88 L381-NOT-LIABLE-88 VALUE '1'. DTSIL381 00047 88 L381-FILE-CLOSED-88 VALUE '9'. DTSIL381 00048 DTSIL381 00049 15 L381-UI-RATE-IND PIC X(01). DTSIL381 00050 88 L381-UI-RATE-OK-88 VALUE '0'. DTSIL381 00051 88 L381-UI-RATE-NOT-FOUND-88 DTSIL381 00052 VALUE '1'. DTSIL381 00053 DTSIL381 00054 15 L381-DEFAULT-RPT-DUE-DATE DTSIL381 00055 PIC S9(09) COMP-3. DTSIL381 00056 DTSIL381 00057 15 L381-UI-RATE PIC S9V9(04) COMP-3. DTSIL381 00058 DTSIL381 00059 15 L381-DEFAULT-TAX-DUE-DATE DTSIL381 00060 PIC S9(09) COMP-3. DTSIL381 00061 DTSIL381 00062 15 L381-HOUSEHOLD-IND PIC X(01). DTSIL381 00063 88 L381-HOUSEHOLD-YES-88 VALUE 'Y'. DTSIL381 00064 88 L381-HOUSEHOLD-NO-88 VALUE ' '. DTSIL381 00065 DTSIL381 00066 15 L381-FORCE-SCHED-IND PIC X(01). DTSIL381 00067 88 L381-FORCE-QTRLY-88 VALUE 'Q'. DTSIL381 00068 88 L381-FORCE-ANN-88 VALUE 'A'. DTSIL381 00069 88 L381-DEFAULT-SCHED-88 VALUE ' '. DTSIL381 00070 DTSIL381 00071 15 L381-FILING-SCHED-CD PIC X(01). DTSIL381 00072 88 L381-QTRLY-SCHED-88 VALUE 'Q'. DTSIL381 00073 88 L381-ANN-SCHED-88 VALUE 'A'. DTSIL381 00074 88 L381-PENDING-SCHED-88 VALUE 'P'. DTSIL381 00075 88 L381-SCHED-NULL-88 VALUE ' '. DTSIL381 00076 DTSIL381 00077 15 FILLER PIC X(34). DTSIL381 00078 DTSIL381 00079 10 L381-MSG-AREA. DTSIL381 00080 15 L381-MSG-ID PIC X(04). DTSIL381 00081 15 L381-MSG-TEXT PIC X(60). DTSIL381