New post
Question
· Oct 31, 2016

Importing XML to a Caché Object

#Beginner #XML #Caché

Hi,

I'm new with writing Caché Objectscript so I need some assistance. I have XML which contains information like this:

<?xml version="1.0" encoding="UTF-8"?>
<session>
   <sessionId>124364</sessionId>
   <cabinet>demo</cabinet>
   <eventType>IN</eventType>
   <eventTime>20161006160154</eventTime>
   <login>test</login>
   <loginFirstName>test</loginFirstName>
   <loginLastName>test</loginLastName>
</session>

I have a class representing this object as follows:

 Class Testing.Messages.Session Extends (%RegisteredObject, %XML.Adaptor, Ens.Request)
{

Parameter XMLNAME = "session";

/// Session identifier
Property sessionId As %String;

/// Warehouse identifier
Property cabinet As %String;

/// Event type
Property eventType As %String;

/// Event time stamp
Property eventTime As %String;

/// User identifier
Property login As %String;

/// User firstname
Property loginFirstName As %String;

/// User lastname
Property loginLastName As %String;

}

And finally the source code which I use to import that XML discussed first to the message object presented second.

 Method handleSession(pRequest As %CharacterStream) As %Status
{
    Set status = $$$OK
    
    // Get the CDATA content of this message. Contains XML discussed previously
    Set messagedata = ..getContent(pRequest)
    Set reader = ##class(%XML.Reader).%New() 
    Set status = reader.OpenString(messagedata) 
    Do reader.Rewind() 
    
    If $$$ISERR(status) {do $System.Status.DisplayError(status)}
   
    // Associate a class name with the XML element name
    Do reader.CorrelateRoot("Testing.Messages.Session")
    
    // Read objects from xml data
    While (reader.Next(.tMessage,.status)) {  
        Write tMessage.Name,!
    }
    If $$$ISERR(status) {do $System.Status.DisplayError(status)}
    
    $$$LOGINFO("Debug: " _tMessage)
    $$$LOGINFO("Debug: " _tMessage.sessionId)
    $$$LOGINFO("Debug: " _tMessage.cabinet)
    $$$LOGINFO("Debug: " _tMessage.eventType)
    $$$LOGINFO("Debug: " _tMessage.eventTime)
    $$$LOGINFO("Debug: " _tMessage.login)
    $$$LOGINFO("Debug: " _tMessage.loginFirstName)
    $$$LOGINFO("Debug: " _tMessage.LoginLastName)

    // Send the message to the preprocessor
    do ..SendRequestSync("MessagePreProcessor",.tMessage,.tResponse) 
    Quit $$$OK
}

For whatever reason this does not work. I guess the error happens inside the while loop when I iterate through the XML data but no error messages are thrown. It just fails silently.

Any ideas where should I look to fix this?

Discussion (2)0
Log in or sign up to continue
Eduard Lebedyuk · Oct 31, 2016

This line causes an error:

Write tMessage.Name,!

Your class does not have Name property, so it causes an error.

The following method works :

/// Do ##class(Testing.Messages.Session).test()
ClassMethod test()
{
    Set messagedata = "<?xml version=""1.0"" encoding=""UTF-8""?><session><sessionId>124364</sessionId><cabinet>demo</cabinet><eventType>IN</eventType><eventTime>20161006160154</eventTime><login>test</login><loginFirstName>test</loginFirstName><loginLastName>test</loginLastName></session>"
    Set reader = ##class(%XML.Reader).%New()
    Set status = reader.OpenString(messagedata)
    Do reader.Rewind()

    If $$$ISERR(status) {do $System.Status.DisplayError(status)}

    // Associate a class name with the XML element name
    Do reader.CorrelateRoot("Testing.Messages.Session")

    // Read objects from xml data
    While (reader.Next(.tMessage,.status)) {
        Do:$$$ISERR(status) $System.Status.DisplayError(status)
        Write tMessage.sessionId,!
    }
}

Terminal:

USER >do ##class(Testing.Messages.Session).test()
124364
2 0