Problem passing dynamically created variables

Question

Hi,
I have a procedure in which i am creating an object dynamically and i am using that object in another package . I am calling first the procedure that creating the object and recompiling the package and calling to that package but i want to integrate them and instead of calling them individually want to call a single procedure to achieve the requirement . Here i am giving the details of the procedure and package please guide me ..
CREATE TABLE ip_lov_hdr
(table_id VARCHAR2(50) NOT NULL,
table_name VARCHAR2(30) NOT NULL,
col_name VARCHAR2(30) NOT NULL,
codetype VARCHAR2(2))
PCTFREE 10
INITRANS 1
MAXTRANS 255
ALTER TABLE ip_lov_hdr
ADD CONSTRAINT pk_lov_hdr PRIMARY KEY (table_id)
USING INDEX
PCTFREE 10
INITRANS 2
MAXTRANS 255
CREATE TABLE ip_lov_dtl
(table_id VARCHAR2(50) NOT NULL,
col_name VARCHAR2(30) NOT NULL)
PCTFREE 10
INITRANS 1
MAXTRANS 255
ALTER TABLE ip_lov_dtl
ADD CONSTRAINT pk_lov_dtl PRIMARY KEY (table_id, col_name)
USING INDEX
PCTFREE 10
INITRANS 2
MAXTRANS 255
ALTER TABLE ip_lov_dtl
ADD CONSTRAINT fk_lov_hdr FOREIGN KEY (table_id)
REFERENCES ip_lov_hdr (table_id) ON DELETE SET NULL
CREATE TABLE emp
(ename VARCHAR2(50),
empno VARCHAR2(9),
dept VARCHAR2(4))
PCTFREE 10
INITRANS 1
MAXTRANS 255
CREATE OR REPLACE
TYPE out_rec_lov AS OBJECT(ename VARCHAR2(50),empno VARCHAR2(9))
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('titu','111','10')
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('naria','222',NULL)
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('tiks','123','55')
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('tiki','221',NULL)
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('narayan',NULL,NULL)
INSERT INTO ip_lov_hdr
(TABLE_ID,TABLE_NAME,COL_NAME,CODETYPE)
VALUES
('emp_id','emp','ename',NULL)
INSERT INTO ip_lov_dtl
(TABLE_ID,COL_NAME)
VALUES
('emp_id','empno')
CREATE OR REPLACE
TYPE out_rec_lov AS OBJECT(ename VARCHAR2(50),empno VARCHAR2(9))
CREATE OR REPLACE
PROCEDURE p_recordtypevariable (tab_id IN VARCHAR2,err_msg OUT VARCHAR2)
   IS
      sqlstmt             VARCHAR2 (2000);
      col_str             VARCHAR2 (2000);
      i                   NUMBER := 0;
      l_table_name        ip_lov_hdr.table_name%TYPE;
      l_col_name          ip_lov_hdr.col_name%TYPE;
      l_codetype          ip_lov_hdr.codetype%TYPE;
      l_datatype          VARCHAR2 (100);
      invalid_tableid     EXCEPTION;
   BEGIN
      BEGIN
         SELECT a.table_name,
                a.codetype,
                a.col_name,
                b.data_type || '(' || b.data_length || ')'
           INTO l_table_name,
                l_codetype,
                l_col_name,
                l_datatype
           FROM ip_lov_hdr a, user_tab_columns b
          WHERE UPPER (a.table_id) = UPPER (tab_id)
            AND UPPER (a.table_name) = UPPER (b.table_name)
            AND UPPER (a.col_name) = UPPER (b.column_name);
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            RAISE invalid_tableid;
      END;
      col_str := l_col_name || ' ' || l_datatype;
      FOR rec IN  (SELECT b.col_name,
                          c.data_type || '(' || c.data_length || ')' datatype
                     FROM ip_lov_hdr a, ip_lov_dtl b, user_tab_columns c
                    WHERE UPPER (b.table_id) = UPPER (tab_id)
                      AND UPPER (a.table_id) = UPPER (b.table_id)
                      AND UPPER (a.table_name) = UPPER (c.table_name)
                      AND UPPER (b.col_name) = UPPER (c.column_name) )
      LOOP
         col_str := col_str || ',' || rec.col_name || ' ' || rec.datatype;
      END LOOP;
      sqlstmt := 'CREATE OR REPLACE TYPE out_rec_lov AS OBJECT(' || col_str || ')';
      dbms_utility.exec_ddl_statement(sqlstmt);
      dbms_utility.exec_ddl_statement('alter package pkg_lov_new compile');
   EXCEPTION
      WHEN invalid_tableid THEN
         err_msg := 'Table is not defined ';
      WHEN OTHERS THEN
         err_msg := SUBSTR (SQLERRM, 1, 500);
   END p_recordtypevariable;
