CREATE PROCEDURE GET_TREE (
    IN_PARENT INTEGER,
    FLAG INTEGER)
RETURNS (
    ID INTEGER,
    ID_PARENT INTEGER,
    NAME VARCHAR( 63 ),
    KID_COUNT INTEGER)
AS
DECLARE VARIABLE ID_TMP INTEGER;
BEGIN
  IF(:FLAG =  0 ) THEN BEGIN
       SELECT D.ID, D.ID_PARENT, D.NAME, D.KID_COUNT
       FROM DICTIONARY D
       WHERE (D.ID = :IN_PARENT)
       INTO :ID, :ID_PARENT, :NAME, KID_COUNT;
       SUSPEND;
   END

  FOR SELECT D.ID, D.ID_PARENT, D.NAME, D.KID_COUNT
        FROM DICTIONARY D
        WHERE (D.ID <> D.ID_PARENT) AND (D.ID_PARENT = :IN_PARENT)
        INTO :ID_TMP, :ID_PARENT, :NAME, :KID_COUNT
         DO BEGIN
           ID = :ID_TMP; 
           SUSPEND;
              FOR  SELECT G.ID, G.ID_PARENT, G.NAME, G.KID_COUNT
                     FROM GET_TREE (:ID_TMP,  1 ) G
                     INTO :ID, :ID_PARENT, :NAME, :KID_COUNT
                       DO
                         SUSPEND;
              END
END