00001 *****                                                             09/23/98
00002 *                                                                 DTSIT021
00003 *    DTSIT021    FIELD SUPPORT DOWNLOAD TRANSACTION RECORD.          LV002
00004 *                                                                 DTSIT021
00005 *                                                                    CL**2
00006 *                09/23/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIT021
00009                                                                      CL**2
00010          10  T021-LENGTH         PIC S9(04)  COMP.                   CL**2
00011                                                                      CL**2
00012          10  T021-COMMON-AREA.                                    DTSIT021
00013 *            15  T021-REC-TYPE           PIC  X(03)  VALUE '021'. DTSIT021
RCODE              15  T021-REC-TYPE           PIC  X(03).              DTSIT021
00014              15  T021-EMP-NO             PIC S9(07)       COMP-3. DTSIT021
00015              15  T021-ORIGIN             PIC  X(10).              DTSIT021
00016              15  FILLER REDEFINES T021-ORIGIN.                    DTSIT021
00017                  20  T021-OP-ID          PIC  X(08).              DTSIT021
00018                  20  T021-SCR-ID         PIC  X(02).              DTSIT021
00019              15  T021-SYS-DATE           PIC S9(09)       COMP-3. DTSIT021
00020              15  T021-SYS-TIME           PIC S9(07)       COMP-3. DTSIT021
00021                                                                      CL**2
00022          10  T021-DATA-AREA.                                      DTSIT021
00023              15  T021-TRN-CD             PIC  X(02).              DTSIT021
00024                  88  T021-DOWNLOAD-TAX       VALUE '01'.          DTSIT021
00025                  88  T021-DOWNLOAD-WAGE      VALUE '02'.          DTSIT021
00026                                                                      CL**2
00027              15  T021-ASSIGN-NO          PIC S9(09)       COMP-3. DTSIT021
00028                                                                      CL**2
00029              15  FILLER                  PIC  X(29).              DTSIT021