How can I convert table object into table record format?

Question

I need to write a store procedure to convert table object into table record. The stored procedure will have a table object IN and then pass the data into another stored procedure with a table record IN. Data passed in may contain more than one record in the table object. Is there any example I can take a look? Thanks.

Answer 1

I'm afraid it's a bit labourious but here's an example.
I think it's a good idea to work with SQL objects rather than PL/SQL nested tables.
SQL> CREATE OR REPLACE TYPE emp_t AS OBJECT
  2      (eno NUMBER(4)
  3      , ename  VARCHAR2(10)
  4      , job VARCHAR2(9)
  5      , mgr  NUMBER(4)
  6      , hiredate  DATE
  7      , sal  NUMBER(7,2)
  8      , comm  NUMBER(7,2)
  9      , deptno  NUMBER(2));
10  /
Type created.
SQL> CREATE OR REPLACE TYPE staff_nt AS TABLE OF emp_t
  2  /
Type created.
SQL> Now we've got some Types let's use them. I've only implemented this as one public procedure but you can see the principles in action.
SQL> CREATE OR REPLACE PACKAGE emp_utils AS
  2      TYPE EmpCurTyp IS REF CURSOR RETURN emp%ROWTYPE;
  3      PROCEDURE pop_emp (p_emps in staff_nt);
  4  END  emp_utils;
  5  /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY emp_utils AS
  2      FUNCTION emp_obj_to_rows (p_emps IN staff_nt) RETURN EmpCurTyp IS
  3          rc EmpCurTyp;
  4      BEGIN
  5          OPEN rc FOR SELECT * FROM TABLE( CAST ( p_emps AS staff_nt ));
  6          RETURN rc;
  7      END  emp_obj_to_rows;
  8      PROCEDURE pop_emp (p_emps in staff_nt) is
  9          e_rec emp%ROWTYPE;
10          l_emps EmpCurTyp;
11      BEGIN
12          l_emps := emp_obj_to_rows(p_emps);
13          FETCH l_emps INTO e_rec;
14          LOOP
15              EXIT WHEN l_emps%NOTFOUND;
16              INSERT INTO emp VALUES e_rec;
17              FETCH l_emps INTO e_rec;
18          END LOOP;
19          CLOSE l_emps;
20      END pop_emp;   
21  END;
22  /
Package body created.
SQL>Looks good. Let's see it in action...
SQL> DECLARE
  2      newbies staff_nt :=  staff_nt();
  3  BEGIN
  4      newbies.extend(2);
  5      newbies(1) := emp_t(7777, 'APC', 'CODER', 7902, sysdate, 1700, null, 40);
  6      newbies(2) := emp_t(7778, 'J RANDOM', 'HACKER', 7902, sysdate, 1800, null, 40);
  7      emp_utils.pop_emp(newbies);
  8  END;
  9  /
PL/SQL procedure successfully completed.
SQL> SELECT * FROM emp WHERE deptno = 40
  2  /
     EMPNO ENAME      JOB              MGR HIREDATE         SAL       COMM
    DEPTNO
      7777 APC        CODER           7902 17-NOV-05       1700
        40
      7778 J RANDOM   HACKER          7902 17-NOV-05       1800
        40
SQL>     Cheers, APC