Ibm midrange 基于IBM AS400的rpg/iseries

我们需要从基于IBMAS400的rpg/iseries程序访问HTTPSAPI

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

---

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

常用的方法是使用

---

当我们需要从我们使用的供应商那里调用web服务时，我们就使用了它

常用的方法是

当我们需要从我们使用的供应商那里调用web服务时，我们就使用了它

Brad Stone的at解决方案提供了一个命令行界面和一个API，我们已经成功地使用了很多web服务

（这里提到的可能比Scott更轻的替代方案-绝对不是对Scott或他的工具的不尊重！）

Brad Stone的at解决方案提供了一个命令行界面和一个API，我们已经使用它成功地使用了大量web服务

（这里提到的可能比Scott的更轻的选择-绝对不是对Scott或他的工具的不尊重！）

在SQL中，您可以使用 由IBM在SYSTOOLS中提供。
见 .

只需在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
  ;

在SQL中，您可以使用 由IBM在SYSTOOLS中提供。
见 .

只需在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
  ;

---

您想做什么？Mocha软件用于从客户机（例如您的计算机）连接到IBMi（iSeries，AS/400）。是的，您可以编写RPG程序来与web服务交互-使用Scott Klement的软件和示例（Warren链接的）是一种很好的方式。您想做什么？Mocha软件用于从客户端（例如您的计算机）连接到IBM i（iSeries，AS/400）。是的，您可以编写RPG程序来与web服务交互——使用Scott Klement的软件和示例（Warren链接的）是一种很好的方式。