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