03 AGENCY-DATE-TABEL                  REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  DATES-KEY                        PIC X(04).        00000003
                 10  XCURRENT-DATE                    PIC X(08).        00000004
                 10  CURRENT-MONTH-NAME               PIC X(09).        00000005
                 10  FILLERX                          PIC X(05).        00000006
                 10  CURRENT-YEAR-NAME                PIC X(04).        00000007
                 10  CURRENT-PERIOD                   PIC X(02).        00000008
                 10  FISCAL-YEAR                      PIC X(04).        00000009
                 10  FISCAL-YEAR-NAME                 PIC X(04).        00000010
                 10  PREVIOUS-DATE                    PIC X(08).        00000011
                 10  PREVIOUS-PERIOD                  PIC X(02).        00000020
                 10  PREVIOUS-FISCAL-YEAR             PIC X(03).        00000100