CREATE PROCEDURE kalendar(p_date DATE)
RETURNING DATE;
DEFINE fDate, lDate, v_Rez Date;
DEFINE v_kalendar_Tbl SET (DATE NOT NULL);

SELECT MDY(MONTH(extend(p_date, year to month) -  1  units month),  1 , YEAR(extend(p_date, year to month)-  1  units month)) +  1  UNITS MONTH,
        MDY(MONTH(p_date),  1 , YEAR(p_date)) +  1  UNITS MONTH -  1  UNITS DAY 
        INTO fDate, ldate
 FROM table(set{ 1 });

 WHILE fDate < lDate
      SELECT DATE(MDY(MONTH(fDate), DAY(fDate), YEAR(fDate))) INTO v_kalendar_Tbl
      FROM table(set{ 1 });
      LET fdate= fdate +  1  UNITS DAY;
 END WHILE;  
 
 FOREACH cur FOR SELECT * INTO v_Rez 
                 FROM v_kalendar_Tbl
    RETURN v_Rez WITH RESUME;
 END FOREACH;

END PROCEDURE;