00001 *****                                                             10/09/98
00002 *                                                                 DTSIT051
00003 *    DTSIT051    ACCOUNTING TRANSACTION TRANSPORTER RECORD.          LV003
00004 *                                                                 DTSIT051
00005 *                                                                    CL**2
00006 *                09/23/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIT051
00009                                                                      CL**2
00010          10  T051-LENGTH         PIC S9(04)  COMP.                   CL**2
00011                                                                      CL**2
00012          10  T051-COMMON-AREA.                                    DTSIT051
00013 *            15  T051-REC-TYPE           PIC  X(03)  VALUE '051'. DTSIT051
RCODE              15  T051-REC-TYPE           PIC  X(03).              DTSIT051
00014              15  T051-EMP-NO             PIC S9(07)       COMP-3. DTSIT051
00015              15  T051-ORIGIN             PIC  X(10).              DTSIT051
00016                  88  T051-ORIGIN-TRANSFER-88    VALUE 'TRANSFER'.    CL**3
00017              15  FILLER REDEFINES T051-ORIGIN.                    DTSIT051
00018                  20  T051-OP-ID          PIC  X(08).              DTSIT051
00019                  20  T051-SCR-ID         PIC  X(02).              DTSIT051
00020              15  T051-SYS-DATE           PIC S9(09)       COMP-3. DTSIT051
00021              15  T051-SYS-TIME           PIC S9(07)       COMP-3. DTSIT051
00022                                                                      CL**2
00023          10  T051-DATA-AREA              PIC  X(128).             DTSIT051