69 lines
5.4 KiB
COBOL
69 lines
5.4 KiB
COBOL
00001 ***** 03/28/07
|
|
00002 * DTSIFUIR
|
|
00003 * DTSIFUIR REFERENCE FILE 'UI RATE' RECORD DEFINITION. LV011
|
|
00004 * DTSIFUIR
|
|
00005 * 08/23/2002 ADDED TRUST FUND BAL AND ANNUAL DTSIFUIR
|
|
00006 * RATE NOTICE DATE GD DTSIFUIR
|
|
00007 * DTSIFUIR
|
|
00008 * 02/23/2007 ADDED TRUST FUND WAGES AND DTSIFUIR
|
|
00009 * TOTAL CONTRIB WAGES AMT ZL1 DTSIFUIR
|
|
00010 * DTSIFUIR
|
|
00011 ***** DTSIFUIR
|
|
00012 DTSIFUIR
|
|
00013 10 FUIR-KEY-AREA. DTSIFUIR
|
|
00014 15 FUIR-REC-TYPE PIC S9(04) COMP. DTSIFUIR
|
|
00015 88 FUIR-UIR-88 VALUE +17. DTSIFUIR
|
|
00016 15 FUIR-EFF-YRQ PIC S9(05) COMP-3. DTSIFUIR
|
|
00017 15 FUIR-KEY-FILLER PIC X(11). DTSIFUIR
|
|
00018 DTSIFUIR
|
|
00019 10 FUIR-DATA-AREA. DTSIFUIR
|
|
00020 15 FUIR-RATE-TABLE PIC X(05). DTSIFUIR
|
|
00021 88 FUIR-RATE-TABLE-I-88 VALUE 'I '. DTSIFUIR
|
|
00022 88 FUIR-RATE-TABLE-II-88 VALUE 'II '. DTSIFUIR
|
|
00023 88 FUIR-RATE-TABLE-III-88 VALUE 'III '. DTSIFUIR
|
|
00024 88 FUIR-RATE-TABLE-IV-88 VALUE 'IV '. DTSIFUIR
|
|
00025 88 FUIR-RATE-TABLE-V-88 VALUE 'V '. DTSIFUIR
|
|
00026 88 FUIR-RATE-TABLE-VI-88 VALUE 'VI '. DTSIFUIR
|
|
00027 88 FUIR-RATE-TABLE-VALID-88 DTSIFUIR
|
|
00028 VALUE 'I ', 'II ', 'III ', DTSIFUIR
|
|
00029 'IV ', 'V ', 'VI '. DTSIFUIR
|
|
00030 15 FUIR-TOT-TRUST-FUND-INT-AMT DTSIFUIR
|
|
00031 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
|
00032 15 FUIR-TOT-POS-RESERVE-BAL-AMT DTSIFUIR
|
|
00033 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
|
00034 15 FUIR-TOT-POS-RESERVE-EMP-CNT DTSIFUIR
|
|
00035 PIC S9(07) COMP-3. DTSIFUIR
|
|
00036 15 FUIR-DIST-TRUST-FUND-INT-AMT DTSIFUIR
|
|
00037 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
|
00038 15 FUIR-MIN-TAX-BAL-DUE-AMT DTSIFUIR
|
|
00039 PIC S9(09)V9(02) COMP-3. DTSIFUIR
|
|
00040 15 FUIR-MIN-MISS-RPT-CNT PIC S9(03) COMP-3. DTSIFUIR
|
|
00041 15 FUIR-RATE-CUTOFF-DATE PIC S9(09) COMP-3. DTSIFUIR
|
|
00042 15 FUIR-RATE-NOTICE-DATE PIC S9(09) COMP-3. DTSIFUIR
|
|
00043 15 FUIR-PENALTY-RATE-DATE PIC S9(09) COMP-3. DTSIFUIR
|
|
00044 15 FUIR-DEFAULT-NEW-EMP-RATE DTSIFUIR
|
|
00045 PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
|
00046 15 FUIR-TRUST-FUND-BAL-AMT PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
|
00047 15 FUIR-ANN-RATE-NOTICE-DATE DTSIFUIR
|
|
00048 PIC S9(09) COMP-3. DTSIFUIR
|
|
00049 15 FUIR-TOT-CONTRIB-WAGES-AMT DTSIFUIR
|
|
00050 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
|
00051 15 FUIR-TRUST-FUND-BAL-WAGES DTSIFUIR
|
|
00052 PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
|
00053 DTSIFUIR
|
|
00054 15 FILLER PIC X(10). DTSIFUIR
|
|
00055 DTSIFUIR
|
|
00056 15 FUIR-RATE-CNT PIC S9(04) COMP. DTSIFUIR
|
|
00057 DTSIFUIR
|
|
00058 15 FUIR-RATE-AREA. DTSIFUIR
|
|
00059 20 FUIR-RATE-GROUP OCCURS 20 TIMES DTSIFUIR
|
|
00060 INDEXED BY FUIR-RATE-IDX. DTSIFUIR
|
|
00061 25 FUIR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
|
00062 25 FUIR-MIN-RATIO PIC S9(02)V9(05) COMP-3. DTSIFUIR
|
|
00063 25 FUIR-MAX-RATIO PIC S9(02)V9(05) COMP-3. DTSIFUIR
|
|
00064 DTSIFUIR
|
|
00065 15 FILLER PIC X(16). DTSIFUIR
|
|
00066 DTSIFUIR
|
|
00067 15 FUIR-ESTB-DATE PIC S9(09) COMP-3. DTSIFUIR
|
|
00068 15 FUIR-CHNG-DATE PIC S9(09) COMP-3. DTSIFUIR
|