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).