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