01 MTI-LOG.                                                      00000001
          03 LOGREC-PREFIX.                                             00000002
              05 LOGREC-RECLEN                        PIC S9(04) COMP.  00000003
              05 LOGREC-TABNUM                        PIC X(4).         00000004
              05 LOGREC-ACTION                        PIC X.            00000005
                 88 LOGREC-ACTION-ADD                 VALUE 'A'.        00000006
                 88 LOGREC-ACTION-CHANGE              VALUE 'C'.        00000007
                 88 LOGREC-ACTION-DELETE              VALUE 'D'.        00000008
              05 LOGREC-DATE.                                           00000009
                 07 LOGREC-CC                         PIC XX.           00000010
                 07 LOGREC-YY                         PIC XX.           00000011
                 07 LOGREC-MM                         PIC XX.           00000012
                 07 LOGREC-DD                         PIC XX.           00000013
              05 LOGREC-TIME.                                           00000014
                 07 LOGREC-TIME-HH                    PIC XX.           00000015
                 07 LOGREC-TIME-MM                    PIC XX.           00000016
                 07 LOGREC-TIME-SS                    PIC XX.           00000017
              05 LOGREC-TABID                         PIC X(4).         00000018
              05 LOGREC-TYPE                          PIC X.            00000019
          03 AGENCY-DATE-TABEL                  REDEFINES MTIOAREA.     00000020
              05  DOCD-IOAREA.                                          00000021
                 10  DATES-KEY                        PIC X(04).        00000022
                 10  XCURRENT-DATE                    PIC X(08).        00000023
                 10  CURRENT-MONTH-NAME               PIC X(09).        00000024
                 10  FILLERX                          PIC X(05).        00000025
                 10  CURRENT-YEAR-NAME                PIC X(04).        00000026
                 10  CURRENT-PERIOD                   PIC X(02).        00000027
                 10  FISCAL-YEAR                      PIC X(04).        00000030
                 10  FISCAL-YEAR-NAME                 PIC X(04).        00000100
                 10  PREVIOUS-DATE                    PIC X(08).        00000200
                 10  PREVIOUS-PERIOD                  PIC X(02).        00000300
                 10  PREVIOUS-FISCAL-YEAR             PIC X(03).        00000400
          03  FILLER                                  PIC X(1947).      00000500