ibm-midrange - IBM AS400 ベースの RPG/iseries

Question

IBM AS400 ベースの rpg/iseries プログラムから https api にアクセスする必要があります。

これを試すために「Mocha W32 TN5250」をインストールしましたが、セッションに接続できませんでした。

IBM AS400 ベースの rpg/iseries プログラムから https 呼び出しを行うことは可能ですか?

Answer 1

一般的に使用される方法は、Scott Klement の http パッケージを使用することです。

これは、使用するベンダーから Web サービスを呼び出す必要があるときに使用したものです。

Answer 2

SQL では、IBM が SYSTOOLS で提供するHTTP 関数を使用できます 。IBM PartnerWorld ホワイト・ペーパー
を参照してください 。

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

BVS Toolsでの Brad Stone のソリューション- GetURIは、コマンド ライン インターフェイスと、多くの Web サービスを正常に使用するために使用した API を提供します。

(ここでは、Scott のものよりも軽量な代替案として言及されています。Scott や彼のツールを軽視するつもりはまったくありません!)