在IBM i (OS/400)上使用RPG程序的WebService调用示例

该示例展示了如何在IBM i (OS/400)上使用RPG程序调用远程Web服务。这个简单的示例使用了IBM i (OS/400)的HTTPAPI服务以及SOAP客户端RPC。通过这个示例，你可以学习如何调用远程Web服务并处理返回的结果。

//引用所需的服务程序
        *USE HTTPAPI

        //声明调用WebService的入口参数
        Dcl-Pr CallWebService char(100) ExtProc('CallWebService');
          url char(100) const;
          soapAction char(100) const;
          soapEnvelope char(32000) const options(*varsize);
          soapResponse likeds(HTTPAPI_Response) options(*varsize);
        End-Pr;

        //声明所需的变量
        Dcl-C SERVER_URL 'http://www.webservicex.net/CurrencyConvertor.asmx?WSDL';
        Dcl-C SOAP_ACTION 'http://www.webserviceX.NET/ConversionRate';
        Dcl-C SOURCE_CURRENCY 'USD';
        Dcl-C TARGET_CURRENCY 'EUR';
        Dcl-C AMOUNT 100.0;
        Dcl-C SOAP_ENVELOPE '<?xml version="1.0" encoding="utf-8"?>
        <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
          <soap:Body>
            <ConversionRate xmlns="http://www.webserviceX.NET/">
              <FromCurrency>'+%Trim(SOURCE_CURRENCY)+'
              </FromCurrency>
              <ToCurrency>'+%Trim(TARGET_CURRENCY)+
              '</ToCurrency>
            </ConversionRate>
          </soap:Body>
        </soap:Envelope>';
        Dcl-S soapResponse HTTPAPI_Response_t;

        //调用WebService
        CallWebService(SERVER_URL:SOAP_ACTION:SOAP_ENVELOPE:%ADDR(soapResponse));

        //解析返回的SOAP响应，获取转换率
        Dcl-S conversionRate packed(10:4);
        Dcl-S startIdx int(10) inz(0);
        Dcl-S endIdx int(10) inz(0);
        Dcl-S requestTag char(256) inz('ConversionRateResult');
        Dcl-S responseText char(256) based(%ADDR(soapResponse.ResponseBody));
        startIdx = %Scan(requestTag:%Trim(responseText))+%Len(requestTag)+2;
        endIdx = %Scan('</'+requestTag+'>':%Trim(responseText),startIdx)-1;
        conversionRate = %Dec(responseText:startIdx:endIdx)/10000;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com