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