Datei aus dem Web laden und im IFS speichern

[sargejogi]

Hallo,

Danke für eure Antworten.
Leider läuft auf der AS400 noch 6.1 :-)
Lässt sich das dort auch zum Laufen bringen ?

LG
Jogi

[Rainer Ross]

Dir kann geholfen werden. Für Systeme ab V4.2 gibt es die HTTPAPI von Scott Klement unter folgendem Link https://www.scottklement.com/httpapi/httpapi_zip.html

Anbei ein Beispiel-CL mit Aufruf des Google-Maps Webservice

/*********************************************************************/
/*                                                                   */
/* GET GOOGLE-MAPS XML-DATA                                          */
/*                                                                   */
/******************                                                  */
/* R.ROSS 01.2017 *                                                  */
/*********************************************************************/

   PGM

   DCL        VAR(&URL)  TYPE(*CHAR) LEN(256)
   DCL        VAR(&STMF) TYPE(*CHAR) LEN(256)

   MONMSG     MSGID(CPF0000)
/*********************************************************************/
/* GET XML-DATA                                                      */
/*********************************************************************/

   CHGVAR     VAR(&URL) +
                VALUE('http://maps.googleapis.com/maps/api/+
                geocode/xml?address=schmalholzstr. +
                27,kaufering&components=country:DE')

   CHGVAR     VAR(&STMF) VALUE('/tmp/googmaps.xml')

   HTTPAPI    URL(&URL) DOWNLOAD(&STMF) DEBUG(*NONE)

   CHGATR     OBJ(&STMF) ATR(*CCSID) VALUE(1208)

/*********************************************************************/
/* ENDE                                                              */
/*********************************************************************/
   ENDE:        ENDPGM
/*********************************************************************/ 

Herzliche Grüße

Rainer