O programa abaixo consome um webservice e exporta o retorno para um arquivo .XML no diretório C:\.

DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hConsultaValorPortType AS HANDLE NO-UNDO.
DEFINE VARIABLE ConsultaValor AS LONGCHAR NO-UNDO.
DEFINE VARIABLE ConsultaValorResponse AS LONGCHAR NO-UNDO.

ASSIGN ConsultaValor = “xml de entrada”.

CREATE SERVER hWebService.
hWebService:CONNECT(“-WSDL ‘http://…. seu wsdl”) NO-ERROR.
RUN ConsultaValorPortType SET hConsultaValorPortType ON hWebService NO-ERROR.
RUN INVOKE IN hConsultaValorPortType(INPUT ConsultaValor, OUTPUT ConsultaValorResponse).

OUTPUT TO c:\valor.xml.
EXPORT ConsultaValorResponse.
OUTPUT CLOSE.

DELETE procedure hConsultaValorPortType.
hWebService:disconnect().
DELETE OBJECT hWebService.

Funciona que é uma beleza….😀