dokuwiki

PROCEDURE P_INDEXBY_SKCALAR
  (v_last_name in varchar)
  IS
  TYPE emp_name_table_type IS table of
    employees.last_name%type
    index by binary_integer;
  emp_name_table emp_name_table_type;
  v_ind number(30);
BEGIN
   select employee_id
   into v_ind
   from employees
   where lower(v_last_name) = lower(last_name);

   emp_name_table(v_ind) := v_last_name;
   dbms_output.put_line(v_ind||', '||emp_name_table(v_ind)||', '||emp_name_table.count||' Obj.');
END;