Below code I should get response from web service. But, I got runtime error as """""Error : 28[34] -in function:Load document"""""
XML IMPORT TEXT
Doc-response
response-payload
response-len
"Doc-response"
if not XML-OK go to z.
I knew below description ... But, I could not think what could be issue. doc-response.xml file is getting generated at the time run time.... Or program expecting doc-response.xml should be created on my own? i am confused lot!!!! my requirement is to pass
| 28 | Error - in function: LoadDocument | An error was detected while trying to load an XML document. This normally means that there was a problem locating the document (either the document does not exist or there is a problem with permissions). This error may also occur if the input document contains an XML header but no elements. |
Identification division.
Program-id. Test.
Data division.
Working-storage section.
01 AuthenticatedTicket.
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(50) value
* "">harlandfs/.../Search".
"http://www.soapui.org/sample/login".
05 filler pic x value x"00".
78 Post-Address value
"https://px-demo.avcm.esvccenter.com/services/wse/WebSearch
- ".asmx".
78 Content-Type 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
AuthenticatedTicket
"Authrequest.xml"
"AuthenticatedTicket".
if not XML-OK go to z.
XML EXPORT TEXT
AuthenticatedTicket
request-payload
request-len
"AuthenticatedTicket".
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
"Doc-response"
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".
