00001  IDENTIFICATION DIVISION.                                         05/19/08
00002  PROGRAM-ID.             DTSBU109.                                DTSCU109
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV001
00004  DATE-WRITTEN.           MAY 1994.                                DTSCU109
00005  DATE-COMPILED.                                                   DTSCU109
00006      SKIP3                                                        DTSCU109
00007 *****                                                             DTSCU109
00008 *                                                                 DTSCU109
00009 *    FUNCTION:  RATE/SUR-TAX INTEREST AND PENALTY EFF FIRST QTR   DTSCU109
00010 *                                                                 DTSCU109
00011 * TO CHANGE RATES, MODIFY THE WORKING-STORAGE TABLE:              DTSCU109
00012 * WRK-RATE-TABLE.  THE START DATE FOR ADMIN ASSESSMENT            DTSCU109
00013 * IS STORED IN WRK-FIRST-QTR.                                     DTSCU109
00014 *                                                                 DTSCU109
00015 *    MODIFICATION LOG:                                            DTSCU109
00016 *                                                                 DTSCU109
00017 *    11/11/1998  REVIEWED AND MODIFIED FOR DC.  AT DEVELOPMENT    DTSCU109
00018 *                TIME SUR RATE ALWAYS EQUAL TO ZERO.  SUR TAX IS  DTSCU109
00019 *                INCORPORATED INTO THE SYSTEM IN ANTICIPATION OF  DTSCU109
00020 *                FUTURE REQUIREMENTS.                             DTSCU109
00021 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCU109
00022 *                                                                 DTSCU109
00023 *    02/12/2008  CLONED FROM DTSBU109.                            DTSCU109
00024 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU109
00025 *                                                                 DTSCU109
00026 *    01/31/2008  MODIFIED TO ADD COMMAND CODE IN LINKAGE:         DTSCU109
00027 *                CMND = 2: RETURN FIRST PENALTY INTERESR          DTSCU109
00028 *                QUARTER (20081).                                 DTSCU109
00029 *                REFERENCE:                     PROGRAMMER: RW1   DTSCU109
00030 *                                                                 DTSCU109
00031 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU109
00032 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU109
00033 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCU109
00034 *                                                                 DTSCU109
00035 *                                                                 DTSCU109
00036 *    DESCRIPTION:                                                 DTSCU109
00037 *                                                                 DTSCU109
00038 *                                                                 DTSCU109
00039 *****                                                             DTSCU109
00040      SKIP2                                                        DTSCU109
00041  ENVIRONMENT DIVISION.                                            DTSCU109
00042                                                                   DTSCU109
00043                                                                   DTSCU109
00044                                                                   DTSCU109
00045  DATA DIVISION.                                                   DTSCU109
00046                                                                   DTSCU109
00047                                                                   DTSCU109
00048                                                                   DTSCU109
00049  WORKING-STORAGE SECTION.                                         DTSCU109
000495 77  PAN-VALET PICTURE X(24) VALUE '001DTSCU109  05/19/08'.       DTSCU109
00050                                                                   DTSCU109
00051  01  WRK-AREA.                                                    DTSCU109
00052                                                                   DTSCU109
00053      05  WRK-ABEND-CD                PIC S9(04)  COMP             DTSCU109
00054                                             VALUE +109.           DTSCU109
00055                                                                   DTSCU109
00056      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU109
00057                                                                   DTSCU109
00058      05  WRK-FIRST-PEN-INT-YRQ       PIC S9(05) COMP-3            DTSCU109
00059                                       VALUE +20081.               DTSCU109
00060                                                                   DTSCU109
00061      EJECT                                                        DTSCU109
00062  LINKAGE SECTION.                                                 DTSCU109
00063      SKIP3                                                        DTSCU109
00064  01  DFHCOMMAREA.                                                 DTSCU109
00065  ++INCLUDE DTSIL109                                               DTSCU109
00066                                                                   DTSCU109
00067  PROCEDURE DIVISION.                                              DTSCU109
00068                                                                   DTSCU109
00069  P0000-PROCESS.                                                   DTSCU109
00070        IF L109-CMND-PEN-INT-QTR-88                                DTSCU109
00071           PERFORM P3000-PEN-INT-QTR THRU P3000-EXIT               DTSCU109
00072        ELSE                                                       DTSCU109
00073           PERFORM S899-ABEND        THRU S899-EXIT                DTSCU109
00074      END-IF.                                                      DTSCU109
00075                                                                   DTSCU109
00076      EXEC CICS                                                    DTSCU109
00077            RETURN                                                 DTSCU109
00078      END-EXEC.                                                    DTSCU109
00079                                                                   DTSCU109
00080                                                                   DTSCU109
00081                                                                   DTSCU109
00082  P0000-EXIT.                                                      DTSCU109
00083      EXIT.                                                        DTSCU109
00084      EJECT                                                        DTSCU109
00085                                                                   DTSCU109
00086                                                                   DTSCU109
00087  P3000-PEN-INT-QTR.                                               DTSCU109
00088      MOVE WRK-FIRST-PEN-INT-YRQ  TO L109-FIRST-PEN-INT-YRQ.       DTSCU109
00089                                                                   DTSCU109
00090  P3000-EXIT.                                                      DTSCU109
00091      EXIT.                                                        DTSCU109
00092  S899-ABEND.                                                      DTSCU109
00093        EXEC CICS                                                  DTSCU109
00094            ABEND                                                  DTSCU109
00095            ABCODE (WRK-ABEND-CD)                                  DTSCU109
00096        END-EXEC.                                                  DTSCU109
00097  S899-EXIT.                                                       DTSCU109
