00001 *****                                                             08/28/98
00002 *                                                                 DTSIMLOG
00003 *    DTSIMLOG  MASTER FILE 'ON-LINE MODIFICATION LOG' RECORD         LV002
00004 *              DEFINITION.                                        DTSIMLOG
00005 *                                                                    CL**2
00006 *                                                                    CL**2
00007 *              08/28/1998  CREATED FOR DC.  EHH                      CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIMLOG
00010                                                                      CL**2
00011          10  MLOG-KEY-AREA.                                          CL**2
00012              15  MLOG-EMP-NO             PIC S9(07)       COMP-3.    CL**2
00013              15  MLOG-REC-TYPE           PIC S9(04)       COMP.      CL**2
00014                  88  MLOG-LOG-88             VALUE +52.              CL**2
00015              15  MLOG-ESTB-ABSTIME       PIC S9(15)       COMP-3.    CL**2
00016              15  MLOG-KEY-FILLER         PIC  X(02).                 CL**2
00017                                                                      CL**2
00018                                                                      CL**2
00019          10  MLOG-PURGE-DATE             PIC S9(09)       COMP-3.    CL**2
00020                                                                      CL**2
00021                                                                      CL**2
00022          10  MLOG-DATA-AREA.                                         CL**2
00023              15  MLOG-REC-OCC-ID         PIC  X(20).                 CL**2
00024                                                                      CL**2
00025              15  MLOG-DATA-ELEMENT-NAME.                             CL**2
00026                  20  MLOG-DE-REC-TYPE    PIC  X(04).                 CL**2
00027                  20  FILLER              PIC  X(26).                 CL**2
00028                                                                      CL**2
00029              15  MLOG-PRE-MODIFICATION-VALUE                         CL**2
00030                                          PIC  X(40).                 CL**2
00031                                                                      CL**2
00032              15  MLOG-POST-MODIFICATION-VALUE                        CL**2
00033                                          PIC  X(40).                 CL**2
00034                                                                      CL**2
00035              15  MLOG-OP-ID              PIC  X(08).                 CL**2
00036                                                                      CL**2
00037                                                                      CL**2
00038              15  FILLER                  PIC  X(32).                 CL**2
00039                                                                      CL**2
00040                                                                      CL**2
00041              15  MLOG-CONVERTED-IND      PIC  X(01).                 CL**2
00042                  88  MLOG-CONVERTED-88       VALUE 'Y'.              CL**2
00043                  88  MLOG-NOT-CONVERTED-88   VALUE 'N'.              CL**2
00044                                                                      CL**2
00045                                                                      CL**2
00046              15  MLOG-ESTB-DATE          PIC S9(09)       COMP-3.    CL**2