create table test_a(a number,b number)
/
create table test_b(a number,b number)
/
insert into test_a
select 1,1 from dual connect by level <=1000
/
commit
/
CREATE OR REPLACE PACKAGE test_api AS
  TYPE t_row IS table of test_a%rowtype;
  PROCEDURE test1;
END;
/
CREATE OR REPLACE PACKAGE BODY test_api AS
  PROCEDURE test1 IS
    l_tab1 t_row;
    v_err varchar2(500);
    v_err1 varchar2(500);
  BEGIN
    SELECT *
    BULK COLLECT INTO l_tab1
    FROM  test_a;
  insert into test_b
   SELECT * FROM TABLE(l_tab1);
   commit;
   exception 
    when others then
     v_err := SQLCODE;
     v_err1 := SQLERRM;
     dbms_output.put_line(v_err||'::-'||v_err1);
  END;
END;
/

SET SERVEROUTPUT ON
EXEC test_api.test1;

anonymous block completed
-902::-ORA-00902: invalid datatype

Error report -
ORA-00902: invalid datatype
ORA-06512: at "TARDBO.TEST_API", line 10
ORA-06512: at line 1
00902. 00000 -  "invalid datatype"

SCOTT@orcl_12.1.0.2.0> CREATE TABLE test_a (a NUMBER, b NUMBER)
  2  /

Table created.

SCOTT@orcl_12.1.0.2.0> CREATE TABLE test_b (a NUMBER, b NUMBER)
  2  /

Table created.

SCOTT@orcl_12.1.0.2.0> INSERT INTO test_a SELECT 1, 1 FROM DUAL CONNECT BY LEVEL <= 10
  2  /

10 rows created.

SCOTT@orcl_12.1.0.2.0> CREATE OR REPLACE PACKAGE test_api
  2  AS
  3    TYPE t_row IS TABLE OF test_a%ROWTYPE;
  4    PROCEDURE test1;
  5  END test_api;
  6  /

Package created.

SCOTT@orcl_12.1.0.2.0> SHOW ERRORS
No errors.
SCOTT@orcl_12.1.0.2.0> CREATE OR REPLACE PACKAGE BODY test_api
  2  AS
  3    PROCEDURE test1
  4    IS
  5  	 l_tab1  t_row;
  6    BEGIN
  7  	 SELECT * BULK COLLECT INTO l_tab1 FROM test_a;
  8  	 FORALL i IN 1 .. l_tab1.COUNT
  9  	   INSERT INTO test_b VALUES l_tab1(i);
 10    END test1;
 11  END test_api;
 12  /

Package body created.

SCOTT@orcl_12.1.0.2.0> SHOW ERRORS
No errors.
SCOTT@orcl_12.1.0.2.0> EXEC test_api.test1

PL/SQL procedure successfully completed.

SCOTT@orcl_12.1.0.2.0> SELECT * FROM test_b
  2  /

         A          B
---------- ----------
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1

10 rows selected.

SCOTT@orcl_12.1.0.2.0> CREATE TABLE test_a (a NUMBER, b NUMBER)
  2  /

Table created.

SCOTT@orcl_12.1.0.2.0> CREATE TABLE test_b (a NUMBER, b NUMBER)
  2  /

Table created.

SCOTT@orcl_12.1.0.2.0> INSERT INTO test_a SELECT 1, 1 FROM DUAL CONNECT BY LEVEL <= 10
  2  /

10 rows created.

SCOTT@orcl_12.1.0.2.0> CREATE OR REPLACE PACKAGE test_api
  2  AS
  3    TYPE t_row IS TABLE OF test_a%ROWTYPE;
  4    PROCEDURE test1;
  5  END test_api;
  6  /

Package created.

SCOTT@orcl_12.1.0.2.0> SHOW ERRORS
No errors.
SCOTT@orcl_12.1.0.2.0> CREATE OR REPLACE PACKAGE BODY test_api
  2  AS
  3    PROCEDURE test1
  4    IS
  5  	 l_tab1  t_row;
  6    BEGIN
  7  	 SELECT * BULK COLLECT INTO l_tab1 FROM test_a;
  8  	 FOR i IN
  9  	   (SELECT * FROM TABLE (l_tab1))
 10  	 LOOP
 11  	   INSERT INTO test_b VALUES (i.a, i.b);
 12  	 END LOOP;
 13    END test1;
 14  END test_api;
 15  /

Package body created.

SCOTT@orcl_12.1.0.2.0> SHOW ERRORS
No errors.
SCOTT@orcl_12.1.0.2.0> EXEC test_api.test1

PL/SQL procedure successfully completed.

SCOTT@orcl_12.1.0.2.0> SELECT * FROM test_b
  2  /

         A          B
---------- ----------
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1
         1          1

10 rows selected.