giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
Copybook/DTSIL516.cpy Normal file
View File

@ -0,0 +1,81 @@
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