00001 ***** 06/29/02 00002 * DTSIL103 00003 * DTSIL103 LATE PAYMENT PENALTY CHARGED/WAIVER LV001 00004 * MODULE LINKAGE FOR ANNUAL REPORTS. DTSIL103 00005 * DTSIL103 00006 * DTSIL103 00007 * 02/05/2002 MODIFIED FROM DTSIL103 GD DTSIL103 00008 * DTSIL103 00009 * THE ANNUAL PENALTY CALCULATION PROGRAM MUST BE CALLED DTSIL103 00010 * WITH L103-INITIALIZATION-88 SET TO TRUE THE FIRST TIME. DTSIL103 00011 * THIS INITIAL CALL CALCULATES THE OVERALL ANNUAL PENALTY DTSIL103 00012 * AMOUNT. BASED ON THIS AMOUNT, IT DETERMINES WHETHER THE DTSIL103 00013 * INDIVIDUAL QUARTERLY PENALTIES SHOULD BE CALCULATED BASED DTSIL103 00014 * ON THE BALANCE DUE, OR ASSESSED AT THE FIXED $100.00 AMOUNT. DTSIL103 00015 * DTSIL103 00016 * THE FOLLOWING FIELDS ARE REQUIRED FOR THE INITIALIZATION DTSIL103 00017 * CALL: DTSIL103 00018 * L103-OR-RECEIVED-DATE DTSIL103 00019 * L103-LAST-PEN-ASSESSED-YRQ DTSIL103 00020 * L103-LIABLE-QTR-CNT DTSIL103 00021 * L103-LAST-LIABLE-YRQ DTSIL103 00022 * L103-RPT-DUE-DATE DTSIL103 00023 * L103-INIT-TOT-CHG DTSIL103 00024 * L103-INIT-TOT-BAL DTSIL103 00025 * DTSIL103 00026 ***** DTSIL103 00027 DTSIL103 00028 10 L103-OPTION PIC X(01). DTSIL103 00029 88 L103-INITIALIZATION-88 VALUE '0'. DTSIL103 00030 88 L103-PEN-ASSESSMENT-RUN-88 VALUE '1'. DTSIL103 00031 88 L103-ORIGINAL-RPT-88 VALUE '2'. DTSIL103 00032 88 L103-NSF-PAY-REVERSAL-88 VALUE '3'. DTSIL103 00033 88 L103-ESTIMATED-RPT-88 VALUE '4'. DTSIL103 00034 88 L103-OPTION-VALID-88 VALUE '0' '1' DTSIL103 00035 '2' '3' '4'. DTSIL103 00036 DTSIL103 00037 DTSIL103 00038 10 L103-TRAN-AREA. DTSIL103 00039 15 L103-TRAN-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL103 00040 DTSIL103 00041 15 L103-WAIVE-LATE-PEN-IND PIC X(01). DTSIL103 00042 88 L103-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIL103 00043 88 L103-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIL103 00044 DTSIL103 00045 DTSIL103 00046 10 L103-LAST-PEN-ASSESSED-YRQ PIC S9(05) COMP-3. DTSIL103 00047 DTSIL103 00048 10 L103-LIABLE-QTR-CNT PIC S9(04) COMP. DTSIL103 00049 DTSIL103 00050 10 L103-LAST-LIABLE-YRQ PIC S9(05) COMP-3. DTSIL103 00051 DTSIL103 00052 10 L103-INITIALIZATION-AREA. DTSIL103 00053 15 L103-INIT-TOT-CHG PIC S9(09)V99 COMP-3. DTSIL103 00054 DTSIL103 00055 15 L103-INIT-TOT-BAL PIC S9(09)V99 COMP-3. DTSIL103 00056 DTSIL103 00057 10 L103-OR-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL103 00058 DTSIL103 00059 DTSIL103 00060 10 L103-FROM-MQTR-AREA. DTSIL103 00061 15 L103-MQTR-YRQ PIC S9(05) COMP-3. DTSIL103 00062 DTSIL103 00063 15 L103-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIL103 00064 DTSIL103 00065 15 L103-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIL103 00066 DTSIL103 00067 15 L103-LATE-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSIL103 00068 DTSIL103 00069 15 L103-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSIL103 00070 DTSIL103 00071 15 L103-TAX-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSIL103 00072 DTSIL103 00073 15 L103-PEN-AREA. DTSIL103 00074 20 L103-PEN-CHARGE-IND PIC X(01). DTSIL103 00075 88 L103-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIL103 00076 88 L103-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIL103 00077 DTSIL103 00078 20 L103-WAIVE-PEN-SPAN. DTSIL103 00079 25 L103-WAIVE-PEN-START-DATE DTSIL103 00080 PIC S9(09) COMP-3. DTSIL103 00081 25 L103-WAIVE-PEN-END-DATE DTSIL103 00082 PIC S9(09) COMP-3. DTSIL103 00083 DTSIL103 00084 DTSIL103 00085 10 L103-RETURN-AREA. DTSIL103 00086 15 L103-LATE-PEN-CHARGE-CHNG DTSIL103 00087 PIC S9(09)V9(02) COMP-3. DTSIL103 00088 DTSIL103 00089 15 L103-LATE-PEN-WAIVE-CHNG DTSIL103 00090 PIC S9(09)V9(02) COMP-3. DTSIL103 00091 DTSIL103 00092 10 FILLER PIC X(52). DTSIL103