giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
Copybook/DTSIL101.cpy Normal file
View File

@ -0,0 +1,57 @@
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