DECLARE
v_N PLS_INTEGER := 1000;
v_str VARCHAR2(4000) := createNumbers(v_N => v_N);
TYPE tab_number IS TABLE OF NUMBER(5);
t_str tab_number := tab_number();
BEGIN
WHILE v_str IS NOT NULL
LOOP
t_str.EXTEND;
t_str(t_str.COUNT) := SUBSTR(v_str, 1, INSTR(v_str, ',', 1) - 1);
v_str := SUBSTR(v_str, INSTR(v_str, ',', 1) + 1);
END LOOP;
FOR i IN t_str.FIRST..t_str.LAST
LOOP
dbms_output.put_line(t_str(i));
END LOOP;
t_str.DELETE;
END;