DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
68
Copybook/DTSIFUIR.cpy
Normal file
68
Copybook/DTSIFUIR.cpy
Normal file
@ -0,0 +1,68 @@
|
||||
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
|
||||
Reference in New Issue
Block a user