基于IBM AS400的rpg/iseries

Question

我们需要从基于IBM AS400的rpg/iseries程序访问https api。

要尝试此操作，我们安装了“摩卡W32 TN5250”，但无法连接到会话。

是否有可能从基于IBM AS400的rpg/iseries程序进行https呼叫？

Answer 1

的常用方法是使用Scott Klement's http package

这是我们使用的时候，我们需要从我们使用一个供应商调用Web服务。

Answer 2

Brad Stone的解决方案BVS Tools - GetURI提供了一个命令行界面以及一个我们用来成功消耗大量Web服务的API。

（这里所提到比斯科特的一个潜在替代打火机 - ！绝对没有不敬的意思斯科特和他的工具）

Answer 3

在SQL，您可以使用由IBM提供SYSTOOLS HTTP functions 。
请参阅 IBM PartnerWorld White Paper。

只需在您的RPG程序中嵌入SQL即可。

例如：

dcl-s city  varchar(60); 
dcl-s state  varchar(2); 
dcl-s zip  varchar(10); 
dcl-s area  varchar(3); 
dcl-s zone  varchar(3); 

EXEC SQL 
SELECT city, state, zip, areacode, timezone 
    INTO :city, :state, :zip, :area, :zone 
    FROM XMLTABLE('$doc/NewDataSet/Table' PASSING 
       XMLPARSE(DOCUMENT SYSTOOLS.HTTPGETCLOB('http://www.webservicex.net/uszip.asmx/GetInfoByZIP?USZip=49525','')) AS "doc" 
       COLUMNS 
        City  VARCHAR(60) PATH 'CITY', 
        State  VARCHAR(2) PATH 'STATE', 
        Zip  VARCHAR(10) PATH 'ZIP', 
        AreaCode VARCHAR(3) PATH 'AREA_CODE', 
        TimeZone VARCHAR(3) PATH 'TIME_ZONE' 
       ) AS WebServiceResult 
    ;