Write in table type pl sql

Question

Hi,
i want to read/write from/to a table type in pl sql procedure.
I have this:
in the declaration of package I have:
......more code more code...
type type1 is record ( field1 varchar2(4000), field2 varchar2(4000), filed3 number);
rec type1;
type table_example is table of rec%type index by binary_integer;
...more code more code...
In the body of my package i have a procedure in which i want to write/read into/from table_ex (table_ex is a variable of type table_example;)
How could i do?
Could you all post some code of example (in particular i want to update fields of table_ex)?
Please help.
Thanks

Answer 1

Hi,
I think you need some package for manage simple task againts your table. It's called package API. I created a package API for example for you (this package it's only a little example):
Example table:
-- Create table
create table TEST
  AD_TEST NUMBER(10) not null,
  NM_TEST VARCHAR2(30) not null
-- Create/Recreate primary, unique and foreign key constraints
alter table TEST
  add constraint PK_TEST_1 primary key (AD_TEST)
  using index;Sequence...
-- Create sequence
create sequence SEQ_TEST
minvalue 1
maxvalue 99999999999999999999
start with 1
increment by 1
cache 20;Package API for table test
CREATE OR REPLACE PACKAGE pack_api_test IS
   TYPE t_ref_cur IS REF CURSOR;
   PROCEDURE proc_ins_test(p_ad_test OUT test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2);
   PROCEDURE proc_upd_test(p_ad_test IN test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2);
   PROCEDURE proc_sch_test(p_rec_test OUT test%ROWTYPE,
                           p_ad_test  IN test.ad_test%TYPE,
                           p_return   OUT NUMBER,
                           p_message  OUT VARCHAR2);
   PROCEDURE proc_lis_test(p_ad_test IN test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_query   OUT t_ref_cur,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2);
END pack_api_test;
CREATE OR REPLACE PACKAGE BODY pack_api_test IS
   -- Package constants
   P_RETURN_SUCCESFUL  CONSTANT NUMBER(4) := 0;
   P_RETURN_ERROR      CONSTANT NUMBER(4) := 1;
   P_MESSAGE_SUCCESFUL CONSTANT VARCHAR2(100) := 'Succesful';
   PROCEDURE proc_ins_test(p_ad_test OUT test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2) IS
   BEGIN
      p_return  := P_RETURN_SUCCESFUL;
      p_message := P_MESSAGE_SUCCESFUL;
      INSERT INTO test a
         (a.ad_test,
          a.nm_test)
      VALUES
         (seq_test.NEXTVAL,
          p_nm_test)
      RETURNING ad_test INTO p_ad_test;
   EXCEPTION
      WHEN DUP_VAL_ON_INDEX THEN
         p_return  := P_RETURN_ERROR;
         p_message := 'Record already exists';
      WHEN OTHERS THEN
         p_return  := P_RETURN_ERROR;
         p_message := SQLERRM;
   END proc_ins_test;
   PROCEDURE proc_upd_test(p_ad_test IN test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2) IS
      generic_error EXCEPTION;
      data_not_updated_error EXCEPTION;
      v_rec_test test%ROWTYPE;
   BEGIN
      p_return  := P_RETURN_SUCCESFUL;
      p_message := P_MESSAGE_SUCCESFUL;
      proc_sch_test(p_rec_test => v_rec_test,
                    p_ad_test  => p_ad_test,
                    p_return   => p_return,
                    p_message  => p_message);
      IF p_return <> 0 THEN
         RAISE generic_error;
      END IF;
      UPDATE test a SET a.nm_test = p_nm_test WHERE ad_test = p_ad_test;
      IF (SQL%ROWCOUNT = 0) THEN
         RAISE data_not_updated_error;
      END IF;
   EXCEPTION
      WHEN generic_error THEN
         NULL;
      WHEN data_not_updated_error THEN
         p_return  := P_RETURN_ERROR;
         p_message := 'Data not updated';
      WHEN OTHERS THEN
         p_return  := P_RETURN_ERROR;
         p_message := SQLERRM;
   END proc_upd_test;
   PROCEDURE proc_sch_test(p_rec_test OUT test%ROWTYPE,
                           p_ad_test  IN test.ad_test%TYPE,
                           p_return   OUT NUMBER,
                           p_message  OUT VARCHAR2) IS
   BEGIN
      p_return  := P_RETURN_SUCCESFUL;
      p_message := P_MESSAGE_SUCCESFUL;
      SELECT * INTO p_rec_test FROM test a WHERE a.ad_test = p_ad_test;
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         p_return  := P_RETURN_ERROR;
         p_message := 'Record doesn''t exist';
      WHEN OTHERS THEN
         p_return  := P_RETURN_ERROR;
         p_message := SQLERRM;
   END proc_sch_test;
   PROCEDURE proc_lis_test(p_ad_test IN test.ad_test%TYPE,
                           p_nm_test IN test.nm_test%TYPE,
                           p_query   OUT t_ref_cur,
                           p_return  OUT NUMBER,
                           p_message OUT VARCHAR2) IS
      v_ds_sql VARCHAR2(4000);
   BEGIN
      p_return  := P_RETURN_SUCCESFUL;
      p_message := P_MESSAGE_SUCCESFUL;
      v_ds_sql := v_ds_sql || 'SELECT * ';
      v_ds_sql := v_ds_sql || 'FROM test ';
      v_ds_sql := v_ds_sql || 'WHERE 1 = 1 ';
      IF (p_ad_test IS NOT NULL) THEN
         v_ds_sql := v_ds_sql || 'AND ad_test = ' || p_ad_test || ' ';
      END IF;
      IF (p_nm_test IS NOT NULL) THEN
         v_ds_sql := v_ds_sql || 'AND nm_test like ''' || p_nm_test || ''' ';
      END IF;
      OPEN p_query FOR v_ds_sql;
   EXCEPTION
      WHEN OTHERS THEN
         p_return  := P_RETURN_ERROR;
         p_message := SQLERRM;
   END proc_lis_test;
END pack_api_test;
/Regards,