[Zope-Checkins] CVS: Products/DCOracle2/test - procdef.sql:1.11

[Matthew T. Kromer]

Update of /cvs-repository/Products/DCOracle2/test
In directory cvs.zope.org:/tmp/cvs-serv6428

Modified Files:
	procdef.sql 
Log Message:
Modified to include the table input function


=== Products/DCOracle2/test/procdef.sql 1.10 => 1.11 ===
 
-
 create or replace procedure FIND (
 		EMPID in integer,
 		EMPNAME out varchar2 
@@ -21,6 +20,7 @@
 
 create or replace package EMP_ACTIONS as
 	type ref_cursor is ref cursor;
+	type string_tab is varray(20) of varchar2;
 
 	function FIND (
 		EMPID integer
@@ -61,6 +61,10 @@
 		NAME in varchar2
 	) return integer;
 
+	procedure TAKETAB (
+		IDS in string_tab
+	);
+
 	procedure NUM(
 		VALUE in out number
 	);
@@ -147,6 +151,21 @@
 	begin
 		NULL;
 	end NUM;
+
+	procedure TAKETAB (
+		IDS in string_tab
+	) is
+
+	id varchar2(20);
+
+	begin	
+		id := IDS.FIRST;
+		loop
+			exit when id is NULL;
+			id := IDS.NEXT(id);
+		end LOOP;
+
+	end TAKETAB;
 
 end EMP_ACTIONS;
 /