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