REST Webservices / Verwendung von SYSTOOLS

[dschroeder]

Hallo

vllt. kommt auch noch PHP ins Spiel.

Da gibt es fertige Konvertierungen von und nach JSON --> XML

Gruß
Michael

Aus meiner Sicht benötige ich die Konvertierung zwischen JSON und XML nicht. Ich will ja gerade nicht XML machen, weil das (aus meiner Sicht) Komplexer ist als JSON.
Grundsätzlich finde ich die Idee mit PHP aber nicht schlecht. Ich habe mich damit aber noch nie befasst. Lohnt es sich, damit etwas zu machen? Kann man irgendwie eine "Verbindung" zwischen RPG und PHP herstellen? Ich meine, aus RPG heraus nutzt man ja ab und zu ein paar Funktionen aus C. Eben weil es da irgendetwas gibt, was man im RPG nicht zur Verfügung hat. Könnte man PHP auch in der Art nutzen? Oder muss man auf PHP-Funktionalitäten immer per Webservice zugreifen?

Dieter

[dschroeder]

Übrigens natürlich auch Dank an alle, denen ich nicht direkt geantwortet habe!
Ich werde mir alle Hinweise ansehen!
Dieter

[Fuerchau]

PHP ist eine Scriptsprache und kann via Interpreter auch direkt ohne Web ausgeführt werden.
Irgendwo habe ich da auch mal ein Bespiel gesehen.
Es funktioniert halt ähnlich wie ein Java-Aufruf per QSH (auch wenn es ein JAVA-Kommando gibt).
Aber ob das Sinn macht?

[dschroeder]

PHP ist eine Scriptsprache und kann via Interpreter auch direkt ohne Web ausgeführt werden.
Irgendwo habe ich da auch mal ein Bespiel gesehen.
Es funktioniert halt ähnlich wie ein Java-Aufruf per QSH (auch wenn es ein JAVA-Kommando gibt).
Aber ob das Sinn macht?

Wenn man in einem Job Java verwendet, behält man ja immer die VM. Wenn das bei PHP nicht so ist, wäre das ja schon mal ein Fortschritt.
Dieter

[BenderD]

... eine wurmige Bohle wird nicht stabiler, wenn man zusätzliche morsche Bretter drauflegt...

D*B

[camouflage]

Oder vielleicht doch mit PowerRuby on i ...
http://powerruby.com/


Man muss sich nur im Klaren sein, was so "Abenteuer" so nach sich ziehen - dann wird alles gut, vielleicht. Uebringens, wenn PHP - dann sollte man sich auch gleich mit Zend und MySQL beschäftigen.

[andreaspr@aon.at]

Also wenn du PHP verwenden möchtest, dann gleich ganz.
In PHP kannst du sehr einfach mit nur wenigen Zeilen Code ein WebService erstellen (bzw. irgendeinen HTTP Request entgegennehmen).
Und im Internet gibt es mehr als genug Beispiele, die größtenteils auch auf der IBM i funktionieren.

Du könntest dann auch aus PHP heraus einfach RPG PGMs aufrufen.
Dies geht dann am besten via SQL, wo du ein RPG (PGM oder Prozedur in SRVPGM) in eine Externe SQL Prozedur verpackst.
Du kannst auch mit SQL direkt auf die DB2 zugreifen.

So machen wir das bei ein paar Web Anwendungen.

lg Andreas

[dschroeder]

Klingt alles sehr interessant. Ich werde die Optionen mit meinen RPG- und Java-Kollegen besprechen.
Vielen Dank.

[sflo]

Hallo zusammen,

ich habe so ein ähnliches Problem, ich möchte gerne die Funktionen SYSTOOLS.HTTPPOSTCLOBVERBOSE um mit einem URL per HTTPS zu kommunizieren. Hat jemand Erfahrung damit von der AS400 aus? Zusätzlich muss ich einen Proxy-Server für die Kommunikation einsetzen. Für alle Hinweise bin ich sehr dankbar, vielen Dank!

Grüße,
Claudia

[andreaspr@aon.at]

Hallo Claudia,

Was genau brauchst du denn?
Die SQL Funktion hast du ja schon gefunden.

[sflo]

Hallo Andreas,

ich kann die Funktion nur mit Proxy verwenden. Weiß jemand, wie und wo ich die Proxy-Einstellungen dafür machen kann? Die Funktion SYSTOOLS.HTTPPOSTCLOBVERBOSE hat auch ein HTTPHEADER als Parameter. Müssen diese dahin eingetragen werden oder in den JAVA-Systemeigenschaften? Hat jemand schon mal so ein HTTPPOST mit den SYSTOOLS durchgeführt?

Vielen Dank!
Viele Grüße,
Claudia

[RobertMack]

Wir haben allerdings noch nichts implementiert, um Daten über so einen Webservice in die iSeries hereinzubekommen.

Ich konnte nicht erkennen in welchem Umfang Ihr Daten in die i holen wollt, möglicherweise ist Scott Klement's HTTP API schon die Lösung: http://www.scottklement.com/httpapi/

Im RPGLE sieht das dann so aus:


H DEBUG DFTACTGRP(*NO) BNDDIR('HTTPAPI')
/copy httpapi_h
D toString PR 10I 0
D Fd 10I 0 value
D Data 65535A options(*varsize)
D Len 10I 0 value
D Rc S 10I 0
D Url S 256A varying
D Result S 65535A varying
**
C *ENTRY PLIST
C PARM $String 50
C PARM $Err 1
**
C EVAL URL = 'https://my.intranet.local'
C + '/myservice.php?string='
C + %Trim($String)
**
C EVAL Result = ''
C EVAL Rc = http_url_get_raw( Url
C : 0
C : %paddr(toString))
**
C IF Rc <> 1
C Callp http_crash
C ENDIF
**
C IF %len(result) > 0
C Callp HTTP_xlatep( %len(result)
C : %addr(result) + 2
C : TO_EBCDIC )
C ENDIF
**
C IF %subst(result:1:1) = '0'
C EVAL $Err = *On
C ENDIF
C EVAL *InLr = *On
**
P toString B
D toString PI 10I 0
D Fd 10I 0 value
D Data 65535A options(*varsize)
D Len 10I 0 value
/free
result += %subst(Data:1:Len);
return Len;
/end-free
P E


(sorry, krieg' die Darstellung als Code nicht hin ;- )