34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
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
|