Hi Friends,
I got error as "Bad Request - Invalid Content Length" error when logic execute XML IMPORT TEXT.
I attached below AuthResponse.xml which was generated in my directory... Please advise me how do i resolve this?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>
st</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=us-ascii"></HEAD>
<BODY><h2>Bad Request - Invalid Content Length</h2>
<hr><p>HTTP Error 400. There is an invalid content length or chunk length in the request.</p>
</BODY></HTML>
Attached my full program below. I am not sure whether i am doing it correct. My requirement is to pass the user name and password to the web service thru variable 'Doc-Authentication' and i should get response into variable Doc-response from webservice.
Identification division.
Program-id. Test.
Data division.
Working-storage section.
01 Doc-Authentication.
02 Doc-User Pic X(13) value 'testing'.
02 Doc-Pwd Pic X(09) value '123456'.
01 Doc-response.
02 Doc-token pic X(80).
01 request-payload usage pointer.
01 response-payload usage pointer.
01 response-status pic 9(3) value zero.
01 response-status-2 pic 9(3) value zero.
01 response-len pic s9(4).
01 request-len pic s9(4).
01 a-single-char pic x.
copy "lixmlall.cpy".
01 Desired-SOAP-Action.
05 filler pic x(10) value 'SOAPAction'.
05 filler pic x value x"00".
05 filler pic x(90) value
'"'.">harlandfs/.../ExecuteSearch"'.
05 filler pic x value x"00".
01 Post-Address pic x(63) value
"https://px-demo.avcm.esvccenter.com/services/wse/WebSearch
- ".asmx".
01 Content-Type pic X(25) value "text/xml; charset=utf-8".
linkage section.
01 http-response pic x(100).
procedure division.
main.
stop 'AuthrequestF2C.xsl'
stop 'AuthResponseF2C.xsl'.
XML INITIALIZE.
if not XML-OK go to z.
XML EXPORT FILE
Doc-Authentication
"Authrequest.xml"
"Doc-Authentication".
if not XML-OK go to z.
XML EXPORT TEXT
Doc-Authentication
request-payload
response-len
"Doc-Authentication".
if not XML-OK go to z.
call "NetInit"
giving
response-status.
call "NetSetSSLCA" using "ca-bundle.crt".
call "HttpPost"
using
Post-Address
Content-Type
request-payload
request-len
response-payload
response-len
Desired-SOAP-Action
giving
response-status.
set address of http-response to response-payload.
display "Response: ", response-status.
if not response-status = 0
call "NetGetError" using response-payload response-len
giving response-status-2
set address of http-response to response-payload
display "Error! ", response-status
display "Error message: ", http-response(1:response-len)
call "NetFree" using response-payload
go to z
end-if.
XML FREE TEXT
request-payload.
if response-payload = NULL
display "Error: NULL pointer returned", line 10, blink
accept a-single-char prompt
go to z
end-if.
XML PUT TEXT
response-payload
response-len
"Doc-response"
"AuthResponse.xml".
if not XML-OK go to z.
XML IMPORT TEXT
Doc-response
response-payload
response-len
"AuthResponse.xml".
if not XML-OK go to z.
call "NetFree"
using
response-payload.
call "NetCleanup".
z.
copy "lixmltrm.cpy".
display "finished.", line 20 position 5.
accept a-single-char prompt tab.
stop run.
copy "lixmldsp.cpy".



