GetXMLProperty

Get property value from XML part. I use it to get data from Datastage XML exports.

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