Re: XML request -- RPG400-L

1) You must double the x'0D25' in the line below:

C eval request = 'Content-Length: 59' + x'0D25'

=> request = 'Content-Length: 59' + x'0D250D25'

2) How did you know that the length of the data is 59?

Should you replace the line with

C eval request = 'Connection: Close' + x'0D250D25'

2008/1/28, Armbruster, Tom <Tom.Armbruster@xxxxxxxxxxxxxxx>:

The first thing that catches my attention are the beginning boundaries without end boundaries. You have the --AaB03x statements, but no --AaB03x-- to encapsulate. Add the end points to both defined boundaries first and see if you get the same error. If you do, then run in debug to check the header format.

Tom Armbruster
Senior Software Developer
Travelocity On Location
Phone (702) 798-5606 ext. 5542
Fax (702) 798-1957
tom.armbruster@xxxxxxxxxxxxxxx
http://www.showtickets.com <https://webmail.sabre.com/exchweb/bin/redir.asp?URL=http://www.showtickets.com>

________________________________

From: rpg400-l-bounces@xxxxxxxxxxxx on behalf of balasubramanian.p.sundaram@xxxxxxxxxxxxx
Sent: Mon 1/28/2008 6:52 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: XML request

All,

Can you please look at the piece of code...

Client Request:
C eval request = 'POST '+ %trim(file) +
C ' HTTP/1.1' + x'0D25'
C exsr sendDta

C eval request = 'Host: ' + %trim(host) +
C x'0D25'
C exsr sendDta

C eval request='Content-Type: multipart/form-dat
C 'boundary=' +
C 'AaB03x' +
C x'0D25'
C exsr sendDta

C eval request = 'Content-Length: 59' + x'0D25'
C exsr sendDta

C eval request ='--AaB03x' + x'0D25'
C exsr sendDta
C eval request = 'Content-Disposition: '+
C 'form-data; name='+'"version"'+
C x'0D25'
C exsr sendDta

C eval request ='--AaB03x' + x'0D25'
C exsr sendDta
C eval request = 'Content-Disposition:'+
C ' form-data; name='+
C ' "forx"' + x'0D25'
C exsr sendDta

C eval request = 'Content-Type: text/xml;' +
C ' charset= utf-8, boundary = BbC04y' +
C x'0D25'
C exsr sendDta

C eval request ='--BbC04y' + x'0D25'
C exsr sendDta
C eval request = 'Content-Disposition:'+
C ' attachment; filename = ' +
C '"/bala/test.xml"' +
C x'0D25'+ x'0D25'
C exsr sendDta

C exsr sendFile (Reading IFS file and send thro
socket)
C eval request = x'0D25'
C exsr sendDta

In sendDta is converting ascii to ebcdic format and write thro socket.

Response from the server
HTTP/1.1 400 Bad Request
Date: Mon, 28 Jan 2008 14:16:28 GMT
Server: Apache
Content-Length: 302
Connection: close
Content-Type: text/html; charset=iso-8859-1

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">

<HTML><HEAD>
<TITLE>400 Bad Request</TITLE>
</HEAD><BODY>
<H1>Bad Request</H1>
<P>Your browser sent a request that this server could not understand. <BR
/>
Request header field is missing ':' separator.<br/>
<pre>
--AaB03x</pre>
</P>
</body></html>

XML File
<?xml version="1.0" encoding="utf-8"?><ReqMsg>Z</ReqMsg>

What could be the problem? I'm trying for the past two days... Help
Plz....

Regards
Balasubramanian PS
-------------------------------------------------------------------------------------------------------------------
Dream!!! is not what you see in sleep.... is the thing which does not let
you sleep
--
This is the RPG programming on the AS400 / 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.

--
This is the RPG programming on the AS400 / 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.