get_headings

CREATE OR REPLACE FUNCTION get_headings RETURN VARCHAR2 IS
  l_headings VARCHAR2(4000) := 'row';
BEGIN
  FOR c IN (SELECT DISTINCT col1 FROM test ORDER BY 1)
    LOOP
        l_headings := l_headings||':'||TO_CHAR(c.col1);
    END LOOP;
  RETURN l_headings;
END;