CREATE OR REPLACE TYPE TFParamObj AS OBJECT
(
PType NUMBER( 1 ),
Param VARCHAR2( 4000 )
);
/

CREATE OR REPLACE TYPE TFParamType AS TABLE OF TFParamObj;
/

DECLARE
	TFParamsArray TFParamType := TFParamType();
	String$ VARCHAR2( 4000 ) := 'Increasingly, programmers are using collection types such as arrays, bags, lists, nested tables, sets, and trees in traditional database applications. To meet the growing demand, PL/SQL provides the datatypes TABLE and VARRAY, which allow you to declare index-by tables, nested tables and variable-size arrays. In this chapter, you learn how those types let you reference and manipulate collections of data as whole objects. You also learn how the datatype RECORD lets you treat related but dissimilar data as a logical unit.';
	StringLength$ NUMBER( 10 ) := LENGTH(String$);
	RNumber1$ NUMBER( 10 );
	RNumber2$ NUMBER( 10 );
	Param1$ NUMBER( 10 );
	MaxLoops$ NUMBER( 10 ) :=  500 ;
BEGIN
	FOR Index1$ IN  1 ..MaxLoops$ LOOP
		TFParamsArray.EXTEND; 
		RNumber1$ := DBMS_RANDOM.VALUE( 1 , StringLength$);
		RNumber2$ := DBMS_RANDOM.VALUE( 1 , StringLength$);
		TFParamsArray(TFParamsArray.COUNT) := TFParamObj(DBMS_RANDOM.VALUE( 1 , 9 ), SUBSTR(String$, RNumber1$, RNumber2$));
	END LOOP;
	 /*
	FOR Index1$ IN 1..9 LOOP 
		SELECT SUM(LENGTH(A.Param)) INTO Param1$ FROM TABLE (CAST(TFParamsArray AS TFParamType)) A WHERE A.PType=Index1$;
		DBMS_OUTPUT.PUT_LINE(Param1$);
	END LOOP;
	*/ 
	DBMS_OUTPUT.PUT_LINE(' --');
 
	 /*
	FOR Index1$ IN 1..9 LOOP
		Param1$ := 0;
		FOR Index2$ IN 1..MaxLoops$ LOOP
			IF TFParamsArray(index2$).PType = Index1$ THEN
				Param1$ := Param1$ + LENGTH(TFParamsArray(Index2$).Param);
			END IF;	
		END LOOP;
		DBMS_OUTPUT.PUT_LINE(Param1$);
	END LOOP;
	*/ 
END;
/

set timing on;