DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
33
Copybook/DTSIL109.cpy
Normal file
33
Copybook/DTSIL109.cpy
Normal file
@ -0,0 +1,33 @@
|
||||
00001 ***** 03/01/12
|
||||
00002 * DTSIL109
|
||||
00003 * DTSIL109 SUR TAX RATE LOOKUP MODULE LINKAGE. LV006
|
||||
00004 * DTSIL109
|
||||
00005 * DTSIL109
|
||||
00006 * 11/11/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL109
|
||||
00007 * 02/29/2006 ADDED COMMAND CODE - DTSIL109
|
||||
00008 * FIRST-QTR: RETURN FIRST QTR DTSIL109
|
||||
00009 * FOR WHICH SUR TAX IS EFFECTIVE DTSIL109
|
||||
00010 * INPUT-QTR: RETURN TAX RATE FOR DTSIL109
|
||||
00011 * QUARTER REQUESTED DTSIL109
|
||||
00012 * 01/30/2008 ADDED COMMAND CODE - PEN-INT-QTR DTSIL109
|
||||
00013 * DTSIL109
|
||||
00014 ***** DTSIL109
|
||||
00015 DTSIL109
|
||||
00016 10 L109-CMND-CD PIC X(01). DTSIL109
|
||||
00017 88 L109-CMND-FIRST-QTR-88 VALUE '0'. DTSIL109
|
||||
00018 88 L109-CMND-INPUT-QTR-88 VALUE '1'. DTSIL109
|
||||
00019 88 L109-CMND-PEN-INT-QTR-88 VALUE '2'. DTSIL109
|
||||
00020 DTSIL109
|
||||
00021 10 L109-EMP-CLASS PIC X(01). DTSIL109
|
||||
00022 88 L109-CLASS-RATED-88 VALUE 'R'. DTSIL109
|
||||
00023 88 L109-CLASS-SELF-INS-88 VALUE 'S'. DTSIL109
|
||||
00024 DTSIL109
|
||||
00025 10 L109-YRQ PIC S9(05) COMP-3. DTSIL109
|
||||
00026 DTSIL109
|
||||
00027 10 L109-SUR-RATE PIC S9(01)V9(04) COMP-3.DTSIL109
|
||||
00028 DTSIL109
|
||||
00029 10 L109-TAX-WAGE-BASE PIC S9(07)V99 COMP-3. DTSIL109
|
||||
00030 DTSIL109
|
||||
00031 10 L109-FIRST-PEN-INT-YRQ PIC S9(05) COMP-3. DTSIL109
|
||||
00032 DTSIL109
|
||||
00033 10 FILLER PIC X(20). DTSIL109
|
||||
Reference in New Issue
Block a user