CREATE OR REPLACE
PACKAGE pkg_lov_new
AS
TYPE listtable IS TABLE OF out_rec_lov index by binary_integer;
PROCEDURE p_getlov (
tab_id IN VARCHAR2,
col_value IN VARCHAR2,
outlist OUT listtable,
err_msg OUT VARCHAR2);
END;
CREATE OR REPLACE
PACKAGE BODY pkg_lov_new
AS
  PROCEDURE p_getlov (
      tab_id                     IN VARCHAR2,
      col_value                  IN VARCHAR2,
      outlist                    OUT listtable,
      err_msg                    OUT VARCHAR2)
   IS
      query_str           VARCHAR2 (2000);
      col_str             VARCHAR2 (2000);
      TYPE cur_typ IS REF CURSOR;
      c                   cur_typ;
      i                   NUMBER := 0;
      l_table_name        ip_lov_hdr.table_name%TYPE;
      l_col_name          ip_lov_hdr.col_name%TYPE;
      l_codetype          ip_lov_hdr.codetype%TYPE;
   BEGIN
      BEGIN
         SELECT table_name,
                codetype,
                col_name
           INTO l_table_name,
                l_codetype,
                l_col_name
           FROM ip_lov_hdr
          WHERE UPPER (table_id) = UPPER (tab_id);
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            NULL;
      END;
      col_str := l_col_name;
      FOR rec IN  (SELECT col_name
                     FROM ip_lov_dtl
                    WHERE table_id = tab_id)
      LOOP
         col_str := col_str || ',' || rec.col_name;
      END LOOP;
      IF l_codetype IS NULL THEN
         query_str :=    'select out_rec_lov('
                      || col_str
                      || ') from '
                      || l_table_name
                      || ' where '
                      || l_col_name
                      || ' like :col_value';
         BEGIN
            OPEN c FOR query_str USING col_value;
            LOOP
               FETCH c INTO outlist (i);
               i := i + 1;
               EXIT WHEN c%NOTFOUND;
            END LOOP;
            CLOSE c;
         EXCEPTION
            WHEN OTHERS THEN
               err_msg := SUBSTR (SQLERRM, 1, 500);
         END;
      ELSE
         query_str :=    'select out_rec_lov('
                      || col_str
                      || ') from '
                      || l_table_name
                      || ' where code_type =:l_codetype and '
                      || l_col_name
                      || ' like :col_value';
         BEGIN
            OPEN c FOR query_str USING l_codetype, col_value;
            LOOP
               FETCH c INTO outlist (i);
               i := i + 1;
               EXIT WHEN c%NOTFOUND;
            END LOOP;
            CLOSE c;
         EXCEPTION
            WHEN OTHERS THEN
               err_msg := SUBSTR (SQLERRM, 1, 500);
         END;
      END IF;
   EXCEPTION
      WHEN OTHERS THEN
         err_msg := SUBSTR (SQLERRM, 1, 500);
   END p_getlov;
END pkg_lov_new;
/Regards,
Dhabas
Edited by: Dhabas on Dec 30, 2008 5:52 PM

Answer 1

