00001 *****                                                             03/26/12
00002 *                                                                 DTSIM715
00003 *    DTSIM715    TPS STATUS RECORD                                   LV001
00004 *                                                                 DTSIM715
00005 *    COMMON RECORD FOR TPS STATUS DATA GENERATED IN DTSBE770      DTSIM715
00006 *    AND USED TO BUILD TPS STATUS REPORTS IN DTSBE715.            DTSIM715
00007 *                                                                 DTSIM715
00008 *                                                                 DTSIM715
00009 *****                                                             DTSIM715
00010                                                                   DTSIM715
00011          10  M715-SORT-KEY-AREA.                                  DTSIM715
00012              15  M715-TYPE               PIC  X(01).              DTSIM715
00013                  88  M715-TYPE-STATUS-88  VALUE '3'.              DTSIM715
00014              15  M715-EMP-NO             PIC S9(07) COMP-3.       DTSIM715
00015                                                                   DTSIM715
00016          10  M715-DATA-AREA.                                      DTSIM715
00017              15  M715-EMP-NAME           PIC  X(40).              DTSIM715
00018              10  M715-PROCESS-DT         PIC S9(09)  COMP-3.      DTSIM715
00019              10  M715-EFF-DT             PIC S9(09)  COMP-3.      DTSIM715
00020              10  M715-DETERM-TYPE        PIC  X(01).              DTSIM715
00021                  88  M715-DETERM-NEW-88      VALUE '1'.           DTSIM715
00022                  88  M715-DETERM-SUCC-88     VALUE '2'.           DTSIM715
00023                  88  M715-DETERM-INACT-88    VALUE '3'.           DTSIM715