21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
00001 ***** 07/25/00
|
|
00002 * DTSIFCYR
|
|
00003 * DTSIFCYR REFERENCE FILE 'CALENDAR YEAR' RECORD DEFINITION. LV007
|
|
00004 * DTSIFCYR
|
|
00005 ***** DTSIFCYR
|
|
00006 DTSIFCYR
|
|
00007 10 FCYR-KEY-AREA. DTSIFCYR
|
|
00008 15 FCYR-REC-TYPE PIC S9(04) COMP. DTSIFCYR
|
|
00009 88 FCYR-CYR-88 VALUE +01. DTSIFCYR
|
|
00010 15 FCYR-YR PIC S9(05) COMP-3. DTSIFCYR
|
|
00011 15 FCYR-KEY-FILLER PIC X(11). DTSIFCYR
|
|
00012 DTSIFCYR
|
|
00013 10 FCYR-DATA-AREA. DTSIFCYR
|
|
00014 15 FCYR-TAXABLE-WAGE-BASE PIC S9(07)V9(02) COMP-3. DTSIFCYR
|
|
00015 15 FCYR-FUTA-CREDIT-RATE PIC S9(01)V9(04) COMP-3. DTSIFCYR
|
|
00016 DTSIFCYR
|
|
00017 15 FILLER PIC X(30). DTSIFCYR
|
|
00018 DTSIFCYR
|
|
00019 15 FCYR-ESTB-DATE PIC S9(09) COMP-3. DTSIFCYR
|
|
00020 15 FCYR-CHNG-DATE PIC S9(09) COMP-3. DTSIFCYR
|