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

46
Copybook/DTSIR504.cpy Normal file
View File

@ -0,0 +1,46 @@
00001 ***** 01/25/99
00002 * DTSIR504
00003 * DTSIR504 PENALTY RATE LETTER REPORT RECORD. LV007
00004 * DTSIR504
00005 * CL**2
00006 * 01/25/1999 CREATED FOR DC. EHH CL**7
00007 * CL**2
00008 ***** DTSIR504
00009 CL**2
00010 10 R504-LENGTH PIC S9(04) COMP. CL**7
00011 CL**2
00012 10 R504-SORT-AREA. CL**7
00013 15 R504-REC-TYPE PIC X(03) VALUE '504'. CL**7
00014 CL**2
00015 15 R504-SORT-VAR-AREA PIC X(14). CL**7
00016 15 R504-DLY-SORT-AREA CL**7
00017 REDEFINES R504-SORT-VAR-AREA. CL**7
00018 20 R504-DLY-EMP-NO PIC S9(07) COMP-3. CL**7
00019 20 R504-DLY-EFF-YRQ PIC S9(05) COMP-3. CL**7
00020 15 R504-YRLY-SORT-AREA CL**7
00021 REDEFINES R504-SORT-VAR-AREA. CL**7
00022 20 R504-YRLY-ZIP PIC X(10). CL**7
00023 20 R504-YRLY-EMP-NO PIC S9(07) COMP-3. CL**7
00024 CL**2
00025 10 R504-DATA-AREA. CL**7
00026 15 R504-EMP-NO PIC S9(07) COMP-3. CL**7
00027 15 R504-EFF-YRQ PIC S9(05) COMP-3. CL**7
00028 15 R504-RATE-YEAR PIC X(04). CL**7
00029 15 R504-NOTICE-DATE PIC S9(09) COMP-3. CL**7
00030 15 R504-PENALTY-DEADLINE-DATE CL**7
00031 PIC S9(09) COMP-3. CL**2
00032 15 R504-FMT-ADDR. CL**7
00033 20 R504-FMT-LINE OCCURS 5 TIMES CL**7
00034 INDEXED BY R504-FMT-IDX CL**7
00035 PIC X(40). DTSIR504
00036 15 R504-ZIP PIC X(10). CL**7
00037 15 R504-ADVANCED-BARCODE PIC X(14). CL**7
00038 15 R504-CALC-RATE PIC S9(01)V9(04) COMP-3. CL**7
00039 15 R504-PEN-RATE PIC S9(01)V9(04) COMP-3. CL**7
00040 ***** CL**6
00041 * R504-PEN-RATE IS THE PENALTY RATE ASSIGNED TO THE EMPLOYER. CL**7
00042 * R504-CALC-RATE IS THE EMPLOYER'S COMPUTED RATE - THE CL**7
00043 * RATE TO BE ASSIGNED TO THE EMPLOYER IF THE EMPLOYER CLEARS CL**7
00044 * HIS DELINQUENCIES ON OR PRIOR TO R504-PENALTY-DEADLINE CL**7
00045 * -DATE. CL**7
00046 ***** CL**6