Yes i am debugging in 32 bit. Below is the function when this line lpbdom_Doc = lpbdom_Builder.BuildFromString(ls_xml_request) execucte then "Error calling method of PBNI Object" occurs.ls_xml_equest is too large.
TRY
IF gb_createqueue = FALSE THEN
//[Start] Added by Muhammad Asim on 07/Sep/2022
httpClient lhc_client
integer li_StatusCode
string ls_url,ls_xml_request, ls_ret, ls_data,ls_value
Constant Integer SECURE_PROTOCOL_TLS2 = 5
ls_url= "http://"+gs_server_name+"/WKFQueueManager.svc/Queue"
ls_xml_request ='<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/"><soapenv:Header/><soapenv:Body><tem:GetCMSWorkQueue><!--Optional:--><tem:userName>'+gnv_session.is_loginname+'</tem:userName></tem:GetCMSWorkQueue></soapenv:Body></soapenv:Envelope>'
lhc_client = Create httpClient
lhc_client.SetRequestHeader("Accept-Encoding","gzip,deflate")
lhc_client.SetRequestHeader("Content-Type", "text/xml;charset=utf-8")
lhc_client.SetRequestHeader("SOAPAction","http://tempuri.org/IQueueManager/GetCMSWorkQueue")
//lhc_client.Timeout = 120
lhc_client.SecureProtocol = SECURE_PROTOCOL_TLS2
li_ret = lhc_client.sendrequest("POST", ls_url,ls_xml_request )
li_StatusCode = lhc_client.GetResponseStatusCode()
ls_ret = lhc_client.GetResponseStatusText( )
li_ret = lhc_client.getresponsebody(ls_xml_request)
PBDOM_Builder lpbdom_builder
pbdom_document lpbdom_doc
lpbdom_builder = CREATE PBDOM_BUILDER
lpbdom_doc = CREATE PBDOM_DOCUMENT
PBDOM_OBJECT pbdom_obj_array[]
boolean lb_response
TRY
// generate XML Document
lpbdom_Doc = lpbdom_Builder.BuildFromString(ls_xml_request)
try
lb_response = lpbdom_Doc.GetRootElement().&
GetChildElement("Body", "s","http://schemas.xmlsoap.org/soap/envelope/").&
GetChildElement("GetCMSWorkQueueResponse","","http://tempuri.org/").&
GetChildElement("GetCMSWorkQueueResult","","http://tempuri.org/").&
GetContent(pbdom_obj_array)
IF lb_response THEN
ls_value = pbdom_obj_array[1].gettext()
ll_len = long( pbdom_obj_array[2].gettext())
ELSE
MessageBox( "WORKQUEUE", "Something went wrong While Retrieving WorkQueue")
END IF
CATCH (runtimeerror err)
MessageBox( "PBDOM_Exception", err.getMessage())
end try
CATCH (PBDOM_Exception lpbdom_Except)
MessageBox( "PBDOM_Exception", lpbdom_Except.GetExceptionCode())
END TRY
DESTROY lpbdom_Builder
if (isnull(ls_value) or ls_value = '') and ll_len = 0 then
RETURN
end if
CoderObject lnv_CoderObject
lnv_CoderObject = Create CoderObject
lblb_data = lnv_CoderObject.Base64Decode(ls_value)
DESTROY lnv_CoderObject
CATCH(RunTimeError er)
messagebox('Error',er.text)
HALT CLOSE
END TR