如何在RPGLE程序中调用外部Java系统的SOAP POST接口获取发票值？

核心结论 #

RPGLE没有专门内置的SOAP调用子程序，但可以通过以下几种成熟方法实现对接：

方法1：使用IBM HTTP API（最常用） #

利用IBM i自带的HTTPAPI工具包（免费，需提前安装）构建SOAP请求并发送POST请求，步骤如下：

• 先通过GO LICPGM检查系统是否已安装HTTPAPI（程序编号5733-HF1），未安装则需先部署
• 编写RPGLE代码时，调用http_post()子程序，传入WebService地址、SOAP请求报文，处理返回响应
• 关键代码示例：

dcl-pr http_post extproc('HTTP_POST');
   url char(2048) const;
   data char(65535) const;
   len int(10) const;
   resp char(65535) options(*varsize);
   resp_len int(10) options(*varsize);
   errmsg char(512) options(*varsize);
end-pr;

dcl-s url char(2048) inz('http://your-java-webservice-url/InvoiceService');
dcl-s soapReq char(65535) inz('<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:inv="http://your-namespace">【完整SOAP请求报文内容】</soapenv:Envelope>');
dcl-s soapResp char(65535);
dcl-s respLen int(10) inz(%len(soapResp));
dcl-s errMsg char(512);

// 发送POST请求
if http_post(url: soapReq: %len(soapReq): soapResp: respLen: errMsg) <> 0;
   dsply ('调用失败：' + errMsg);
else;
   // 解析SOAP响应中的发票数值，可使用RPGLE的XML-INTO或XML-SAX API
   dsply ('响应内容：' + soapResp);
endif;

• 注意：需手动构造符合目标WebService规范的SOAP XML报文，解析返回结果时可借助RPGLE原生XML处理能力。

方法2：使用IBM i Integrated Web Services Client #

通过IBM i集成Web服务客户端工具，将Java WebService的WSDL文件生成RPGLE存根代码，直接调用生成的子程序：

• 操作步骤：
  1. 登录IBM i Navigator，进入Integrated Web Services -> Client
  2. 导入目标WebService的WSDL文件
  3. 生成RPGLE客户端存根程序
  4. 在业务RPGLE程序中调用存根子程序，传入指定参数即可获取发票数值
• 优势：无需手动构造SOAP报文，参数与返回值自动映射，开发效率更高。

方法3：第三方/开源工具辅助 #

若WebService支持REST+JSON格式，可搭配YAJL等开源库处理JSON数据，但针对SOAP场景，前两种方法适配性更强。

内容的提问来源于stack exchange，提问作者Kunal Roy