DECLARE
l_tablen BINARY_INTEGER;
l_tab DBMS_UTILITY.uncl_array;
CURSOR cur
IS
SELECT 'word1, word2, word3, word4, word5, word6' val FROM dual;
rec cur%rowtype;
BEGIN
OPEN cur;
LOOP
FETCH cur INTO rec;
EXIT
WHEN cur%notfound;
DBMS_UTILITY.comma_to_table (
list => rec.val, tablen => l_tablen, tab => l_tab);
FOR i IN 1 .. l_tablen
LOOP
DBMS_OUTPUT.put_line(i || ' : ' || trim(l_tab(i)));
END LOOP;
END LOOP;
CLOSE cur;
END;
l_tablen BINARY_INTEGER;
l_tab DBMS_UTILITY.uncl_array;
CURSOR cur
IS
SELECT 'word1, word2, word3, word4, word5, word6' val FROM dual;
rec cur%rowtype;
BEGIN
OPEN cur;
LOOP
FETCH cur INTO rec;
EXIT
WHEN cur%notfound;
DBMS_UTILITY.comma_to_table (
list => rec.val, tablen => l_tablen, tab => l_tab);
FOR i IN 1 .. l_tablen
LOOP
DBMS_OUTPUT.put_line(i || ' : ' || trim(l_tab(i)));
END LOOP;
END LOOP;
CLOSE cur;
END;