Out XML element values extract

Question

hi their
How can I out XML element the values extract and in a loop in variable and/or in an array store?
Example:
[loop]
<SA>'MS','GYM'</SA>
Values 'MS' and 'GYM' should be in variables e.g var1='MS' and var2='GYM'
[end loop]
Please, help me!!!! Urgent
thanx you for advice
kind regards
Holger

Answer 1

create or replace procedure spTestXML is
  xml   xmltype;
  test  varchar2(100);
  test2 xmltype;
  cursor lvCur_GetAllSecGrps is
    SELECT extractValue(value(asec), '/SEC_GRP/NAME') as Name
    FROM table(xmlsequence(xml)) a,
         table(xmlsequence(extract(value(a), '/EVENT/SEC_GRP_LIST/SEC_GRP'))) asec;
begin
  xml := xmltype('<EVENT>
<SWTSUPDATE TYPE="1">
<MEMBERID>9822598</MEMBERID>
<DATETIME>Fri Jun 09 14:51:33 CDT 2006</DATETIME>
<USERID>W951FVK</USERID>
</SWTSUPDATE>
<CONTACT_HISTORY>
<USER>
<USER_ID>W951FVK</USER_ID>
<FIRST_NAME>John</FIRST_NAME>
<LAST_NAME>Givens</LAST_NAME>
</USER>
<USER>
<USER_ID>W951FNN</USER_ID>
<FIRST_NAME>Mary</FIRST_NAME>
<LAST_NAME>McNair</LAST_NAME>
</USER>
<CONSUMER>
<CONS_SEQ_NBR>1387445</CONS_SEQ_NBR>
<FIRST_NAME>SPRINGHOUSE</FIRST_NAME>
<LAST_NAME>ELLIS</LAST_NAME>
</CONSUMER>
</CONTACT_HISTORY>
<SEC_GRP_LIST>
<SEC_GRP><NAME>cspupdatecustpayee</NAME><DESCRIPTION>Add/Update/Delete CSP Customer Payees</DESCRIPTION></SEC_GRP>
<SEC_GRP><NAME>cspupdatepayment</NAME><DESCRIPTION>Add/Update/Delete CSP Payment</DESCRIPTION></SEC_GRP>
<SEC_GRP><NAME>adminreports</NAME><DESCRIPTION>Administrate Reports</DESCRIPTION></SEC_GRP>
<SEC_GRP><NAME>billopscsr</NAME><DESCRIPTION>Bill Operations CSR</DESCRIPTION></SEC_GRP>
</SEC_GRP_LIST>
</EVENT>');
  if xml.existsNode('/EVENT/SEC_GRP_LIST/SEC_GRP/NAME') != 0 THEN
    for lvAllSecGrps in lvCur_GetAllSecGrps loop
      dbms_output.put_line('Found: '||lvAllSecGrps.Name);
    end loop;
  end if;
end spTestXML;gives
Found: cspupdatecustpayee
Found: cspupdatepayment
Found: adminreports
Found: billopscsrhth