Storing the SQL Query results as XML

Question

Hi All,
I have a proc to select all the data from emp table and insert into another table. For some reason it inserts only one column and one record.
I don't have any row limit or skip ...
CREATE OR REPLACE procedure Convert_Data_Into_XML1
as
-- Var Declartion
qryCtx DBMS_XMLGEN.ctxHandle;
result CLOB;
BEGIN
qryCtx := dbms_xmlgen.newContext('SELECT * from emp');
-- set the row header to be EMPLOYEE
DBMS_XMLGEN.setRowTag(qryCtx, 'Employee-ROW');
DBMS_XMLGEN.setRowsetTag(qryCtx, 'Employee-rowset');
LOOP
-- now get the result
result := DBMS_XMLGEN.getXML(qryCtx);
DBMS_OUTPUT.PUT_LINE ('In the Loop');
EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
INSERT INTO temp_clob_tab VALUES (result);
END LOOP;
COMMIT;
--close context
DBMS_XMLGEN.closeContext(qryCtx);
exception
when others then
dbms_output.put_line(TO_CHAR(sqlerrm));
END;
Basically I got this sample proc from Oracle website. As per the website I should be able to store all the records from emp table.
How can I debug this.
Here is the output from SQLPLUS>
SQL> select result from temp_clob_tab;
RESULT
<?xml version="1.0"?>
<Employee-rowset>
<Employee-ROW>
<EMPNO>7369</EMPNO>
>>>>>>>>>>
Thanks in advance
Siva

Answer 1

I am able to convert the SQL query output and I am able to store it in a XMLTYPE column.
But the code doesn't work when I took the same code and try to Implement inside a Trigger. The reason I am doing this is, when there is an update or delete, I want to store the whole record as a XMLTYPE doc (before and After). But the code compiles fine, but when I tried to update a record it gives error.
CREATE OR REPLACE TRIGGER INS_UPDDEV_EMP3_F
BEFORE UPDATE OR DELETE ON EMP
FOR EACH ROW
DECLARE
V_DBUSER VARCHAR2(50);
V_CHANGETYPE VARCHAR2(20) := 'INSERT' ;
QRYCTX DBMS_XMLGEN.CTXHANDLE ;
OLDVALUE XMLTYPE;
NEWVALUE XMLTYPE;
BEGIN
IF :OLD.EMPNO <> :NEW.EMPNO or DELETING then
---------- old Value
QRYCTX := DBMS_XMLGEN.NEWCONTEXT ('SELECT :OLD.EMPNO, :OLD.ENAME, :OLD.JOB, :OLD.MGR, :OLD.HIREDATE, :OLD.SAL, :OLD.COMM, :OLD.DEPTNO FROM EMP WHERE EMPNO=:OLD.EMPNO ');
DBMS_XMLGEN.SETROWTAG (QRYCTX, 'DEPTROW');
DBMS_XMLGEN.SETROWSETTAG(QRYCTX, 'DEPTSET');
OLDVALUE := XMLTYPE(DBMS_XMLGEN.GETXML(QRYCTX));
------------------------- new Value
QRYCTX := DBMS_XMLGEN.NEWCONTEXT ('Select * WHERE EMPNO=:NEW.EMPNO '); -- WHERE :OLD.EMPNO
     DBMS_XMLGEN.SETROWTAG (QRYCTX, 'DEPTROW');
DBMS_XMLGEN.SETROWSETTAG(QRYCTX, 'DEPTSET');
NEWVALUE := XMLTYPE(DBMS_XMLGEN.GETXML(QRYCTX));
V_CHANGETYPE := 'UPDATE' ;
INSERT INTO ADM_RECAUDITHISTORY VALUES ('table emp', 'fIELD all', OLDVALUE, OLDVALUE,
V_CHANGETYPE , SYSDATE, 'TIGER TRIG');
commit;
END IF;
END;
I am getting the following error while updating the record.
>>>>
ERROR at line 1:
ORA-19206: Invalid value for query or REF CURSOR parameter
ORA-06512: at "SYS.DBMS_XMLGEN", line 83
ORA-06512: at "SCOTT.INS_UPDDEV_EMP3_F", line 13
ORA-04088: error during execution of trigger 'SCOTT.INS_UPDDEV_EMP3_F'
>>>>>
Is anyone knows why I am getting this error.
Thanks
Siva