47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
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
|