How to generate XML for following?

Question

Hello Everyone,
I have following snippet of PLSQL code with for loops and record type arrays. Each loop can return separate number of rows and iterate that many times. For e.g. the for loop tab_rec may fetch 50 rows where as the for loop sql_rec may return 80 rows.
I need to acoomodate all of these record arrays into a single xml file. Each for loop will repreesent one data set. Something like this.
<dataset>
<set value = tab_rec(kounter).tvalue >
<set value = ?
</dataset>
Questions:
1) How can I dynamically generate just one single XML file for all for loops metnioend below in this message?
2) How can I dynamically generate tags for e.g. <set> tag above if I put XMLELEMENT() under a for loop kounter. To explain this in a better way consider pseudo code example below.
for i in 1..kounter loop
<dataset>
<set value = tab_rec(i).tvalue >
*<set value = *?*   -- How do i generate these <set> tags when tebrec(i).value will return many rows?*_
</dataset>
Thanks for reading this post. Again, the exmple for loops to generate one single XML file is given below.
For loops in the issue are mentioned below
FOR a IN tab_recc
LOOP
tab_rec (tab_kounter).tsegment := a.ebs_table;
tab_rec (tab_kounter).tbytes := a.sizemb;
tab_kounter := tab_kounter + 1;
END LOOP;
FOR b IN sql_recc
LOOP
sql_rec (sql_kounter).thash := b.hash_value;
sql_rec (sql_kounter).texecution_read := b.reads_per_execution;
sql_kounter := sql_kounter + 1;
END LOOP;
FOR c IN sess_recc
LOOP
sess_rec (session_kounter).tsid := c.SID;
sess_rec (session_kounter).tvalue := c.VALUE;
session_kounter := session_kounter + 1;
END LOOP;
FOR d IN user_recc
LOOP
user_rec (dbuser_kounter).tphysical_reads := d.physical_reads;
user_rec (dbuser_kounter).tuser := d.username;
dbuser_kounter := dbuser_kounter + 1;
END LOOP;
FOR e IN ebs_user
LOOP
ebs_rec (ebs_kounter).tuser := e.user_name;
ebs_rec (ebs_kounter).ttime := e.rtime;
ebs_kounter := ebs_kounter + 1;
END LOOP;

Answer 1

Sorry for delay in response.
I have pasted the complete code that will show the relation ship between data and XML. What I am trying to do here is to prepare smal packets of XML through XML element and then roll it up to a final grand CLOB variable. and pass that through XML creation. I have used DBMS_JAVA package to append clobs.
The issue now I am running into, it generates JUNK in xml. pure junk and nothing else Thanks R,
FOR a IN tab_recc
LOOP
tab_rec (tab_kounter).tsegment := a.ebs_table;
tab_rec (tab_kounter).tbytes := a.sizemb;
tab_kounter := tab_kounter + 1;
END LOOP;
FOR b IN sql_recc
LOOP
sql_rec (sql_kounter).thash := b.hash_value;
sql_rec (sql_kounter).texecution_read := b.reads_per_execution;
sql_kounter := sql_kounter + 1;
END LOOP;
FOR c IN sess_recc
LOOP
sess_rec (session_kounter).tsid := c.SID;
sess_rec (session_kounter).tvalue := c.VALUE;
session_kounter := session_kounter + 1;
END LOOP;
FOR d IN user_recc
LOOP
user_rec (dbuser_kounter).tphysical_reads := d.physical_reads;
user_rec (dbuser_kounter).tuser := d.username;
dbuser_kounter := dbuser_kounter + 1;
END LOOP;
FOR e IN ebs_user
LOOP
ebs_rec (ebs_kounter).tuser := e.user_name;
ebs_rec (ebs_kounter).ttime := e.rtime;
ebs_kounter := ebs_kounter + 1;
END LOOP;
FOR aa IN 1 .. tab_kounter
LOOP
if aa = 1 then
SELECT XMLELEMENT
("dataset",
xmlattributes (v_top50id1 AS "Id"),
XMLELEMENT ("set",
xmlattributes (aa AS "Id",
tab_rec (aa).tsegment AS "value"
).getclobval ()
INTO tablob --clob type
FROM DUAL;
end if;
END LOOP;
FOR bb IN 1 .. sql_kounter
LOOP
if bb = 1 then
SELECT XMLELEMENT
("dataset",
xmlattributes (v_top50id2 AS "Id"),
XMLELEMENT ("set",
xmlattributes (bb AS "Id",
sql_rec (bb).thash AS "value"
).getclobval ()
INTO sqlob --clob type
FROM DUAL;
end if;
END LOOP;
FOR cc IN 1 .. session_kounter
LOOP
if cc= 1 then
SELECT XMLELEMENT
("dataset",
xmlattributes (v_top50id3 AS "Id"),
XMLELEMENT ("set",
xmlattributes (cc AS "Id",
sess_rec (cc).tsid AS "value"
).getclobval ()
INTO sesslob --clob type
FROM DUAL;
end if;
END LOOP;
FOR dd IN 1 .. dbuser_kounter
LOOP
if dd = 1 then
SELECT XMLELEMENT
("dataset",
xmlattributes (v_top50id4 AS "Id"),
XMLELEMENT ("set",
xmlattributes (dd AS "Id",
user_rec (dd).tuser AS "value"
).getclobval ()
INTO dbulob --clob type
FROM DUAL;
end if;
END LOOP;
FOR ee IN 1 .. ebs_kounter
LOOP
if ee = 1 then
SELECT XMLELEMENT
("dataset",
xmlattributes (v_top50id5 AS "Id"),
XMLELEMENT ("set",
xmlattributes (ee AS "Id",
ebs_rec (ee).tuser AS "value"
).getclobval ()
INTO ebslob --clob type
FROM DUAL;
end if;
END LOOP;
SELECT XMLELEMENT
("Chart",
xmlattributes (v_caption AS "caption",
v_subcaption AS "shownames",
v_xaxisname AS "showvalues",
v_yaxisname AS "decimals"
XMLELEMENT ("categories",
XMLELEMENT ("category",
xmlattributes (v_label1 AS "label")
XMLELEMENT ("category",
xmlattributes (v_label2 AS "label")
XMLELEMENT ("category",
xmlattributes (v_label3 AS "label")
XMLELEMENT ("category",
xmlattributes (v_label4 AS "label")
XMLELEMENT ("category",
xmlattributes (v_label5 AS "label")
XMLELEMENT ("category",
xmlattributes (v_label6 AS "label")
tablob, --clob type
sqlob, --clob type
sesslob, --clob type
dbulob, --clob type
ebslob --clob type
).getclobval ()
INTO v_top50 --clob type
FROM DUAL;
DBMS_LOB.append (v_xmlmessage, v_top50); --both are clob type
v_filename := 'Top50.xml';
writexml (p_dir_path => v_dir_path,
p_filename => v_filename,
p_xml => v_xmlmessage
);