00001 ***** 11/11/98 00002 * DTSIL101 00003 * DTSIL101 INTEREST CHARGE/WAIVER MODULE LINKAGE. LV002 00004 * DTSIL101 00005 * CL**2 00006 * 11/11/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00007 * CL**2 00008 ***** DTSIL101 00009 CL**2 00010 10 L101-OPTION PIC X(01). DTSIL101 00011 88 L101-PER-MONTH-YES-88 VALUE 'Y'. CL**2 00012 88 L101-PER-MONTH-NO-88 VALUE 'N'. CL**2 00013 CL**2 00014 CL**2 00015 10 L101-TRAN-AREA. DTSIL101 00016 15 L101-PAID-CHNG PIC S9(09)V9(02) COMP-3. DTSIL101 00017 CL**2 00018 15 L101-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL101 00019 CL**2 00020 15 L101-WAIVE-INT-IND PIC X(01). CL**2 00021 88 L101-WAIVE-INT-YES-88 VALUE 'Y'. CL**2 00022 88 L101-WAIVE-INT-NO-88 VALUE 'N'. CL**2 00023 CL**2 00024 CL**2 00025 10 L101-FROM-MQTR-AREA. DTSIL101 00026 15 L101-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIL101 00027 CL**2 00028 15 L101-INT-AREA. CL**2 00029 20 L101-INT-CHARGE-IND PIC X(01). DTSIL101 00030 88 L101-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIL101 00031 88 L101-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIL101 00032 CL**2 00033 20 L101-INT-SPAN-AREA. DTSIL101 00034 25 L101-INT-CNT PIC S9(04) COMP. DTSIL101 00035 25 L101-INT-SPAN OCCURS 2 TIMES DTSIL101 00036 INDEXED BY L101-INT-IDX. DTSIL101 00037 30 L101-INT-START-DATE DTSIL101 00038 PIC S9(09) COMP-3. DTSIL101 00039 30 L101-INT-END-DATE DTSIL101 00040 PIC S9(09) COMP-3. DTSIL101 00041 30 L101-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIL101 00042 CL**2 00043 20 L101-WAIVE-INT-SPAN. CL**2 00044 25 L101-WAIVE-INT-START-DATE CL**2 00045 PIC S9(09) COMP-3. DTSIL101 00046 25 L101-WAIVE-INT-END-DATE CL**2 00047 PIC S9(09) COMP-3. DTSIL101 00048 CL**2 00049 CL**2 00050 10 L101-RETURN-AREA. DTSIL101 00051 15 L101-INT-CHARGE-CHNG PIC S9(09)V9(02) COMP-3. DTSIL101 00052 CL**2 00053 15 L101-INT-WAIVE-CHNG PIC S9(09)V9(02) COMP-3. CL**2 00054 CL**2 00055 15 L101-INT-PER-MONTH PIC S9(09)V9(02) COMP-3. CL**2 00056 CL**2 00057 10 FILLER PIC X(53). CL**2