declare
type cs_idtype is table
of emp.empno%type
index by binary_integer;
var_idtype cs_idtype;
i binary_integer :=0;
tcount binary_integer;
begin
dbms_output.enable;
for c_table in ( select empno from emp) loop
i := i + 1;
var_idtype(i) := c_table.empno;
end loop;
tcount := i;
for i in 1..tcount loop
dbms_output.put_line(' emp id ('|| to_char(i)||') ='||empno(i));
end loop;
end;
/