REST Webservices / Verwendung von SYSTOOLS

[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.

[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 ;- )