82 lines
6.4 KiB
COBOL
82 lines
6.4 KiB
COBOL
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
|