IBM на базе AS400 rpg/iseries

Question

Нам нужно получить доступ к https api из программы rpg/iseries, основанной на IBM AS400.

Для этого мы установили «Mocha W32 TN5250», но не смогли подключиться к сеансу.

Возможно ли сделать вызов https из программы на основе rpg/iseries на базе AS400 от IBM?

Answer 1

Наиболее часто используемым методом является использование Scott Klement's http package

Это то, что мы использовали, когда нам нужно позвонить веб-сервисов от поставщика мы используем.

Answer 2

Решение Brad Stone в BVS Tools - GetURI предоставляет интерфейс командной строки, а также API, который мы использовали для успешного использования множества веб-сервисов.

(Упомянутый здесь как потенциально более легкой альтернативой, чем Скотт - абсолютно никакого неуважения означало для Скотта или его инструменты)

Answer 3

В SQL можно использовать HTTP functions предоставляемые IBM в SYSTOOLS.
См. IBM PartnerWorld White Paper.

Просто вставьте SQL в свою программу RPG.

Например:

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 
    ;