00001 *****                                                             04/27/06
00002 *                                                                 DTSIT026
00003 *    DTSIT026    ESTABLISH ADJUSTMENT TRANSACTION(S)                 LV009
00004 *                TRANSACTION RECORD.                              DTSIT026
00005 *                                                                 DTSIT026
00006 *                                                                 DTSIT026
00007 *                09/23/1998  REVIEWED AND MODIFIED FOR DC.  EHH   DTSIT026
00008 *                                                                 DTSIT026
00009 *                10/08/1999  ADDED T026-TOLERANCE.          EHH   DTSIT026
00010 *                                                                 DTSIT026
00011 *****                                                             DTSIT026
00012                                                                   DTSIT026
00013          10  T026-LENGTH         PIC S9(04)  COMP    VALUE +128.  DTSIT026
00014                                                                   DTSIT026
00015          10  T026-COMMON-AREA.                                    DTSIT026
00016              15  T026-REC-TYPE           PIC  X(03)  VALUE '026'. DTSIT026
00017              15  T026-EMP-NO             PIC S9(07)       COMP-3. DTSIT026
00018              15  T026-ORIGIN             PIC  X(10).              DTSIT026
00019              15  FILLER REDEFINES T026-ORIGIN.                    DTSIT026
00020                  20  T026-OP-ID          PIC  X(08).              DTSIT026
00021                  20  T026-SCR-ID         PIC  X(02).              DTSIT026
00022              15  T026-SYS-DATE           PIC S9(09)       COMP-3. DTSIT026
00023              15  T026-SYS-TIME           PIC S9(07)       COMP-3. DTSIT026
00024                                                                   DTSIT026
00025          10  T026-DATA-AREA.                                      DTSIT026
00026              15  T026-TRN-CD             PIC  X(02).              DTSIT026
00027                  88  T026-REIMB-CHG          VALUE '01'.          DTSIT026
00028                  88  T026-LATE-PEN-CHG       VALUE '02'.          DTSIT026
00029                  88  T026-LATE-PEN-WAIVE     VALUE '03'.          DTSIT026
00030                  88  T026-TOLERANCE          VALUE '04'.          DTSIT026
00031                  88  T026-ADM-ASSESSMNT      VALUE '05'.          DTSIT026
00032                                                                   DTSIT026
00033              15  T026-NAME-CHECK         PIC  X(04).              DTSIT026
00034                                                                   DTSIT026
00035              15  T026-AMT                PIC S9(09)V9(02) COMP-3. DTSIT026
00036                                                                   DTSIT026
00037              15  T026-RECEIVED-DATE      PIC S9(09)       COMP-3. DTSIT026
00038                                                                   DTSIT026
00039              15  T026-APPLIC-YRQ         PIC S9(05)       COMP-3. DTSIT026
00040                                                                   DTSIT026
00041              15  T026-APPLIC-IND         PIC  X(02).              DTSIT026
00042                                                                   DTSIT026
00043              15  T026-APPLIC-DOC-NO.                              DTSIT026
00044                  20  T026-APPLIC-BATCH-NO                         DTSIT026
00045                                          PIC S9(05)       COMP-3. DTSIT026
00046                  20  T026-APPLIC-ITEM-NO                          DTSIT026
00047                                          PIC S9(03)       COMP-3. DTSIT026
00048                                                                   DTSIT026
00049              15  T026-DATE-1             PIC S9(09)       COMP-3. DTSIT026
00050                                                                   DTSIT026
00051              15  T026-DATE-2             PIC S9(09)       COMP-3. DTSIT026
00052                                                                   DTSIT026
00053              15  T026-INT-SPAN-IND       PIC  X(01).              DTSIT026
00054                                                                   DTSIT026
00055              15  T026-INT-RATE           PIC S9(01)V9(04) COMP-3. DTSIT026
00056                  88  T026-NO-INT-RATE-88        VALUE -9.9999.    DTSIT026
00057                                                                   DTSIT026
00058              15  T026-RESPONSIBLE-ACTIVITY                        DTSIT026
00059                                          PIC  X(03).              DTSIT026
00060                                                                   DTSIT026
00061              15  T026-RESPONSIBLE-OP-ID  PIC  X(08).              DTSIT026
00062                                                                   DTSIT026
00063              15  FILLER                  PIC  X(48).              DTSIT026