Datei aus dem Web laden und im IFS speichern

[Rainer Ross]

Hallo,
@Andreas, danke für den Hinweis auf den Link

Für alle, die sich für das Thema interessieren, hier der Source für den Zugriff auf den Webservice von Google Maps, incl. dem Speichern des Ergebnisses ins IFS. Das geht ab 7.1. Das Parsen von XML-Daten geht mit XML-Into. Das Parsen von JSON-Daten geht mit JSON_TABLE. Auch hier gibt es bereits Post's zum Thema.

HTTPGETCLOB ist für Character-Daten vorgesehen. Für Bilder, PDF's oder MP3 nimmt man HTTPGETBLOB. Analog verwendet man für POST-Requests HTTPPOSTCLOB und HTTPPOSTBLOB.

@Birgitta Hauser, vielen Dank für Deine hervorragende Unterstützung im Bereich SQL

         ctl-opt main(main) dftactgrp(*no) option(*nounref);                    
      //------------------------------------------------------------------//    
      //                                                                  //    
      // GETHTTPCLOB from Google Maps API                                 //    
      //                                                                  //    
      //-----------------                                                 //    
      // R.Ross 01.2017 *                                                 //    
      //------------------------------------------------------------------//    
      // Variables                                                        //    
      //------------------------------------------------------------------//    
                                                                                
         dcl-s   myfile      sqltype(CLOB_FILE);      // CLOB-File              
                                                                                
         dcl-s   myurl       varchar(256);            // URL                    
         dcl-s   myheader    varchar(256);            // HTTP-Header            
         dcl-s   query       varchar(256);            // QueryString          
                                                                                
      //------------------------------------------------------------------//    
      // Procedure - Main                                                 //    
      //------------------------------------------------------------------//    
         dcl-proc main;                                                         
                                                                                
           exec sql set option datfmt=*iso, timfmt=*iso, commit=*none,          
                               closqlcsr=*endactgrp;                            
                                                                                
           myurl = 'https://maps.googleapis.com/maps/api/geocode/xml?' +        
                   'address=';                                                  
           query = '3605 US-52, Rochester, MN';                                 
                                                                                
      // URL-Encoding                                                           
                                                                                
           exec sql set :query = systools.urlencode(:query,'UTF-8');            
           myurl += query;                            // URL + QueryString      
                                                                                
           myfile_name = '/tmp/test.xml';             // StreamFile             
           myfile_nl   = %len(%trim(myfile_name));    // NameLength             
           myfile_fo   = SQFOVR;                      // FileOverwrite          
                                                                                
           exec sql values systools.httpgetclob (:myurl, :myheader)             
                      into :myfile;                                             
                                                                                
         end-proc;                                                              
      //------------------------------------------------------------------// 

Herzliche Grüße

Rainer