Need the output of a query in given XML format

Question

I have a table as
create table t_cases (case_id number, pros_seq number, case_lname varchar2(100),
day_phone number, night_phone number, intl_phone number);
where case_id and pros_seq is the compound primary key.
The insert script to insert the data in the table is
insert into t_cases values(1, 1, 'test', 12, 23, 34);
insert into t_cases values(1, 2, 'test', 56, 67, 78);
commit;
Now from this table I need to query and fetch the data in the following xml format.
<case REPEATINGTYPE="PageList">
<rowdata REPEATINGINDEX="1">
<caseid>1</caseid>
<prosseq>1</prosseq>
<PhoneNumbers REPEATINGTYPE="PageList">
<rowdata REPEATINGINDEX="1">
<CountryCode>12</CountryCode>
<Type>Day</Type>
</rowdata>
<rowdata REPEATINGINDEX="2">
<CountryCode>23</CountryCode>
<Type>Night</Type>
</rowdata>
<rowdata REPEATINGINDEX="3">
<CountryCode>34</CountryCode>
<Type>International</Type>
</rowdata>
</PhoneNumbers>
</rowdata>
<rowdata REPEATINGINDEX="2">
<caseid>1</caseid>
<prosseq>2</prosseq>
<PhoneNumbers REPEATINGTYPE="PageList">
<rowdata REPEATINGINDEX="1">
<CountryCode>56</CountryCode>
<Type>Day</Type>
</rowdata>
<rowdata REPEATINGINDEX="2">
<CountryCode>67</CountryCode>
<Type>Night</Type>
</rowdata>
<rowdata REPEATINGINDEX="3">
<CountryCode>78</CountryCode>
<Type>International</Type>
</rowdata>
</PhoneNumbers>
</rowdata>
</case>
Please let me know how to do this.

Answer 1

Like this...
select XMLELEMENT( "case", XMLATTRIBUTES ('PageList' as "RepeatingType")
                 ,xmlagg(
                          xmlelement("rowdata", xmlattributes(pros_seq as "RepeatingIndex")
                                    ,xmlelement("caseid", case_id)
                                    ,xmlelement("prosseq", pros_seq)
                                    ,xmlelement("PhoneNumbers", xmlattributes('PageList' as "RepeatingType")
                                               ,xmlelement("rowdata", xmlattributes(1 as "RepeatingIndex")
                                                          ,xmlelement("CountryCode", day_phone)
                                                          ,xmlelement("Type", 'Day')
                                               ,xmlelement("rowdata", xmlattributes(2 as "RepeatingIndex")
                                                          ,xmlelement("CountryCode", night_phone)
                                                          ,xmlelement("Type", 'Night')
                                               ,xmlelement("rowdata", xmlattributes(3 as "RepeatingIndex")
                                                          ,xmlelement("CountryCode", intl_phone)
                                                          ,xmlelement("Type", 'International')
        as x
from t_cases