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