create procedure lib_date_in_leap_year (
                     ofdate date)
                   returns (
                     is_leap_year smallint)
  as
    begin
      /*
        check date for leap year
          is_leap_year : 0 = false
                         1 = true
      */

      if (ofdate is null)
        then
          is_leap_year = null;
        else
          if (  extract( month from (  ofdate
                                     - extract( yearday from ofdate)
                                     + 59))
              = 2)
            then
              is_leap_year = 1;
            else
              is_leap_year = 0;

      suspend;
    end