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

73
Copybook/DTSIR521.cpy Normal file
View File

@ -0,0 +1,73 @@
00001 ***** 04/22/99
00002 * DTSIR521
00003 * DTSIR521 RATE ASSIGNMENT SUMMARY REPORT RECORD. LV006
00004 * DTSIR521
00005 * CL**5
00006 * NOTE: OBTAIN THE "MIN RATIO" AND "MAX RATIO" CL**5
00007 * ASSOCIATED WITH R521-COMPUTED-RATE FROM CL**5
00008 * THE FUIR RECORD OCCURRENCE WITH FUIR-EFF CL**5
00009 * -YRQ EQUAL TO R521-EFF-QTR. CL**5
00010 * CL**5
00011 * CL**2
00012 * 04/22/1999 CREATED FOR DC. EHH CL**2
00013 * CL**2
00014 ***** DTSIR521
00015 CL**2
00016 10 R521-LENGTH PIC S9(04) COMP. CL**2
00017 CL**2
00018 CL**2
00019 10 R521-SORT-AREA. DTSIR521
00020 15 R521-REC-TYPE PIC X(03). CL**2
00021 CL**2
00022 15 R521-UI-RATE-CATEGORY PIC X(01). CL**2
00023 88 R521-RATE-CLASSIFIED-88 VALUE 'C'. CL**6
00024 88 R521-RATE-NONCLASSIFIED-88 VALUE 'N'. CL**6
00025 CL**2
00026 15 R521-COMPUTED-RATE PIC S9(01)V9(04) COMP-3. CL**4
00027 CL**2
00028 CL**2
00029 10 R521-DATA-AREA. DTSIR521
00030 15 R521-EFF-QTR PIC S9(05) COMP-3. DTSIR521
00031 CL**2
00032 15 R521-UI-TAX-PAID-FROM-YRQ CL**3
00033 PIC S9(05) COMP-3. CL**3
00034 CL**3
00035 15 R521-UI-TAX-PAID-THRU-YRQ CL**3
00036 PIC S9(05) COMP-3. CL**3
00037 CL**4
00038 15 R521-TRUST-FUND-INT-FROM-YRQ CL**4
00039 PIC S9(05) COMP-3. CL**4
00040 CL**4
00041 15 R521-TRUST-FUND-INT-THRU-YRQ CL**4
00042 PIC S9(05) COMP-3. CL**4
00043 CL**4
00044 15 R521-UI-BEN-CHGD-FROM-YRQ CL**4
00045 PIC S9(05) COMP-3. CL**4
00046 CL**4
00047 15 R521-UI-BEN-CHGD-THRU-YRQ CL**4
00048 PIC S9(05) COMP-3. CL**4
00049 CL**4
00050 15 R521-CURRENT-RESERVE-THRU-DATE CL**4
00051 PIC S9(09) COMP-3. CL**4
00052 CL**3
00053 15 R521-WAGES-YRQ-AREA CL**4
00054 OCCURS 3 TIMES CL**4
00055 INDEXED BY R521-WAGES-YRQ-IDX. CL**4
00056 20 R521-WAGES-FROM-YRQ PIC S9(05) COMP-3. CL**4
00057 20 R521-WAGES-THRU-YRQ PIC S9(05) COMP-3. CL**4
00058 CL**4
00059 15 R521-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. CL**2
00060 CL**2
00061 15 R521-TRUST-FUND-INTEREST-AMT CL**2
00062 PIC S9(09)V9(02) COMP-3. CL**2
00063 CL**2
00064 15 R521-BENEFITS-CHARGED-AMT CL**2
00065 PIC S9(09)V9(02) COMP-3. CL**2
00066 CL**3
00067 15 R521-CURRENT-RESERVE-AMT CL**3
00068 PIC S9(09)V9(02) COMP-3. CL**3
00069 CL**3
00070 15 R521-TAX-WAGE CL**4
00071 OCCURS 3 TIMES CL**3
00072 INDEXED BY R521-TAX-WAGE-IDX CL**4
00073 PIC S9(11)V9(02) COMP-3. CL**4