REST Webservices / Verwendung von SYSTOOLS

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