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

Just got back in the office, downloaded the newer version
and it worked fine the first time!!
Surprised someone didn't tell me there was a newer version
right off the bat
It would have saved me a lot of time.

Now I shall compare your new version to the changes I made
and see what I was missing.

Thanks Scott

-----Original Message-----
From: Scott Klement [mailto:rpg400-l@xxxxxxxxxxxxxxxx]
Sent: Sunday, June 02, 2013 10:00 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Attempting to learn Web Services (by example)

John,

My copy of LOCWEATH was already modified for the changes in
the NOAA's
web service back in September 2011. I don't know what the
old copy
looks like anymore, so I can't tell you which lines to
change.

In an attempt to help you, I've put the new copy here:
http://www.scottklement.com/rpg/Weather.zip

Take a look, and maybe you'll see what I've changed.

-SK

On 6/2/2013 2:44 PM, John Allen wrote:

Scott,

I have looked at this web page and all the links

Unfortunately I am

new at this web services stuff (trying to learn by using

your example

program LOCWEATH)

So I did go to this web page and looked at all the links

and it

doesn't help me the newbie.

I changed what I though needed to be changed but I get the

same error

:( Can you tell me what line or lines in your program

LOCWEATH would

need to be changed and what they need to be changed to?

Once I get the program working then I think I can play

around with it

and learn better (I prefer learn by example
method)

Thanks in advance for all your help

-----Original Message-----
From: Scott Klement [mailto:rpg400-l@xxxxxxxxxxxxxxxx]
Sent: Saturday, June 01, 2013 7:57 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Attempting to learn Web Services (by example)

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.p

hp

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

--
This is the RPG programming on the IBM i (AS/400 and
iSeries) (RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change

list

options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting,

please take a

moment to review the archives at

http://archive.midrange.com/rpg400-l.

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2013.0.2904 / Virus Database: 3184/6369 - Release
Date: 05/30/13

--
This is the RPG programming on the IBM i (AS/400 and
iSeries) (RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2013.0.2904 / Virus Database: 3184/6369 - Release
Date: 05/30/13