Help Parsing XML Mesage using PeopleCode

Question

Hi all,
I'm new to web services and XML but was able to consume a WSDL and call the web service successfully.
I'm now trying to parse the XML message I’m getting as a response and to extract values i need and having issues Parsing the response. Below is what I have done and the code from my Test AE. Basically I’m trying to navigate to the "Results" element in the response and then use GetChildNode to get child nodes and then use FindNode to find elements and their values.
Here is the WSLD I consumed to create the web service in PS. I only need WSDL operation doSearch_3_15
[https://www.epls.gov/epls/services/EPLSSearchWebService?wsdl ]
My PC below calls the web service and passes last name “ZERMENO” as a search parameter and this should return 3 results back.
I’m grabbing the reply back and parse it to extract the values I need.
+&inXMLDoc = CreateXmlDoc("");+
+&ret = &inXMLDoc.ParseXmlString(&reply.GenXMLString());+
The issue I’m having is being able to get “inside” the results node (there are 3 of them) and loop through the child nodes and get my values.
Code from Test AE:
Local string &payload, &responseStr, &last;
Local Message &msg, &reply;
Local XmlDoc &xml, &inXMLDoc;
Local array of XmlNode &GetElements, &RecordList, &field1List, &aResultsNode;
Local XmlNode &RecordNode, &ClassificationNode;
Local File &MYFILE;
+&FilePath = "/psoft/fin9/fpsdv1/prod/ap/files/";+
+&FileName = "uhc_report.xml";+
+&MYFILE = GetFile(&FilePath | &FileName, "W", %FilePath_Absolute);+
+&payload = "<?xml version='1.0'?> <doSearch xmlns='https://www.epls.gov/epls/services/EPLSSearchWebService'>";+
+&first = "";+
+&last = "ZERMENO";+
+&payload = &payload | "<query><first>" | &first | "</first><last>" | &last | "</last></query> </doSearch>";+
+&xml = CreateXmlDoc(&payload);+
+&msg = CreateMessage(Operation.DOSEARCH_3_15, %IntBroker_Request);+
+&msg.SetXmlDoc(&xml);+
+&reply = %IntBroker.SyncRequest(&msg);+
If All(&reply) Then
If &MYFILE.IsOpen Then
+&MYFILE.WriteString(&reply.GenXMLString());+
Else
MessageBox(0, "", 0, 0, "Can't Open File.");
End-If;
+&inXMLDoc = CreateXmlDoc("");+
+&ret = &inXMLDoc.ParseXmlString(&reply.GenXMLString());+
If &ret Then
+&field1List = &inXMLDoc.GetElementsByTagName("results");+
If &field1List.Len = 0 Then
MessageBox(0, "", 0, 0, "GetElementsByTagName Node not found");
Error ("GetElementsByTagName Node not found");
+/* do error processing */+
Else
For &j = 1 To &field1List.Len
If &j > 1 Then
+MessageBox(0, "", 0, 0, &field1List [&j].NodeName | " = " | &field1List [&j].NodeValue);+
+&RecordNode = &inXMLDoc.DocumentElement.GetChildNode(&j);+
If &RecordNode.IsNull Then
MessageBox(0, "", 0, 0, "GetChildNode not found");
Else
+&ClassificationNode = &RecordNode.FindNode("classification");+
If &ClassificationNode.IsNull Then
MessageBox(0, "", 0, 0, "FindNode not found");
Else
+&SDN_TYPE = Substring(&ClassificationNode.NodeValue, 1, 50);+
MessageBox(0, "", 0, 0, "&SDN_TYPE = " | &SDN_TYPE);
End-If;
End-If;
End-If;
End-For;
End-If;
MessageBox(0, "", 0, 0, &inXMLDoc.DocumentElement.NodeName);
Else
+/* do error processing */+
MessageBox(0, "", 0, 0, "Error. ParseXml");
End-If;
Else
MessageBox(0, "", 0, 0, "Error. No reply");
End-If;
see link below for the XML reply web service message with some Notes. Also link for the response as an XML doc (had to add .txt to the xml extension to be able to upload it).  I appreciate your help and feedback.
http://compshack.com/files/XML-Message.png
http://compshack.com/files/uhc_report.xml_.txt
And here is the output from my Test AE. I'm able to find 3 count of results, which i expected since I have 3 records coming back from the web service, but for what ever reason, GetChildNode is failing.
results = (0,0)
GetChildNode not found (0,0)
results = (0,0)
GetChildNode not found (0,0)
results = (0,0)
GetChildNode not found (0,0)
Edited by: Maher on Mar 12, 2012 10:21 AM
Edited by: Maher on Mar 12, 2012 10:41 AM

Answer 1

Hi,
I just took a closer look at the code and the looping using childnodes and findnode is not correct a bit overkill.
You should really use the one or the other.
I have created two other loops
Loop 1, loop through all elements using Childnodes:
Local string &payload, &responseStr, &last;
Local Message &msg, &reply;
Local XmlDoc &xml, &inXMLDoc;
Local array of XmlNode &GetElements, &RecordList, &field1List, &aResultsNode;
Local XmlNode &RecordNode, &ClassificationNode;
Local File &MYFILE;
&inXMLDoc = CreateXmlDoc("");
&ret = &inXMLDoc.ParseXmlFromURL("c:\temp\test.xml");
If &ret Then
   &field1List = &inXMLDoc.GetElementsByTagName("results");
   If &field1List.Len = 0 Then
      MessageBox(0, "", 0, 0, "GetElementsByTagName Node NOT found");
      Error ("GetElementsByTagName Node NOT found"); /* do error processing */
   Else
      For &j = 1 To &field1List.Len
         If &j > 1 Then
            MessageBox(0, "", 0, 0, &field1List [&j].NodeName | " = " | &field1List [&j].NodeValue);
            &RecordNode = &field1List [&j];
            &RecordChildNode = &RecordNode.GetChildNode(&j);
            If &RecordChildNode.IsNull Then
               MessageBox(0, "", 0, 0, "GetChildNode NOT found");
            Else
               MessageBox(0, "", 0, 0, "&RecordChildNode name:" | &RecordChildNode.NodeName);
               If &RecordChildNode.NodeName = "classification" Then
                  MessageBox(0, "", 0, 0, "NodeName = " | &RecordChildNode.NodeName);
                  &SDN_TYPE = Substring(&RecordChildNode.NodeValue, 1, 50);
                  MessageBox(0, "", 0, 0, "&SDN_TYPE = " | &SDN_TYPE);
               End-If;
            End-If;
         End-If;
      End-For;
   End-If;
   MessageBox(0, "", 0, 0, &inXMLDoc.DocumentElement.NodeName);
Else /* do error processing */
   MessageBox(0, "", 0, 0, "Error. ParseXml");
End-If;results = (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: results = (0,0) (0,0)
&RecordChildNode name:address (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &RecordChildNode name:address (0,0) (0,0)
results = (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: results = (0,0) (0,0)
&RecordChildNode name:agencyUID (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &RecordChildNode name:agencyUID (0,0) (0,0)
results = (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: results = (0,0) (0,0)
&RecordChildNode name:classification (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &RecordChildNode name:classification (0,0) (0,0)
NodeName = classification (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: NodeName = classification (0,0) (0,0)
&SDN_TYPE =
Individual (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &SDN_TYPE =
Individual (0,0) (0,0)
soapenv:Envelope (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: soapenv:Envelope (0,0) (0,0)
Loop 2, look for classification node, using FindNode:
Local string &payload, &responseStr, &last;
Local Message &msg, &reply;
Local XmlDoc &xml, &inXMLDoc;
Local array of XmlNode &GetElements, &RecordList, &field1List, &aResultsNode;
Local XmlNode &RecordNode, &ClassificationNode;
Local File &MYFILE;
&inXMLDoc = CreateXmlDoc("");
&ret = &inXMLDoc.ParseXmlFromURL("c:\temp\test.xml");
If &ret Then
   &field1List = &inXMLDoc.GetElementsByTagName("results");
   If &field1List.Len = 0 Then
      MessageBox(0, "", 0, 0, "GetElementsByTagName Node NOT found");
      Error ("GetElementsByTagName Node NOT found"); /* do error processing */
   Else
      For &j = 1 To &field1List.Len
         If &j > 1 Then
            &RecordNode = &field1List [&j];
            &ClassificationNode = &RecordNode.FindNode("classification");
            If &ClassificationNode.IsNull Then
               MessageBox(0, "", 0, 0, "FindNode not found");
            Else
               &SDN_TYPE = Substring(&ClassificationNode.NodeValue, 1, 50);
               MessageBox(0, "", 0, 0, "&SDN_TYPE = " | &SDN_TYPE);
            End-If;
         End-If;
      End-For;
   End-If;
   MessageBox(0, "", 0, 0, &inXMLDoc.DocumentElement.NodeName);
Else /* do error processing */
   MessageBox(0, "", 0, 0, "Error. ParseXml");
End-If;&SDN_TYPE =
Individual (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &SDN_TYPE =
Individual (0,0) (0,0)
&SDN_TYPE =
Individual (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &SDN_TYPE =
Individual (0,0) (0,0)
&SDN_TYPE =
Individual (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: &SDN_TYPE =
Individual (0,0) (0,0)
soapenv:Envelope (0,0)
Message Set Number: 0
Message Number: 0
Message Reason: soapenv:Envelope (0,0) (0,0)
As you can see, several possible solutions are possible.
Hope this helps.
Hakan