--===========================================================================
-- Copywright 2002, joel crainshaw & chet west
--===========================================================================
-- DESCRIPTION
--	super simple function to count incidence of a specific char string
--===========================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- -------------------------------------------
-- joel        03/18/2002 Initial Creation
--===========================================================================

CREATE OR REPLACE FUNCTION count_char (
   p_data   VARCHAR2
  ,p_char   VARCHAR2 DEFAULT ' '
)
   RETURN VARCHAR2 IS
   v_count   NUMBER := 0;
--
BEGIN
   FOR i IN 1 .. LENGTH (p_data) LOOP
      IF substr (p_data, i, length(p_char)) = p_char THEN
         v_count := v_count + 1;
      END IF;
   END LOOP;

   RETURN v_count;
END;
/