       IDENTIFICATION DIVISION.
       PROGRAM-ID. Example.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  easter-date            pic 9(8).
       01  filler redefines easter-date.
           05 easter-year         pic 9(4).
           05 easter-month        pic 9(2).
           05 easter-day          pic 9(2).
       PROCEDURE DIVISION.
      * ----------------------------------------------------------------
           MOVE 2026 TO easter-year.
           MOVE 07 TO easter-month.
           MOVE 20 TO easter-day.
           DISPLAY easter-date.
          compute easter-date = function date-of-integer(
          function integer-of-date(easter-date) + 14)
          DISPLAY easter-date.
           STOP RUN.
