101 lines
7.9 KiB
COBOL
101 lines
7.9 KiB
COBOL
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
|