03 CALENDAR-DATE-TABLE                REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  CLDT-KEY-FIELDS.                                   00000003
                  15  DATE-OF-RECORD.                                   00000004
                   20  DATE-OF-RECORD-YEAR.                             00000005
                    25  DATE-OF-RECORD-YEAR-CC        PIC X(02).        00000006
                    25  DATE-OF-RECORD-YEAR-YY        PIC X(02).        00000007
                   20  DATE-OF-RECORD-MONTH           PIC X(02).        00000008
                   20  DATE-OF-RECORD-DAY             PIC X(02).        00000009
                   20 DATE-OF-RECORD-CC               PIC X(02).        00000010
                   20 DATE-OF-RECORD-YYMMDD           PIC X(06).        00000011
                 10  CLDT-RESULT-FIELDS.                                00000012
                  15  FISC-MONTH                      PIC X(02).        00000013
                  15  FISC-YEAR.                                        00000014
                      20  FISC-YEAR-CC                PIC X(02).        00000015
                      20  FISC-YEAR-YY                PIC X(02).        00000020
                  15  WKND-HDAY-IND                   PIC X(01).        00000100