parallel pl/sql

ALTER SESSION ENABLE PARALLEL DML;

CREATE OR REPLACE FUNCTION test_parallel_update (
	test_cur IN SYS_REFCURSOR
) 
RETURN test_num_arr
PARALLEL_ENABLE (PARTITION test_cur BY ANY)
PIPELINED
IS
	PRAGMA AUTONOMOUS_TRANSACTION;

	test_rec TEST%ROWTYPE;
	TYPE num_tab_t IS TABLE OF NUMBER(38);
	TYPE vc2_tab_t IS TABLE OF VARCHAR2(4000);

	pk_tab NUM_TAB_T;
	fk_tab NUM_TAB_T;
	fill_tab VC2_TAB_T;

	cnt INTEGER := 0;
BEGIN
	LOOP
		FETCH test_cur BULK COLLECT INTO pk_tab, fk_tab, fill_tab LIMIT 1000;
		EXIT WHEN pk_tab.COUNT() = 0;

		FORALL i IN pk_tab.FIRST .. pk_tab.LAST
			UPDATE test
			SET    fk = fk_tab(i)
			,      fill = fill_tab(i)
			WHERE  pk = pk_tab(i);

		cnt := cnt + pk_tab.COUNT;
	END LOOP;

        CLOSE test_cur;

	COMMIT;
	PIPE ROW(cnt);
	RETURN;
END;
/

SELECT sum(column_value)
FROM   TABLE(test_parallel_update(CURSOR(SELECT * FROM test7)));