How can i handle exceptions in bulck collect?

Question

Hi All,
in case of any exception will raise i just print the emp_no prefix with sqlerrm.but i got sqlerrm only ,now the emp_no is blank.how can i print my emp_no.
SET serveroutput ON;
DECLARE
TYPE employee_tab IS TABLE OF emp_ins%ROWTYPE
INDEX BY BINARY_INTEGER;
CURSOR c1 IS SELECT * FROM emp_ins ORDER BY emp_no;
Employee_data      employee_tab;
lv_n_emp_no NUMBER;
lv_n_count NUMBER:=1;
BEGIN
     IF c1%isopen THEN
     CLOSE C1;
     END IF;     
     OPEN C1;
     FETCH C1 BULK COLLECT INTO Employee_data;
     CLOSE C1;     
     FORALL i IN Employee_data.FIRST..Employee_data.LAST     
     INSERT INTO emp_test VALUES Employee_data(i);          
     lv_n_emp_no:=Employee_data(lv_n_count).emp_no;
lv_n_count:= NVL (lv_n_count, 1) + 1;
     COMMIT;     
     Employee_data.DELETE;     
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(lv_n_emp_no||','||SQLERRM);
END;
Regards
Gopinath M

Answer 1

SQL> create table emp_test as select * from emp where 1=2
  2  /
Tabel is aangemaakt.
SQL> alter table emp_test add constraint emp_ck check (sal > 1500)
  2  /
Tabel is gewijzigd.
SQL> declare
  2    type t_employee_tab is table of emp%rowtype index by binary_integer;
  3    r_employee_data t_employee_tab;
  4    e_bulk_errors exception;
  5    pragma exception_init ( e_bulk_errors, -24381 );
  6  begin
  7    select *
  8      bulk collect into r_employee_data
  9      from emp
10     order by empno
11    ;
12    forall i in r_employee_data.first..r_employee_data.last save exceptions
13      insert into emp_test values r_employee_data(i);
14  exception
15  when e_bulk_errors then
16    for j in 1..sql%bulk_exceptions.count
17    loop
18      dbms_output.put_line
19      ( r_employee_data(sql%bulk_exceptions(j).error_index).empno
20        || ', ' || r_employee_data(sql%bulk_exceptions(j).error_index).ename
21        || ', (sal=' || r_employee_data(sql%bulk_exceptions(j).error_index).sal
22        || ') :' || sqlerrm(-sql%bulk_exceptions(j).error_code)
23      );
24    end loop;
25  end;
26  /
7369, SMITH, (sal=800) :ORA-02290: check constraint (.) violated
7521, WARD, (sal=1250) :ORA-02290: check constraint (.) violated
7654, MARTIN, (sal=1250) :ORA-02290: check constraint (.) violated
7844, TURNER, (sal=1500) :ORA-02290: check constraint (.) violated
7876, ADAMS, (sal=1100) :ORA-02290: check constraint (.) violated
7900, JAMES, (sal=950) :ORA-02290: check constraint (.) violated
7934, MILLER, (sal=1300) :ORA-02290: check constraint (.) violated
PL/SQL-procedure is geslaagd.
SQL> select * from emp_test
  2  /
     EMPNO ENAME      JOB              MGR HIREDATE                   SAL       COMM     DEPTNO
      7499 ALLEN      SALESMAN        7698 20-02-1981 00:00:00       1600        300         30
      7566 JONES      MANAGER         7839 02-04-1981 00:00:00       2975                    20
      7698 BLAKE      MANAGER         7839 01-05-1981 00:00:00       2850                    30
      7782 CLARK      MANAGER         7839 09-06-1981 00:00:00       2450                    10
      7788 SCOTT      ANALYST         7566 09-12-1982 00:00:00       3000                    20
      7839 KING       PRESIDENT            17-11-1981 00:00:00       5000                    10
      7902 FORD       ANALYST         7566 03-12-1981 00:00:00       3000                    20
7 rijen zijn geselecteerd.Regards,
Rob.