Question

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

为了尝试这个，我们安装了“Mocha W32 TN5250”，但无法连接到会话。

是否可以从基于IBM AS400的rpg / iseries程序进行https调用？

Answer 1

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

这是我们在需要从我们使用的供应商处调用Web服务时使用的内容。

Answer 2

在SQL中你可以使用 HTTP functions 由IBM在SYSTOOLS提供见 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
  ;

Answer 3

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

（这里提到的可能比斯科特更轻松 - 对斯科特或他的工具绝对没有任何不尊重！）

基于IBM AS400的rpg / iseries

3 个答案: