00001 ***** 09/27/13 00002 * DTSIL516 00003 * DTSIL516 DETERMINE, FOR A GIVEN QUARTER, LIABILITY, DUE LV003 00004 * DATES, AND RATE. DTSIL516 00005 * DTSIL516 00006 * CALL 'DTSBU516' USING L516-LINK-AREA DTSIL516 00007 * MPRF-REC. DTSIL516 00008 * DTSIL516 00009 * DTSIL516 00010 * 10/09/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL516 00011 * DTSIL516 00012 * 10/30/2001 ADDED FILING SCHEDULE INDICATORS. GD DTSIL516 00013 * DTSIL516 00014 * 08/14/2002 ADDED TEST FOR ESTIMATED RATE. GD DTSIL516 00015 * DTSIL516 00016 * FOR HOUSEHOLD EMPLOYERS, BU516 CALLS DTSBU410 DTSIL516 00017 * TO DETERMINE WHETHER THE SUBJECT QUARTER DTSIL516 00018 * IS FILED QUARTERLY OR ANNUALLY. THE PROGRAM DTSIL516 00019 * RETURNS THE SCHEDULE IN L516-FILING-SCHED-CD, DTSIL516 00020 * AND EITHER THE QUARTERLY OR ANNUAL DUE DATE DTSIL516 00021 * AS NEEDED. DTSIL516 00022 * IF THERE IS NO SCHEDULE FOR THE QUARTER, IT DTSIL516 00023 * SETS L516-SCHED-NULL-88 TO TRUE. DTSIL516 00024 * FOR NON-HOUSEHOLD EMPLOYERS, THE CODE WILL DTSIL516 00025 * ALWAYS BE NULL. DTSIL516 00026 * DTSIL516 00027 * THE L516-FORCE-SCHED-IND IS USED WHEN THE CALLING DTSIL516 00028 * PROGRAM NEEDS THE DUE DATE REGARLESS OF THE STATE DTSIL516 00029 * OF THE QUARTER (FOR EXAMPLE, WHEN THE EMPLOYER DTSIL516 00030 * FILES A QUARTERLY REPORT WHILE THE MFSC IS STILL DTSIL516 00031 * PENDING). DTSIL516 00032 * DTSIL516 00033 * 09-27-2013 ADDED L516-ANN-LIABLE-IND. A 'Y' INDICATES THAT CL**2 00034 * THE QUARTER IS REPORTED ANNUALLY, AND THE EMPLOYER CL**2 00035 * IF LIABLE FOR AT LEAST ONE QUARTER DURING THE YEAR CL**2 00036 * L516-ANNUAL-IND MAY BE 'N' FOR A GIVEN QUARTER CL**2 00037 * WHILE L516-ANN-LIABLE-IND IS 'Y'. CL**2 00038 * REFERENCE: TKT 2081 PROGRAMMER: GD CL**2 00039 * CL**2 00040 ***** DTSIL516 00041 DTSIL516 00042 10 L516-TRACE-IND PIC X(01). DTSIL516 00043 DTSIL516 00044 10 L516-YRQ PIC S9(05) COMP-3. DTSIL516 00045 DTSIL516 00046 10 L516-RETURN-AREA. DTSIL516 00047 15 L516-LIABLE-IND PIC X(01). DTSIL516 00048 88 L516-LIABLE-88 VALUE '0'. DTSIL516 00049 88 L516-NOT-LIABLE-88 VALUE '1'. DTSIL516 00050 DTSIL516 00051 15 L516-RATE-IND PIC X(01). DTSIL516 00052 88 L516-RATE-88 VALUE '0'. DTSIL516 00053 88 L516-RATE-NOT-FOUND-88 VALUE '1'. DTSIL516 00054 88 L516-ESTIMATED-RATE-88 VALUE '2'. DTSIL516 00055 88 L516-NO-RATE-88 VALUE '1' '2'. DTSIL516 00056 DTSIL516 00057 15 L516-DEFAULT-RPT-DUE-DATE DTSIL516 00058 PIC S9(09) COMP-3. DTSIL516 00059 DTSIL516 00060 15 L516-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIL516 00061 DTSIL516 00062 15 L516-DEFAULT-TAX-DUE-DATE DTSIL516 00063 PIC S9(09) COMP-3. DTSIL516 00064 DTSIL516 00065 15 L516-FORCE-SCHED-IND PIC X(01). DTSIL516 00066 88 L516-FORCE-QTRLY-88 VALUE 'Q'. DTSIL516 00067 88 L516-FORCE-ANN-88 VALUE 'A'. DTSIL516 00068 88 L516-DEFAULT-SCHED-88 VALUE ' '. DTSIL516 00069 DTSIL516 00070 15 L516-FILING-SCHED-CD PIC X(01). DTSIL516 00071 88 L516-QTRLY-SCHED-88 VALUE 'Q'. DTSIL516 00072 88 L516-ANN-SCHED-88 VALUE 'A'. DTSIL516 00073 88 L516-PENDING-SCHED-88 VALUE 'P'. DTSIL516 00074 88 L516-SCHED-NULL-88 VALUE ' '. DTSIL516 00075 DTSIL516 00076 15 L516-ANN-LIABLE-IND PIC X(01). CL**2 00077 88 L516-ANN-LIABLE-88 VALUE '0'. CL**2 00078 88 L516-NOT-ANN-LIABLE-88 VALUE '1'. CL**2 00079 88 L516-ANN-LIABLE-NULL-88 VALUE ' '. CL**3 00080 CL**2 00081 15 FILLER PIC X(10). CL**2