93 lines
7.3 KiB
COBOL
93 lines
7.3 KiB
COBOL
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
|