Highlighted
Super Contributor.
Super Contributor.
93 views

XML error 28 is confusing!

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 

28Error - in function: LoadDocumentAn 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
* "http://harlandfs/ECM/Services/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".

 

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.