As we are talking about ip address

[Dino]

This worked well to find/confirm the public ip in use by the as400:

Code: Select all

Define_Com Class(#XPRIM_HttpRequest) Name(#HttpRequest) 
#HttpRequest.DoGet Url('https://ipinfo.io/what-is-my-ip') 
#HttpRequest.Response.AsFile Path('/tmp/whatismyip.txt') Result(#IO$STS)

Then check the content of that file.

It can also be used to quickly access data from a web page from the as400.

If you display the result and just see garbled data, try changing the ccsid of the resultant file to 1252

[adale]

Dino,
Working with the XPRIM_HttpRequest.Response, I find in my simple tests, that once you perform an action on the response (#HttpRequest.Response.AsFile, or #HttpRequest.Response.AsJson, etc.) that the response data is no longer available for further processing.

I first left it with the .AsFile to save the data in the IFS as a file, but also wanted to read the json data to just pull out the IP address info using the .AsJson intrinsics to send back to the initiating dialog in my case.
I can get the response as either .AsFile, or .AsJson, but not both in the same routine run.

Is this correct? Or, is there another step I need in order to preserve the response data for further processing?