00001 ***** 09/18/07 00002 * DTSIL102 00003 * DTSIL102 LATE PAYMENT PENALTY CHARGED/WAIVER LV015 00004 * MODULE LINKAGE. DTSIL102 00005 * DTSIL102 00006 * DTSIL102 00007 * 11/14/1998 CREATED FOR DC. EHH DTSIL102 00008 * DTSIL102 00009 * 07/28/1999 ADDED L102-TAX-DUE-DATE AND DTSIL102 00010 * L102-RPT-DUE-DATE. EHH DTSIL102 00011 * DTSIL102 00012 * 05/08/2000 ADDED LEVEL 88 TO TEST FOR VALID DTSIL102 00013 * OPTION. GD DTSIL102 00014 * DTSIL102 00015 * 06/13/2000 ADDED EMP CLASS AND TIMELY SELF- DTSIL102 00016 * INSURED PAYMENT AMOUNT. GD DTSIL102 00017 * DTSIL102 00018 * 12/15/2003 ADDED ELECTRONIC REPORT INDICATOR - DTSIL102 00019 * SYSTEM WILL ASSESS PENALTY FOR LATE DTSIL102 00020 * REPORTS SUBMITTED ELECTRONICALLY DTSIL102 00021 * WITHOUT WAITING FOR THE QUARTER TO DTSIL102 00022 * BE DECLARED DELINQUENT. GD DTSIL102 00023 * DTSIL102 00024 * 03/21/2005 REMOVED ELECTRONIC REPORT INDICATOR. DTSIL102 00025 * THE SYSTEM NOW ASSESSES PENALTY FOR DTSIL102 00026 * LATE REPORTS WHEN THEY ARE PROCESSED. DTSIL102 00027 * ADDED L102-DELINQUENT-RUN-88 TO DTSIL102 00028 * L102-OPTION. THE DELINQUENCY PROCESS DTSIL102 00029 * NOW ASSESSES PENALTY. DTSIL102 00030 * (DIR 107) GD DTSIL102 00031 * DTSIL102 00032 * 09/06/2007 ADDED CURRENT RUN DATE - TO DETERMINE DTSIL102 00033 * WHETHER TO CHECK A TIMELY SELF-INSURED DTSIL102 00034 * REPORT FOR PAYMENT IN FULL. GD DTSIL102 00035 * DTSIL102 00036 ***** DTSIL102 00037 DTSIL102 00038 10 L102-OPTION PIC X(01). DTSIL102 00039 88 L102-PEN-ASSESSMENT-RUN-88 VALUE '1'. DTSIL102 00040 88 L102-ORIGINAL-RPT-88 VALUE '2'. DTSIL102 00041 88 L102-NSF-PAY-REVERSAL-88 VALUE '3'. DTSIL102 00042 88 L102-ESTIMATED-RPT-88 VALUE '4'. DTSIL102 00043 88 L102-DELINQUENCY-RUN-88 VALUE '5'. DTSIL102 00044 88 L102-OPTION-VALID-88 VALUE '1' '2' DTSIL102 00045 '3' '4' '5'. DTSIL102 00046 DTSIL102 00047 DTSIL102 00048 10 L102-TRAN-AREA. DTSIL102 00049 15 L102-EMP-CLASS PIC X(01). DTSIL102 00050 88 L102-CLASS-RATED-88 VALUE 'R'. DTSIL102 00051 88 L102-CLASS-SELF-INS-88 VALUE 'S'. DTSIL102 00052 DTSIL102 00053 15 L102-TRAN-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL102 00054 DTSIL102 00055 15 L102-WAIVE-LATE-PEN-IND PIC X(01). DTSIL102 00056 88 L102-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIL102 00057 88 L102-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIL102 00058 DTSIL102 00059 10 L102-LAST-PEN-ASSESSED-YRQ PIC S9(05) COMP-3. DTSIL102 00060 DTSIL102 00061 DTSIL102 00062 10 L102-OR-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL102 00063 DTSIL102 00064 10 L102-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIL102 00065 DTSIL102 00066 10 L102-FROM-MQTR-AREA. DTSIL102 00067 15 L102-MQTR-YRQ PIC S9(05) COMP-3. DTSIL102 00068 DTSIL102 00069 15 L102-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIL102 00070 DTSIL102 00071 15 L102-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIL102 00072 DTSIL102 00073 15 L102-LATE-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSIL102 00074 DTSIL102 00075 15 L102-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSIL102 00076 DTSIL102 00077 15 L102-TAX-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSIL102 00078 DTSIL102 00079 15 L102-TIMELY-SI-PAY-AMT PIC S9(09)V9(02) COMP-3. DTSIL102 00080 DTSIL102 00081 15 L102-PEN-AREA. DTSIL102 00082 20 L102-PEN-CHARGE-IND PIC X(01). DTSIL102 00083 88 L102-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIL102 00084 88 L102-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIL102 00085 DTSIL102 00086 20 L102-WAIVE-PEN-SPAN. DTSIL102 00087 25 L102-WAIVE-PEN-START-DATE DTSIL102 00088 PIC S9(09) COMP-3. DTSIL102 00089 25 L102-WAIVE-PEN-END-DATE DTSIL102 00090 PIC S9(09) COMP-3. DTSIL102 00091 DTSIL102 00092 DTSIL102 00093 10 L102-RETURN-AREA. DTSIL102 00094 15 L102-LATE-PEN-CHARGE-CHNG DTSIL102 00095 PIC S9(09)V9(02) COMP-3. DTSIL102 00096 DTSIL102 00097 15 L102-LATE-PEN-WAIVE-CHNG DTSIL102 00098 PIC S9(09)V9(02) COMP-3. DTSIL102 00099 DTSIL102 00100 10 FILLER PIC X(52). DTSIL102