DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
81
Copybook/DTSIL381.cpy
Normal file
81
Copybook/DTSIL381.cpy
Normal file
@ -0,0 +1,81 @@
|
||||
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
|
||||
Reference in New Issue
Block a user