CREATE TABLE ip_lov_hdr
(table_id VARCHAR2(50) NOT NULL,
table_name VARCHAR2(30) NOT NULL,
col_name VARCHAR2(30) NOT NULL,
codetype VARCHAR2(2))
PCTFREE 10
INITRANS 1
MAXTRANS 255
ALTER TABLE ip_lov_hdr
ADD CONSTRAINT pk_lov_hdr PRIMARY KEY (table_id)
USING INDEX
PCTFREE 10
INITRANS 2
MAXTRANS 255
CREATE TABLE ip_lov_dtl
(table_id VARCHAR2(50) NOT NULL,
col_name VARCHAR2(30) NOT NULL)
PCTFREE 10
INITRANS 1
MAXTRANS 255
ALTER TABLE ip_lov_dtl
ADD CONSTRAINT pk_lov_dtl PRIMARY KEY (table_id, col_name)
USING INDEX
PCTFREE 10
INITRANS 2
MAXTRANS 255
ALTER TABLE ip_lov_dtl
ADD CONSTRAINT fk_lov_hdr FOREIGN KEY (table_id)
REFERENCES ip_lov_hdr (table_id) ON DELETE SET NULL
CREATE TABLE emp
(ename VARCHAR2(50),
empno VARCHAR2(9),
dept VARCHAR2(4))
PCTFREE 10
INITRANS 1
MAXTRANS 255
CREATE OR REPLACE
TYPE out_rec_lov AS OBJECT(ename VARCHAR2(50),empno VARCHAR2(9))
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('titu','111','10')
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('naria','222',NULL)
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('tiks','123','55')
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('tiki','221',NULL)
INSERT INTO emp
(ENAME,EMPNO,DEPT)
VALUES
('narayan',NULL,NULL)
INSERT INTO ip_lov_hdr
(TABLE_ID,TABLE_NAME,COL_NAME,CODETYPE)
VALUES
('emp_id','emp','ename',NULL)
INSERT INTO ip_lov_dtl
(TABLE_ID,COL_NAME)
VALUES
('emp_id','empno')
CREATE OR REPLACE
TYPE out_rec_lov AS OBJECT(ename VARCHAR2(50),empno VARCHAR2(9))
CREATE OR REPLACE
PROCEDURE p_recordtypevariable (tab_id IN VARCHAR2,err_msg OUT VARCHAR2)
IS
sqlstmt VARCHAR2 (2000);
col_str VARCHAR2 (2000);
i NUMBER := 0;
l_table_name ip_lov_hdr.table_name%TYPE;
l_col_name ip_lov_hdr.col_name%TYPE;
l_codetype ip_lov_hdr.codetype%TYPE;
l_datatype VARCHAR2 (100);
invalid_tableid EXCEPTION;
BEGIN
BEGIN
SELECT a.table_name,
a.codetype,
a.col_name,
b.data_type || '(' || b.data_length || ')'
INTO l_table_name,
l_codetype,
l_col_name,
l_datatype
FROM ip_lov_hdr a, user_tab_columns b
WHERE UPPER (a.table_id) = UPPER (tab_id)
AND UPPER (a.table_name) = UPPER (b.table_name)
AND UPPER (a.col_name) = UPPER (b.column_name);
EXCEPTION
WHEN NO_DATA_FOUND THEN
RAISE invalid_tableid;
END;
col_str := l_col_name || ' ' || l_datatype;
FOR rec IN (SELECT b.col_name,
c.data_type || '(' || c.data_length || ')' datatype
FROM ip_lov_hdr a, ip_lov_dtl b, user_tab_columns c
WHERE UPPER (b.table_id) = UPPER (tab_id)
AND UPPER (a.table_id) = UPPER (b.table_id)
AND UPPER (a.table_name) = UPPER (c.table_name)
AND UPPER (b.col_name) = UPPER (c.column_name) )
LOOP
col_str := col_str || ',' || rec.col_name || ' ' || rec.datatype;
END LOOP;
sqlstmt := 'CREATE OR REPLACE TYPE out_rec_lov AS OBJECT(' || col_str || ')';
dbms_utility.exec_ddl_statement(sqlstmt);
dbms_utility.exec_ddl_statement('alter package pkg_lov_new compile');
EXCEPTION
WHEN invalid_tableid THEN
err_msg := 'Table is not defined ';
WHEN OTHERS THEN
err_msg := SUBSTR (SQLERRM, 1, 500);
END p_recordtypevariable;
CREATE OR REPLACE
PACKAGE pkg_lov_new
AS
TYPE listtable IS TABLE OF out_rec_lov index by binary_integer;
PROCEDURE p_getlov (
tab_id IN VARCHAR2,
col_value IN VARCHAR2,
outlist OUT listtable,
err_msg OUT VARCHAR2);
END;
CREATE OR REPLACE
PACKAGE BODY pkg_lov_new
AS
PROCEDURE p_getlov (
tab_id IN VARCHAR2,
col_value IN VARCHAR2,
outlist OUT listtable,
err_msg OUT VARCHAR2)
IS
query_str VARCHAR2 (2000);
col_str VARCHAR2 (2000);
TYPE cur_typ IS REF CURSOR;
c cur_typ;
i NUMBER := 0;
l_table_name ip_lov_hdr.table_name%TYPE;
l_col_name ip_lov_hdr.col_name%TYPE;
l_codetype ip_lov_hdr.codetype%TYPE;
BEGIN
BEGIN
SELECT table_name,
codetype,
col_name
INTO l_table_name,
l_codetype,
l_col_name
FROM ip_lov_hdr
WHERE UPPER (table_id) = UPPER (tab_id);
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
col_str := l_col_name;
FOR rec IN (SELECT col_name
FROM ip_lov_dtl
WHERE table_id = tab_id)
LOOP
col_str := col_str || ',' || rec.col_name;
END LOOP;
IF l_codetype IS NULL THEN
query_str := 'select out_rec_lov('
|| col_str
|| ') from '
|| l_table_name
|| ' where '
|| l_col_name
|| ' like :col_value';
BEGIN
OPEN c FOR query_str USING col_value;
LOOP
FETCH c INTO outlist (i);
i := i + 1;
EXIT WHEN c%NOTFOUND;
END LOOP;
CLOSE c;
EXCEPTION
WHEN OTHERS THEN
err_msg := SUBSTR (SQLERRM, 1, 500);
END;
ELSE
query_str := 'select out_rec_lov('
|| col_str
|| ') from '
|| l_table_name
|| ' where code_type =:l_codetype and '
|| l_col_name
|| ' like :col_value';
BEGIN
OPEN c FOR query_str USING l_codetype, col_value;
LOOP
FETCH c INTO outlist (i);
i := i + 1;
EXIT WHEN c%NOTFOUND;
END LOOP;
CLOSE c;
EXCEPTION
WHEN OTHERS THEN
err_msg := SUBSTR (SQLERRM, 1, 500);
END;
END IF;
EXCEPTION
WHEN OTHERS THEN
err_msg := SUBSTR (SQLERRM, 1, 500);
END p_getlov;
END pkg_lov_new;
/