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

92
Copybook/DTSIMADJ.cpy Normal file
View File

@ -0,0 +1,92 @@
00001 ***** 05/20/13
00002 * DTSIMADJ
00003 * DTSIMADJ MASTER FILE 'ADJUSTMENT TRANSACTION' RECORD LV006
00004 * DEFINITION. DTSIMADJ
00005 * DTSIMADJ
00006 * DTSIMADJ
00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMADJ
00008 * 04/22/2004 ADDED MADJ-CMP-ESTB-ABSTIME, WHICH DTSIMADJ
00009 * LINKS THE ADJUSTMENT TRANSACTION TO DTSIMADJ
00010 * A COMPROMISE SETTLEMENT (MCMP) REC. GD DTSIMADJ
00011 * 08/14/2012 ADDED MADJ-FILING-SCHED-88. GD DTSIMADJ
00012 * DTSIMADJ
00013 ***** DTSIMADJ
00014 DTSIMADJ
00015 10 MADJ-KEY-AREA. DTSIMADJ
00016 15 MADJ-EMP-NO PIC S9(07) COMP-3. DTSIMADJ
00017 15 MADJ-REC-TYPE PIC S9(04) COMP. DTSIMADJ
00018 88 MADJ-ADJ-88 VALUE +45. DTSIMADJ
00019 15 MADJ-DOC-NO. DTSIMADJ
00020 20 MADJ-BATCH-NO PIC S9(05) COMP-3. DTSIMADJ
00021 20 MADJ-ITEM-NO PIC S9(03) COMP-3. DTSIMADJ
00022 15 MADJ-KEY-FILLER PIC X(05). DTSIMADJ
00023 DTSIMADJ
00024 10 MADJ-PURGE-DATE PIC S9(09) COMP-3. DTSIMADJ
00025 DTSIMADJ
00026 10 MADJ-DATA-AREA. DTSIMADJ
00027 15 MADJ-ADJ-TYPE PIC X(02). DTSIMADJ
00028 88 MADJ-CHRG-88 VALUE 'CH'. DTSIMADJ
00029 88 MADJ-WAIVE-88 VALUE 'WV'. DTSIMADJ
00030 88 MADJ-TOLER-88 VALUE 'TL'. DTSIMADJ
00031 88 MADJ-AUTO-88 VALUE 'CA'. DTSIMADJ
00032 88 MADJ-MANUAL-88 VALUE 'CM'. DTSIMADJ
00033 88 MADJ-WAGE-RPT-88 VALUE 'WG'. DTSIMADJ
00034 88 MADJ-DUE-DATE-88 VALUE 'QD'. DTSIMADJ
00035 88 MADJ-WAIVE-DATE-88 VALUE 'WD'. DTSIMADJ
00036 88 MADJ-INT-DATE-88 VALUE 'ID'. DTSIMADJ
00037 88 MADJ-WRITE-OFF-88 VALUE 'WO'. DTSIMADJ
00038 88 MADJ-WRITE-OFF-REV-88 VALUE 'WR'. DTSIMADJ
00039 88 MADJ-FILING-SCHED-88 VALUE 'FS'. DTSIMADJ
00040 DTSIMADJ
00041 15 MADJ-AMT PIC S9(09)V9(02) COMP-3. DTSIMADJ
00042 DTSIMADJ
00043 15 MADJ-RECEIVED-DATE PIC S9(09) COMP-3. DTSIMADJ
00044 DTSIMADJ
00045 15 MADJ-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIMADJ
00046 DTSIMADJ
00047 15 MADJ-APPLIC-YRQ PIC S9(05) COMP-3. DTSIMADJ
00048 DTSIMADJ
00049 15 MADJ-APPLIC-IND PIC X(02). DTSIMADJ
00050 88 MADJ-APPLIC-UI-88 VALUE 'UI'. DTSIMADJ
00051 88 MADJ-APPLIC-SUR-88 VALUE 'SU'. DTSIMADJ
00052 88 MADJ-APPLIC-INT-88 VALUE 'I '. DTSIMADJ
00053 88 MADJ-APPLIC-LATE-PEN-88 VALUE 'LP'. DTSIMADJ
00054 88 MADJ-APPLIC-NSF-PEN-88 VALUE 'NP'. DTSIMADJ
00055 88 MADJ-APPLIC-MISC-PEN-88 VALUE 'MP'. DTSIMADJ
00056 88 MADJ-APPLIC-CREDIT-88 VALUE 'CR'. DTSIMADJ
00057 88 MADJ-APPLIC-LP-INT-88 VALUE 'PI'. DTSIMADJ
00058 DTSIMADJ
00059 15 MADJ-APPLIC-DOC-NO. DTSIMADJ
00060 20 MADJ-APPLIC-BATCH-NO DTSIMADJ
00061 PIC S9(05) COMP-3. DTSIMADJ
00062 20 MADJ-APPLIC-ITEM-NO PIC S9(03) COMP-3. DTSIMADJ
00063 DTSIMADJ
00064 15 MADJ-DATE-1 PIC S9(09) COMP-3. DTSIMADJ
00065 DTSIMADJ
00066 15 MADJ-DATE-2 PIC S9(09) COMP-3. DTSIMADJ
00067 DTSIMADJ
00068 15 MADJ-INT-SPAN-IND PIC X(01). DTSIMADJ
00069 88 MADJ-INT-SPAN-1-88 VALUE '1'. DTSIMADJ
00070 88 MADJ-INT-SPAN-2-88 VALUE '2'. DTSIMADJ
00071 DTSIMADJ
00072 15 MADJ-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMADJ
00073 DTSIMADJ
00074 15 MADJ-RESPONSIBLE-ACTIVITY DTSIMADJ
00075 PIC X(03). DTSIMADJ
00076 DTSIMADJ
00077 15 MADJ-RESPONSIBLE-OP-ID PIC X(08). DTSIMADJ
00078 DTSIMADJ
00079 15 MADJ-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMADJ
00080 DTSIMADJ
00081 DTSIMADJ
00082 15 FILLER PIC X(21). DTSIMADJ
00083 DTSIMADJ
00084 DTSIMADJ
00085 15 MADJ-CONVERTED-IND PIC X(01). DTSIMADJ
00086 88 MADJ-CONVERTED-88 VALUE 'Y'. DTSIMADJ
00087 88 MADJ-NOT-CONVERTED-88 VALUE 'N'. DTSIMADJ
00088 DTSIMADJ
00089 DTSIMADJ
00090 15 MADJ-ESTB-DATE PIC S9(09) COMP-3. DTSIMADJ
00091 DTSIMADJ
00092 15 MADJ-CHNG-DATE PIC S9(09) COMP-3. DTSIMADJ