Re: Attempting to learn Web Services (by example) -- RPG400-L

It would appear that the web service has moved to a different server. A quick Google finds this page with all the details:
http://graphical.weather.gov/xml/SOAP_server/ndfdXMLserver.php

On 6/1/2013 8:45 AM, John Allen wrote:

I thought I would come into the office today and see if I
could learn Web Services (by example).

I am trying to use Scotts Example Program LOCWEATH

Any help or pointers would be greatly appreciated

CALL LOCWEATH PARM('30097')

Compiles Fine

I can ping to the www.weather.gov

HTTP is up and running

I am trying this on IBM i 6.1

When I run the program I get error - HTTP/1.1 301 Moved
Permanently

(I have included the log file below)

Running in Debug I see the program gets to the
NOAA_LatLonZipCode procedure

Variable SOAP =

....5...10...15...20...25...30...35...40...45...50...55...60

1 '<soapenv:Envelope
xmlns:xsi="http://www.w3.org/2001/XMLSchem'

61 'a-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"; xml'

121
'ns:soapenv="http://schemas.xmlsoap.org/soap/envelope/";
xmlns'

181
':ndf="http://www.weather.gov/forecasts/xml/DWMLgen/wsdl/ndf
d'

241 'XML.wsdl"> <soapenv:Header/> <soapenv:Body>
<ndf:LatLonListZ'

301 'ipCode
soapenv:encodingStyle="http://schemas.xmlsoap.org/soa'

361 'p/encoding/"> <zipCodeList
xsi:type="xsd:string">30097</zipC'

421 'odeList> </ndf:LatLonListZipCode> </soapenv:Body>
</soapenv:'

481 'Envelope>
'

Then when http_xproc( HTTP_POINT_ADDL_HEADER

: %paddr(SoapActionLL) );

Is executed it appears to run ok

Then when rc = http_url_post_xml(
'http://www.weather.gov/forecasts/xml/+

SOAP_server/ndfdXMLserver.php'

: %addr(SOAP) + 2

: %len(SOAP)

: *NULL

: %paddr(endTag)

: %addr(LatLon)

: HTTP_TIMEOUT

: HTTP_USERAGENT

: 'text/xml');

Is executed rc=301

and http_error(errnum);

if (errnum<>HTTP_XMLERR or x=15);

http_crash();

endif;

causes the eventual error HTTP/1.1 301 Moved Permanently

Log file:

************Beginning of data**************

HTTPAPI Ver 1.23 released 2008-04-24

OS/400 Ver V6R1M0

New iconv() objects set, PostRem=819. PostLoc=0.
ProtRem=819. ProtLoc=0

http_persist_open(): entered

http_long_ParseURL(): entered

DNS resolver retrans: 2

DNS resolver retry : 2

DNS resolver options: x'00000136'

DNS default domain: DRVTECH.COM

DNS server found: 205.152.37.23

DNS server found: 205.152.150.23

http_persist_post(): entered

http_long_ParseURL(): entered

do_post(): entered

POST /forecasts/xml/SOAP_server/ndfdXMLserver.php HTTP/1.1

Host: www.weather.gov

User-Agent: http-api/1.23

Content-Type: text/xml

Expect: 100-continue

Content-Length: 489

SOAPAction:
"http://www.weather.gov/forecasts/xml/DWMLgen/wsdl/ndfdXML.w
sdl#LatLonListZipCode"

recvresp(): entered

HTTP/1.1 301 Moved Permanently

Server: Apache/2.2.15 (Red Hat)

Location:
http://graphical.weather.gov/xml/SOAP_server/ndfdXMLserver.p
hp

Content-Length: 352

Content-Type: text/html; charset=iso-8859-1

Date: Sat, 01 Jun 2013 13:36:19 GMT

Connection: keep-alive

SetError() #13: HTTP/1.1 301 Moved Permanently

recvdoc parms: identity 352

header_load_cookies() entered

recvdoc(): entered

SetError() #0:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head> <title>301 Moved Permanently</title>
</head><body> <h1>Moved Permanently</h1> <p>The document has
moved <a
href="http://graphical.weather.gov/xml/SOAP_server/ndfdXMLse
rver.php">here</a>.</p> < <hr> <address>Apache/2.2.15 (Red
Hat) Server at www.weather.gov Port 80</address>
</body></html>

SetError() #13: HTTP/1.1 301 Moved Permanently

http_close(): entered