//***************************************************************************************** //*** *** //*** Mapquest_rest, version 1 *** //*** intended as a demo script, it can be used to send JSON commands *** //*** to Mapquest for any desired and supplied interface *** //*** *** //*** Author: Bernd Heinen, SAS Institute, June 2020 *** //*** *** //*** Please read the disclaimer at the bottom of this code. *** //*** *** //***************************************************************************************** Mapquest_rest = Function( {key = "", url = "", jsonarray = "", debug = 0}, {gcres, httpcode, httpmsg, captxt}, parmmat = Matrix( Eval List( {!(key == ""), !(url == ""), !(jsonarray == "")} ) ); If( debug, Show( parmmat, V Sum( parmmat ) ) ); If( debug, Write( "\!n\!nRESTcall: ", url, " - ", key, "\!n ", jsonarray, "\!n Total Parameters supplied: ", V Sum( parmmat ) ) ); If( V Sum( parmmat ) == 0, id = New Window( "Interface Declaration REST Call", <=1 every activity will be logged", <