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

63
Copybook/DTSIL054.cpy Normal file
View File

@ -0,0 +1,63 @@
00001 ***** 11/11/02
00002 * DTSIL054
00003 * MACIL054 USED IN COMBINATION WITH MACIMRCT TO FORM LV004
00004 * THE LINKAGE TO THE UI RATE DETERMINATION MODULE. DTSIL054
00005 * DTSIL054
00006 * IF L054-RATE-LOOKUP-NO-88, THEN ALL L054 DATA DTSIL054
00007 * ELEMENTS SAVE L054-CALC-UI-RATE AND DTSIL054
00008 * L054-PEN-UI-RATE ARE RETURNED - NO EFFORT TO DTSIL054
00009 * READ THE FUIR RECORD AND LOOKUP THE APPLICABLE DTSIL054
00010 * RATE IS MADE. DTSIL054
00011 * DTSIL054
00012 * IF L054-RATE-LOOKUP-YES-88, THEN ALL L054 DATA DTSIL054
00013 * ELEMENTS INCLUDING L054-CALC-UI-RATE AND DTSIL054
00014 * L054-PEN-UI-RATE ARE RETURNED. DTSIL054
00015 * DTSIL054
00016 * IF L054-ESTIMATED-RATE-YES-88, DTSBU054 WILL DTSIL054
00017 * CALCULATE THE RATE FOR CLASSIFIED EMPLOYERS DTSIL054
00018 * WITH MRCT-QTR1-ESTIM-TAX-WAGE INCLUDED IN THE DTSIL054
00019 * AVERAGE TAXABLE WAGES FOR THE MOST RECENT DTSIL054
00020 * YEAR. DTSIL054
00021 * DTSIL054
00022 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL054
00023 * DTSIL054
00024 ***** DTSIL054
00025 DTSIL054
00026 10 L054-OPTION PIC X(01). DTSIL054
00027 88 L054-RATE-LOOKUP-NO-88 VALUE '1'. DTSIL054
00028 88 L054-RATE-LOOKUP-YES-88 VALUE '2'. DTSIL054
00029 DTSIL054
00030 10 L054-ESTIMATED-RATE-IND PIC X(01). DTSIL054
00031 88 L054-ESTIMATED-RATE-YES-88 VALUE '1'. DTSIL054
00032 88 L054-ESTIMATED-RATE-NO-88 VALUE '2'. DTSIL054
00033 DTSIL054
00034 10 L054-RESULT-IND PIC X(01). DTSIL054
00035 88 L054-OK-88 VALUE '1'. DTSIL054
00036 88 L054-NO-FUIR-88 VALUE '3'. DTSIL054
00037 88 L054-FILE-CLOSED-88 VALUE '9'. DTSIL054
00038 DTSIL054
00039 10 L054-CURRENT-RESERVE-AMT PIC S9(09)V9(02) COMP-3. DTSIL054
00040 DTSIL054
00041 10 L054-AVG-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIL054
00042 DTSIL054
00043 10 L054-RATIO PIC S9(02)V9(05) COMP-3. DTSIL054
00044 DTSIL054
00045 10 L054-UI-RATE-CATEGORY PIC X(01). DTSIL054
00046 88 L054-CLASSIFIED-88 VALUE 'C'. DTSIL054
00047 88 L054-NONCLASSIFIED-88 VALUE 'N'. DTSIL054
00048 DTSIL054
00049 10 L054-UI-CALC-RATE PIC S9(01)V9(04) COMP-3. DTSIL054
00050 DTSIL054
00051 10 L054-UI-PEN-RATE-CD PIC X(01). DTSIL054
00052 88 L054-UI-PEN-RATE-YES-88 VALUE 'Y'. DTSIL054
00053 88 L054-UI-PEN-RATE-NO-88 VALUE 'N'. DTSIL054
00054 88 L054-UI-PEN-RATE-INEFF-88 VALUE 'I'. DTSIL054
00055 88 L054-UI-PEN-RATE-UNDETER-88 VALUE '?'. DTSIL054
00056 DTSIL054
00057 10 L054-UI-PEN-RATE PIC S9(01)V9(04) COMP-3. DTSIL054
00058 DTSIL054
00059 10 FILLER PIC X(64). DTSIL054
00060 DTSIL054
00061 10 L054-MSG-AREA. DTSIL054
00062 15 L054-MSG-ID PIC X(04). DTSIL054
00063 15 L054-MSG-TEXT PIC X(60). DTSIL054