-- table_type_proce1.sql
declare
type cs_idtype2 is table of emp.empno%type
index by binary_integer;
cs_id cs_idtype2; tcount binary_integer;
i binary_integer := 0;
procedure get_csidtype2(Num_Rows OUT BINARY_INTEGER,
eid OUT cs_idtype2) is
-- procedure body starts
i binary_integer :=0;
begin
-- dbms_output.enable;
for c_table in ( select empno from emp where empno >7000) loop
i := i + 1;
eid(i) := c_table.empno;
end loop;
Num_Rows := i;
end get_csidtype2;
--main ends /call procedure
begin
dbms_output.enable;
get_csidtype2(tcount, cs_id);
for i in 1..tcount loop
exit when cs_id(i)=NULL;
dbms_output.put_line(' emp id ('|| to_char(i)||') ='||cs_id(i));
end loop;
end;
/