CREATE OR REPLACE PROCEDURE test1_parse (p_tablename IN VARCHAR2, pvalue VARCHAR2)
IS 
den VARCHAR2(789);
den1 VARCHAR2(789);
den2 VARCHAR2(789);
den3 VARCHAR2(789);
l_c_1 VARCHAR2(23);
l_c_4 VARCHAR2(23);
l_c_2 VARCHAR2(23);
l_c_3 VARCHAR2(23);
sqlquery VARCHAR2(4000);
mytable VARCHAR2(23); 

BEGIN

den := substr (pvalue,((instr (pvalue, ',',1,1)+1)),(((instr (pvalue, ',',1,2))) - (((instr (pvalue, ',',1,1)+1)))));
den1 := substr (pvalue,((instr (pvalue, ',',1,2)+1)),(((instr (pvalue, ',',1,3))) - (((instr (pvalue, ',',1,2)+1)))));
den2 := substr (pvalue,((instr (pvalue, ',',1,3)+1)),(((instr (pvalue, ',',1,4))) - (((instr (pvalue, ',',1,3)+1)))));
den3 := substr (pvalue,((instr (pvalue, ',',1,4)+1)),(((instr (pvalue, ',',1,5))) - (((instr (pvalue, ',',1,4)+1)))));


SELECT den INTO l_c_1 FROM dual; 
SELECT den1 INTO l_c_2 FROM dual; 
SELECT den2 INTO l_c_3 FROM dual; 
SELECT den3 INTO l_c_4 FROM dual; 
sqlquery := 'delete from ' || p_tablename || ' where ROWID' || ' NOT IN '|| ' ( select MAX (ROWID) from ' || p_tablename || ' where ' || l_c_1 || ' in ( select' || l_c_1 || ' from ' || p_tablename || ' group by ' || l_c_1 || ' having count(*) > 1 ) group by ' || l_c_1 || ')';
EXECUTE IMMEDIATE sqlquery; 
END test1_parse;

SELECT den INTO l_c_1 FROM dual; 
SELECT den1 INTO l_c_2 FROM dual; 
SELECT den2 INTO l_c_3 FROM dual; 
SELECT den3 INTO l_c_4 FROM dual;