--===========================================================================
-- Copywright 2002, joel crainshaw & chet west
--===========================================================================
-- DESCRIPTION
--	recursive function to strip extra spaces in a string
--===========================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- -------------------------------------------
-- joel        03/18/2002 Initial Creation
--===========================================================================
CREATE OR REPLACE FUNCTION single_space (
   p_data   VARCHAR2
)
   RETURN VARCHAR2 IS
   v_data   VARCHAR2 (2000) := REPLACE (LTRIM (RTRIM (p_data)), '  ', ' ');
--
BEGIN
   IF INSTR (v_data, '  ') > 0 THEN
      RETURN single_space (v_data);
   ELSE
      RETURN (v_data);
   END IF;
END single_space;
/