Error while using Object

Question

Hi,
I have created a package to populate data dynamically but i am getting error .Please help me out ....
ORA-00932: inconsistent datatypes: expected UDT got CHAR
Here i am giving you the code details :
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 or replace PACKAGE PKG_LOV
AS
## Package Name : List of Values(LOV) ##
## Application : iProcurement ##
## Functionality : Fetches the vales for a indput tables ##
## Input parameters : tab_id ,col_value ##
## Output parameters: List of Values ##
## Author : Subhendu Bikash ##
## Date : 07/12/2008 ##
## Modification Log ##
## Author Date Changes ##
## xxxxxxx mm/dd/yyyy Added xxxx ##
PROCEDURE p_recordtypevariable (tab_id IN VARCHAR2, err_msg OUT VARCHAR2);
/* Table type variable declaration */
TYPE listtable IS TABLE OF out_rec_lov ;
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 AS
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 ('emp_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 := 'CREATE OR REPLACE TYPE out_rec_lov AS OBJECT('||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 := col_str || ')';
EXECUTE IMMEDIATE (sqlstmt);
EXCEPTION
WHEN invalid_tableid THEN
err_msg := 'Table is not defined ';
WHEN OTHERS THEN
err_msg := SUBSTR (SQLERRM, 1, 500);
END p_recordtypevariable;
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;
--col_str :=substr(col_str,8 );
If l_Codetype is Null then
query_str := 'SELECT ' ||col_str|| ' FROM ' || l_table_name || ' WHERE '|| l_col_name || ' like :col_value';
Else
query_str := 'SELECT ' ||col_str|| ' FROM '
|| l_table_name || ' WHERE Codetype ='||l_Codetype||' And '|| l_col_name || ' like :col_value';
End If;
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;
Exception When Others then
err_msg := SUBSTR(SQLERRM, 1, 500);
End P_getLov;
END pkg_lov;
/

Answer 1

Hi,
Welcome to the forum!
Please add the code for the type out_rec_lov because it's missing and I can't compile without errors the package.
Regards,
Tip: to improve code readability enclose it between {noformat}{noformat} tags (start and end tags are the same) :)