XML DECODE

<CDDate="2003年01月01日T00:00:00Z"Description="This double CD reissued by EMI in 1995 combines 
4 Stabat mater hymns. One by Rossini interpreted by the Berlin Symphony Orchestra, directed by Karl Forster. 
Followed by a work of Verdi, by the Philharmonic Orchestra, directed by Carlo Maria Giulini. On the second CD, 
you will find Francis Poulenc interpreted by Régine Crespin. This compilation ends with a little-known version, that of the Polish composer Karol Szymanowski. Polish National Radio Symphony Orchestra directed by Antoni Wit"
Double="true"
Duration="7246"
Type="Sacred music"
CD_ID="5"
Performer="Various"
Price="8.5"
Title="4 Stabat mater"/>

 Repeat
  MyEvent:=SAX Get XML node(DocRef)

  Case of
    :(MyEvent=XML Start Element)
     ARRAY TEXT(arrAttrNames;0)
     ARRAY TEXT(arrAttrValues;0)
     SAX GET XML ELEMENT(DocRef;vName;vPrefix;arrAttrNames;arrAttrValues)
     If(vName="CD")
       CREATE RECORD([CD])
       For($i;1;Size of array(arrAttrNames))
        $attrName:=arrAttrNames{$i}
        Case of
          :($attrName="CD_ID")
           XML DECODE(arrAttrValues{$i};[CD]CD_ID)
          :($attrName="Title")
           [CD]Work:=arrAttrValues{$i}
          :($attrName="Price")
           XML DECODE(arrAttrValues{$i};[CD]Price)
          :($attrName="Date")
           XML DECODE(arrAttrValues{$i};[CD]Date entered)
          :($attrName="Duration")
           XML DECODE(arrAttrValues{$i};[CD]Total_duration)
          :($attrName="Double")
           XML DECODE(arrAttrValues{$i};[CD]Double_CD)
        End case
       End for
     End if
     ...
  End case
 Until(MyEvent=XML End Document)