***************************************************************
*                                                             *
*    TABLE: APPROVAL-LOG-TABLE                                *
*                                                             *
*      KEY: APRVLOG-BATCH-ID                                  *
*           APRVLOG-DOC-ID                                    *
*           APRVLOG-RUN-DATE                                  *
*           APRVLOG-RUN-TIME                                  *
*           APRVLOG-USERID                                    *
*           APRVLOG-TERMINAL-ID                               *
*                                                             *
*                                                             *
***************************************************************
  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  APRVLOG-TABLE               REDEFINES MTIOAREA.
         05  APRVLOG-BATCH-ID.                          
             07  APRVLOG-BATCH-TYPE          PIC X(04). 
             07  APRVLOG-BATCH-ORG1          PIC X(04). 
             07  APRVLOG-BATCH-NUMBER        PIC X(06). 
         05  APRVLOG-DOC-ID.                            
             07  APRVLOG-DOC-TYPE            PIC X(04). 
             07  APRVLOG-DOC-ORG1            PIC X(04). 
             07  APRVLOG-DOC-NUMBER          PIC X(12). 
         05  APRVLOG-RUN-DATE.                          
             07  APRVLOG-RUN-CENTURY         PIC X(02). 
             07  APRVLOG-RUN-YEAR            PIC X(02). 
             07  APRVLOG-RUN-DASH1           PIC X(01). 
             07  APRVLOG-RUN-MONTH           PIC X(02). 
             07  APRVLOG-RUN-DASH2           PIC X(01). 
             07  APRVLOG-RUN-DAY             PIC X(02). 
         05  APRVLOG-RUN-TIME.                          
             07  APRVLOG-RUN-HOUR            PIC X(02). 
             07  APRVLOG-RUN-DOT1            PIC X(01).
             07  APRVLOG-RUN-MIN             PIC X(02). 
             07  APRVLOG-RUN-DOT2            PIC X(01). 
             07  APRVLOG-RUN-SEC             PIC X(02). 
         05  APRVLOG-USERID.                            
             07  APRVLOG-USERID-ID           PIC X(04). 
             07  APRVLOG-USERID-PASS         PIC X(04). 
         05  APRVLOG-TERMINAL-ID             PIC X(08). 
         05  APRVLOG-BEFORE-IMAGE-APPROVALS.            
             07  APRVLOG-BI-APPROVALS        PIC X(05). 
         05  APRVLOG-USERS-APPROVALS.                   
             07  APRVLOG-USERS-APRVLS        PIC X(05). 
         05  APRVLOG-AFTER-IMAGE-APPROVALS.             
             07  APRVLOG-AI-APPROVALS        PIC X(05). 
         05  APRVLOG-XCURRENT-DATE.                     
             07  APRVLOG-XCUR-DATE.                     
                 09  APRVLOG-XCUR-CENTURY    PIC X(02). 
                 09  APRVLOG-XCUR-YEAR       PIC X(02). 
                 09  APRVLOG-XCUR-DASH1      PIC X(01). 
                 09  APRVLOG-XCUR-MONTH      PIC X(02).
                 09  APRVLOG-XCUR-DASH2      PIC X(01). 
                 09  APRVLOG-XCUR-DAY        PIC X(02). 
         05  APRVLOG-SYS-USERID              PIC X(08). 
         05  APRVLOG-FILLER                  PIC X(09).
	 03  FILLER                           PIC X(1890).