Hola @Paulo
Con estos objetos (
ChilkatXml ,
ChilkatHttp1 ,
ChilkatHttpResponse ) de Chillkat no he trabajado pero con otros si.
Encontre un ejemplo en vb6 Link
https://www.example-code.com/vb6/soap_web_service.asp
Traducido a PowerCobol algo asi seria :
Espero esto te ayude en algo.
Código COBOL:
WORKING-STORAGE SECTION.
01 success pic s9(9) comp-5.
01 XmlFile pic x(50) value spaces.
01 endpointUrl pic x(50) value spaces.
01 xmlContent pic x(50) value spaces.
01 xmlCharset pic x(5) value spaces.
01 responseStatusCode pic s9(9) comp-5.
PROCEDURE DIVISION.
*objetos usados
* ChilkatXml1
* ChilkatHttpResponse1
* ChilkatHttp1
*>-----------------------
*> xml
move "ukPostCodeSoap.xml" to XmlFile.
INVOKE ChilkatXml1 "LoadXml" USING XmlFile RETURNING success.
if success not = 1 then
display "error"
exit program
else
display "ok"
end-if.
INVOKE ChilkatXml1 "GetXml" RETURNING xmlContent.
display "xmlContent : " , xmlContent.
*>-----------------------
*> http
INVOKE ChilkatHttp1 "SetRequestHeader" USING "SOAPAction" "http://www.webserviceX.NET/GetUKLocationByPostCode".
INVOKE ChilkatHttp1 "SetRequestHeader" USING "Content-Type" "text/xml; charset=utf-8".
*>-------------------------
*> response
move "http://www.webservicex.net/uklocation.asmx" to endpointUrl.
move "utf-8" to xmlCharset.
INVOKE ChilkatHttp1 "PostXml" USING endpointUrl xmlContent xmlCharset RETURNING ChilkatHttpResponse1.
move "StatusCode" OF ChilkatHttpResponse1 to responseStatusCode.
display "Response Status Code: " , responseStatusCode.
Saludos...