***************************************************************
*                                                             *
*    TABLE: OVERRIDE-LOG-TABLE                                * 
*                                                             * 
*      KEY: OVRDLOG-BATCH-ID                                  * 
*           OVRDLOG-DOC-ID                                    * 
*           OVRDLOG-ERROR                                     * 
*           OVRDLOG-LEVEL                                     *
*                                                             *
*                                                             *
***************************************************************
  01 MTI-LOG.
     03 LOGREC-PREFIX.
         05 LOGREC-RECLEN                    PIC S9(04) COMP.
         05 LOGREC-TABNUM                    PIC X(4).
         05 LOGREC-ACTION                    PIC X.
             88 LOGREC-ACTION-ADD             VALUE 'A'.
             88 LOGREC-ACTION-CHANGE          VALUE 'C'.
             88 LOGREC-ACTION-DELETE          VALUE 'D'.
         05 LOGREC-DATE.
             07 LOGREC-CC                    PIC XX.
             07 LOGREC-YY                    PIC XX.
             07 LOGREC-MM                    PIC XX.
             07 LOGREC-DD                    PIC XX.
         05 LOGREC-TIME.
             07 LOGREC-TIME-HH               PIC XX.
             07 LOGREC-TIME-MM               PIC XX.
             07 LOGREC-TIME-SS               PIC XX.
         05 LOGREC-TABID                     PIC X(4).
         05 LOGREC-TYPE                      PIC X.
     03  OVRDLOG-TABLE               REDEFINES MTIOAREA.
         05  OVRDLOG-BATCH-ID.                          
             07  OVRDLOG-BATCH-TYPE          PIC X(04). 
             07  OVRDLOG-BATCH-ORG1          PIC X(04). 
             07  OVRDLOG-BATCH-NUMBER        PIC X(06). 
         05  OVRDLOG-DOC-ID.                            
             07  OVRDLOG-DOC-TYPE            PIC X(04). 
             07  OVRDLOG-DOC-ORG1            PIC X(04). 
             07  OVRDLOG-DOC-NUMBER          PIC X(12). 
         05  OVRDLOG-ERROR                   PIC X(07). 
         05  OVRDLOG-LEVEL                   PIC X(01). 
         05  OVRDLOG-USERID.                            
             07  OVRDLOG-USERID-ID           PIC X(04). 
             07  OVRDLOG-USERID-PASS         PIC X(04). 
         05  OVRDLOG-TERMINAL-ID             PIC X(08). 
         05  OVRDLOG-SYS-USERID              PIC X(08). 
         05  OVRDLOG-EDIT-PROCESS            PIC X(08). 
         05  OVRDLOG-RUN-DATE.                          
             07  OVRDLOG-RUN-CENTURY         PIC X(02).
             07  OVRDLOG-RUN-YEAR            PIC X(02). 
             07  OVRDLOG-RUN-DASH1           PIC X(01). 
             07  OVRDLOG-RUN-MONTH           PIC X(02). 
             07  OVRDLOG-RUN-DASH2           PIC X(01). 
             07  OVRDLOG-RUN-DAY             PIC X(02). 
         05  OVRDLOG-RUN-TIME.                          
             07  OVRDLOG-RUN-HOUR            PIC X(02). 
             07  OVRDLOG-RUN-DOT1            PIC X(01). 
             07  OVRDLOG-RUN-MIN             PIC X(02). 
             07  OVRDLOG-RUN-DOT2            PIC X(01). 
             07  OVRDLOG-RUN-SEC             PIC X(02). 
         05  OVRDLOG-COUNTER                 PIC X(05). 
         05  OVRDLOG-FILLER                  PIC X(03).
     03  FILLER                              PIC X(1900).