Ler XML

Boa Noite Pessoal,

Tenho um programa que esta recebendo um XML com o get-value, gostaria de saber como posso converter os dados convertidos de texto para XML e ler o XML com o Progress, alguém teria um dica de como fazer ?

Aqui uma forma bem simples de fazer isso usando a API do StarWeb FrameWork.

Assumindo que o client envia um XML assim:

Código:

<?xml version="1.0" encoding="iso-8859-1" ?> 
<dados>
  <clientes>
    <codigo>0001</codigo> 
    <nome>Lift Line Skiing</nome> 
    <pais>USA</pais> 
  </clientes>
  <clientes>
    <codigo>0002</codigo> 
    <nome>Urpon Frisbee</nome> 
    <pais>Finland</pais> 
  </clientes>
   ...
</dados>

e que o mesmo esta numa variavel/parametro com o nome de "stringXML", poderia ser feito algo como:

Código:

DEFINE TEMP-TABLE clientes FIELD codigo AS CHARACTER
                           FIELD nome   AS CHARACTER
                           FIELD pais   AS CHARACTER.


{ cgi/cgi-cgi.i &carregarSuportePara="XML,HTTP"}

converteStringParaXML(GET-VALUE("stringXML")).
{cgi/xml-load.i &tabela="clientes"}
FOR EACH Clientes:
    .....
END.