XML conversion in oracle 8.1.7

Question

All,
I am using oracle8i. I have emp/dept table. i need to convert XML file from emp/dept table. I have two depts.
Each dept has two employees.
Here is the script i am using...
create table dept(deptno number,
dname varchar2(20),
loc varchar2(20));
alter table dept add primary key(deptno);
create table emp(empno number,
ename varchar2(20),
deptno number);
alter table emp add primary key(empno);
alter table emp add constraint fk_dept foreign key(deptno) references dept;
insert into dept values(10,'Account','Houston');
insert into dept values(20,'Finance','Austin');
insert into emp values(101,'Krish',10);
insert into emp values(102,'Sam', 10);
insert into emp values(103,'Scott',20);
insert into emp values(104,'Brent',20);
commit;
CREATE OR REPLACE PROCEDURE print_xml(result IN OUT NOCOPY CLOB) is
xmlstr varchar2(32767);
line varchar2(2000);
begin
xmlstr := dbms_lob.SUBSTR(result,32767);
loop
exit when xmlstr is null;
line := substr(xmlstr,1,instr(xmlstr,chr(10))-1);
dbms_output.put_line('| '||line);
xmlstr := substr(xmlstr,instr(xmlstr,chr(10))+1);
end loop;
end;
CREATE OR REPLACE PROCEDURE generateXML AS
context dbms_xmlquery.ctxType;
document CLOB;
cursor c1 is select * from dept;
BEGIN
delete xmldoc;
commit;
for i in c1 loop
context := dbms_xmlquery.newContext('select deptno,dname,cursor(select empno,ename from emp where emp.deptno=dept.deptno) emp from dept where deptno = :deptno');
dbms_xmlquery.setbindvalue(context,'deptno',i.deptno);
dbms_xmlquery.useNullAttributeIndicator( context,FALSE);
dbms_xmlquery.setRowsetTag(context,'DEPTDETAILS');
dbms_xmlquery.setrowtag(context,'DEPT');
dbms_xmlquery.setrowidattrname(context,NULL);
document := dbms_xmlquery.getXML( context );
DBMS_XMLQuery.closeContext(context);
print_xml(document);
commit;
end loop;
END;
Here is the output for my script.
<?xml version = '1.0'?>
<DEPTDETAILS>
<DEPT>
<DEPTNO>10</DEPTNO>
<DNAME>Account</DNAME>
<EMP>
<EMP_ROW num="1">
<EMPNO>101</EMPNO>
<ENAME>Krish</ENAME>
</EMP_ROW>
<EMP_ROW num="2">
<EMPNO>102</EMPNO>
<ENAME>Sam</ENAME>
</EMP_ROW>
</EMP>
</DEPT>
</DEPTDETAILS>
<?xml version = '1.0'?>
<DEPTDETAILS>
<DEPT>
<DEPTNO>20</DEPTNO>
<DNAME>Finance</DNAME>
<EMP>
<EMP_ROW num="1">
<EMPNO>103</EMPNO>
<ENAME>Scott</ENAME>
</EMP_ROW>
<EMP_ROW num="2">
<EMPNO>104</EMPNO>
<ENAME>Brent</ENAME>
</EMP_ROW>
</EMP>
</DEPT>
</DEPTDETAILS>
But the output should be as below for my requirement.
<?xml version = '1.0'? encoding='UTF-8"?>
<DEPTDETAILS xmlnm:xsi="http://www.w3.org/2001/XMLSchema-instance">
<DEPT>
<DEPTNO>10</DEPTNO>
<DNAME>Account</DNAME>
<EMP>
<EMPNO>101</EMPNO>
<ENAME>Krish</ENAME>
</EMP>
<EMP>
<EMPNO>102</EMPNO>
<ENAME>Sam</ENAME>
</EMP>
</DEPT>
<DEPT>
<DEPTNO>20</DEPTNO>
<DNAME>Finance</DNAME>
<EMP>
<EMPNO>103</EMPNO>
<ENAME>Scott</ENAME>
</EMP>
<EMPNO>104</EMPNO>
<ENAME>Brent</ENAME>
</EMP>
</DEPT>
</DEPTDETAILS>
It would be great, if any one can tell me how to
get the above output....
Thanks

Answer 1

Hello,
I found the solution for the above two questions...
Here is the script to solve the problem.
set autoprint on
set long 100000
set linesize 100000
set longchunksize 100000
var g_clob clob
declare
l_ctx dbms_xmlquery.ctxType;
l_clob clob;
v_ename varchar2(20) :='Reed';
v_dept_name varchar2(20) := 'Departments';
begin
l_ctx := dbms_xmlquery.newContext('select no,ename,:deptname "department_name" from test where ename=:ename');
DBMS_XMLQuery.setBindValue(l_ctx, 'deptname', v_dept_name);
DBMS_XMLQuery.setBindValue(l_ctx, 'ename', v_ename);
dbms_lob.createtemporary(:g_clob,true,dbms_lob.session);
:g_clob := dbms_xmlquery.getXml(l_ctx);
end;
Now i want to concatinate the field No & Ename in the same query. For this,
i wrote a function and i called the function in the query. It solves my problem.
But, Is it possible to solve this problem with out writing the seperate function ?.
CREATE OR REPLACE FUNCTION STF_NAME(P_NO VARCHAR2, P_ENAME VARCHAR2)
RETURN CHAR IS
v_name VARCHAR2(50);
BEGIN
RETURN P_NO||' , '||P_ENAME;
END;
set autoprint on
set long 100000
set linesize 100000
set longchunksize 100000
var g_clob clob
declare
l_ctx dbms_xmlquery.ctxType;
l_clob clob;
v_ename varchar2(20) :='Reed';
v_dept_name varchar2(20) := 'Departments';
begin
l_ctx := dbms_xmlquery.newContext('select no,ename,:deptname "department_name",
stf_name(no,ename) "NO_NAME" from test where ename=:ename');
DBMS_XMLQuery.setBindValue(l_ctx, 'deptname', v_dept_name);
DBMS_XMLQuery.setBindValue(l_ctx, 'ename', v_ename);
dbms_lob.createtemporary(:g_clob,true,dbms_lob.session);
:g_clob := dbms_xmlquery.getXml(l_ctx);
end;