Rob Vonk's Function : GetXMLProperty

Source: Rob Vonk's GetXMLProperty Function

Name: GetXMLProperty
Author: Rob Vonk
Language: Datastagebasic
Description:
Get property value from XML part. I use it to get data from Datastage XML exports
Snippet:

Function GetXMLProperty(XMLPart,PropertyName)

Result = ""

Property = '<Property Name="' : PropertyName : '">'

P = Index(Iconv(XMLPart,"MCU"),Iconv(Property,"MCU"),1)

If P > 0 then
  TempXML = XMLPart[P + Len(Property),Len(XMLPart)]
  P = Index(TempXML,'<',1)
  If P > 0 then
     TempXML = TempXML[1,P-1]
     Result = TempXML
  end
end

Ans = Result