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