AS/400 fans only ' Take it for fun - How to download data from a Web Service - Weather report from openweathermap.org
Weather report from openweathermap.org first of all get your own API key on https://openweathermap.org/ , it's free. The Key looks like '35a545c6ce3bda8347f588353aa59fbd' Compile and run the program below to create the WBSWL00F table that will contain the weather data for a location, each row one location. WBSWL00F.SQLRPGLE **free ********************************* * create WBSWL00F Location list * ********************************* ctl-opt option(*nodebugio) dftactgrp(*no) actgrp(*new); // The EXEC SQL is never executed. It is used at compile time. exec sql Set Option Commit = *None; // Create File exec sql create table WBSWL00F ( WWIDNM numeric (9, 0) generated always as identity, WWORIN TIMESTAMP NOT NULL DEFAULT CURRENT TIMESTAMP, WWORCR TIMESTAMP GENERATED ALWAYS FOR EACH ROW ON UPDATE AS ROW CHANGE TIMESTAMP NOT N