如何在OpenEdge Progress4GL中将XML响应转换为临时表

Question

Hello Progress4GL Developers，

我正在尝试使用进度来使用SOAP API。目前，我正在使用一个开源示例SOAP服务，名为：http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL.

以下程序实现了一个梦想(即用户输入国家代码，如"ESP"，并向用户显示有关西班牙的详细信息(。结果存储在临时表1和临时表2:中

/******* Sample Application to show Progress4GL Consuming a SOAP API *************/
/******* VARIABLES ***************************************************************/
DEFINE VARIABLE lReturn AS LOGICAL NO-UNDO.
DEFINE VARIABLE hServer AS HANDLE NO-UNDO.
DEFINE VARIABLE hPortType AS HANDLE NO-UNDO.
DEFINE VARIABLE capitalCity as LONGCHAR NO-UNDO.
DEFINE VARIABLE iCntryCode as char no-undo label "Country Code".
DEFINE VARIABLE oResponse as LONGCHAR no-undo.
/******* CONNECTION SETTINGS TO SOAP SERVICE *************************************/
CREATE SERVER hServer.
lReturn = hServer:CONNECT("-WSDL http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL"). 
IF lReturn = NO THEN DO:
MESSAGE
"Could not connect to WebService server".
END.
/******* SETTING PORT TYPE *******************************************************/
RUN CountryInfoServiceSoapType SET hPortType ON SERVER hServer.
IF NOT VALID-HANDLE(hPortType) THEN DO:
MESSAGE
"Could not establish portType".
END.
/****** USER UPDATE FORM**********************************************************/
UPDATE iCntryCode. 
/****** NAME OF DATA FUNCTION TO RUN *********************************************/
RUN FullCountryInfo IN hPortType (INPUT iCntryCode, OUTPUT oResponse) NO-ERROR.
/****** TEMP TABLE TO HOLD ALL CAPITAL CITY FIELDS *******************************/
DEFINE TEMP-TABLE temptable1 
SERIALIZE-NAME "sCapitalCity" 
FIELD capitalCity AS CHAR XML-NODE-TYPE "text". 
/****** DATASET WHICH RUNS CONVERSION ********************************************/
DEFINE DATASET dsa SERIALIZE-NAME "FullCountryInfoResult" FOR temptable1. 
/***** TEMP TABLE TO HOLD ALL CURRENCY FIELDS ************************************/
DEFINE TEMP-TABLE temptable2 
SERIALIZE-NAME "sCurrencyISOCode" 
FIELD currencyCode AS CHAR XML-NODE-TYPE "text". 
/****** DATASET WHICH RUNS CONVERSION ********************************************/
DEFINE DATASET dsb SERIALIZE-NAME "FullCountryInfoResult" FOR temptable2.
/****** POPULATE DATASET AND TEMP-TABLES FROM SOAP RESPONSE **********************/
DATASET dsa:READ-XML( "longchar", oResponse, ?, ?, ? ). 
DATASET dsb:READ-XML( "longchar", oResponse, ?, ?, ? ).
FOR EACH temptable1 no-lock, each temptable2 no-lock:
DISPLAY temptable1.capitalcity temptable2.currencyCode.
END.
PAUSE 100.
/****** STOP CONNECTION TO SERVER ************************************************/
DELETE PROCEDURE hPortType.
hServer:DISCONNECT().
DELETE OBJECT hServer.

但是，此示例web服务还有一个名为FullCountryInfoAllCountrys的过程。这将对所有国家作出回应。我已经尝试重新考虑上面的代码，以便所有的temp-table1和temp-table2都将填充所有国家/地区，但是我在解析XML数据时遇到了困难。

我尝试过NAMESPACE-URI、SERIALIZATION-NAME和XML-NODE-NAME语句，但都无法使其发挥作用。我遇到的问题是，FullCountryInfoAllCountrys的XML响应的结构与FullCountryInfo不同，而且我总是收到一个类似"Namespace not found"的错误，否则它将在临时表中不返回任何内容。

非常感谢！

Answer 1

您可以通过消息传递响应(注释掉(来查看输出，然后可以将其映射到数据集、临时表和字段名称：

define variable hs as handle no-undo.
define variable hp as handle no-undo.
define variable lcresponse as longchar no-undo.
define temp-table tt serialize-name "tCountryInfo" 
field sISOCode as character
field sName    as character
.
define dataset ds serialize-name "FullCountryInfoAllCountriesResult" for tt. 
create server hs.
hs:connect( "-WSDL http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL" ). 
run CountryInfoServiceSoapType set hp on server hs.
run FullCountryInfoAllCountries in hp ( output lcresponse ).
// message string( substring( lcresponse, 1, 30000 ).
dataset ds:read-xml( "longchar", lcresponse, ?, ?, ? ). 
for each tt:
display tt.
end.
delete procedure hp.
hs:disconnect().
delete object hs.