58 lines
4.5 KiB
COBOL
58 lines
4.5 KiB
COBOL
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
|