Eduard Lebedyuk · Jan 4, 2018 go to post

Export it as XML. Store in VCS with code. Import with the rest of the code.

Other option is to store it as XData, here's sample code:

XData DisplayProperies
{
<Export generator="Cache">
<Global>
<Node><Sub>^Test</Sub>
<Node><Sub>1</Sub>
<Data>123</Data>
</Node>
<Node><Sub>Val2</Sub>
<Data>prop3</Data>
</Node>
<Node><Sub></Sub>
<Data>prop1</Data>
</Node>
</Node>
</Global>
</Export>
}

/// Set global
/// do ##class(Class.Installer).setGlobal()
ClassMethod setGlobal() As %Status
{
    #dim sc As %Status = $$$OK
    #dim className As %String = $classname()
    
    // search for XData: DisplayProperies
    #dim xdata As %Dictionary.CompiledXData = ##class(%Dictionary.CompiledXData).IDKEYOpen(className, "DisplayProperies",, .sc)
    quit:$$$ISERR(sc) sc

    set stream = xdata.Data
    set sc = $system.OBJ.LoadStream(stream, "/displaylog=0 /displayerror=0")
    quit sc
}
Eduard Lebedyuk · Jan 4, 2018 go to post
 s ^TMPPRD=reqObj

That won't work. Global can store object serialization or some property value.

Eduard Lebedyuk · Jan 4, 2018 go to post

sbJSON that actually get passed to XmlToJSONNode is not an object. Additionally try this modification to XmlToJSON (you need to specify file if you want to use file stream):

Method XmlToJSON(xml As %Stream) As %Stream
{
            set xmlDoc =##class(%XML.TextReader).ParseStream(xml,.textreader)          
            set sbJSON =##class(%Stream.FileCharacter).%New()
            do sbJSON.LinkToFile("somefile")
            do sbJSON.WriteLine($C(123))
            do ..XmlToJSONnode(sbJSON,textreader.Name,1)
            do sbJSON.writeLine($C(125))
            return sbJSON
}
Eduard Lebedyuk · Jan 3, 2018 go to post

You can redefine these dynamic dispatch methods:

  • %DispatchGetProperty / %DispatchSetProperty / %DispatchSetMultidimProperty
  • %DispatchGetModified / %DispatchSetModified
  • %DispatchMethod / %DispatchClassMethod

And they are available for all classes.

Eduard Lebedyuk · Jan 2, 2018 go to post

 can't find properties Prop1, Prop2...etc in %ZEN.proxyObject documentation

They are dynamic (defined via %DispatchGetProperty/%DispatchSetProperty) so you can assign any properties to %ZEN.proxyObject.

 CopyFrom in %Net.HttpRequest, you can find Write method but not the Copyfrom method so how do we suppose to know those properties and methods?

Unable to reproduce (on 2017.2 though).

You may try to use #Dim directive:

#Dim Stream As %GlobalBinaryStream
Set Stream = ##class(%GlobalBinaryStream).%New()
Do Stream.Write("111")
Set Request.EntityBody = Stream

Autocomplete works better for variables defined with #Dim (also it's useful for lists/arrays with objects).

what the Maximum Props we can have ?

1000 properties per class.

Eduard Lebedyuk · Jan 2, 2018 go to post

Here's a sample request with JSON payload from %ZEN.proxyObject, with object->json serialization via %ZEN.Auxiliary.jsonProvider:

Set Body = ##class(%ZEN.proxyObject).%New()
Set Body.Prop1 = "Val1"
Set Body.Prop2 = "Val2"
Set Array = ##class(%ListOfDataTypes).%New()
Do Array.Insert(1)
Do Array.Insert(2)
Do Array.Insert(4)
Set Body.Array = Array
Set Request= ##class(%Net.HttpRequest).%New()
Set Request.Server = "server"
Set Request.Location = "location"
Set Status = ##class(%ZEN.Auxiliary.jsonProvider).%WriteJSONStreamFromObject(Request.EntityBody,  Body)
Set Status = Request.Post()

Payload looks like this:

Do Body.%ToJSON()
{
        "Array":[1,2,4
        ],
        "Prop1":"Val1",
        "Prop2":"Val2"
}

Documentation on %Net. HttpRequest.

Eduard Lebedyuk · Jan 1, 2018 go to post

I encountered somewhat similar problem, here are the conditions:

  • Several types of business objects
  • Business objects may depend upon other objects, so it's like a dependency graph
  • Updates arrive for objects and they need to be approved by humans
  • Humans approve updates randomly
  • But updates should be applied top to bottom (so base object first, then all objects which depend on it, then all objects which depends on them and so on)
  • Updates arrives continuously

To solve this, we used deferred responses and the class I posted above except it also has dependsOn property which contained a list of tokens which should be satisfied before current token (message corresponding to current token) can be returned.

It looked like this:

Property dependsOn As List Of %String(SQLPROJECTION = "table/column", STORAGEDEFAULT = "array");
// Index dependsOnIndex On dependsOn (ELEMENTS);

So our process was:

  1. if we found new dependency we added to list, if dependency was satisfied we removed it from all lists.
  2. If there was no more dependencies than update would be fired.
  3. Then there was a check to see if current update was a dependency for something else.

Projecting list property as a table helped. Also collection properties are indexable, so it all worked quite fast.

Eduard Lebedyuk · Dec 31, 2017 go to post

You'll need to develop the criteria yourself as it's heavily dependent upon your business logic. There's no common solution there. Generally you need to:

  1. Pass some unique identifier with your request (as one of request properties or in the filename or as a header, etc.).
  2. In your business service parse the response and determine  what is this response to.
  3. Send deferred response

I usually have a Deferred token table where I keep track of tokens and objects to which they relate:

#Include Ensemble
/// Stored Deferred token.
/// Assumption: one BH generates only one type of Deferred token.
Class Production.DeferredToken Extends %Persistent
{

/// Token
Property token As %String;

Index IDKEY On token [ IdKey ];

/// Object's class anme
Property objectContext As %Dictionary.CacheClassname;

/// Object's primary key
Property objectId As %String;

Index objectIndex On (objectContext, objectId) [ Unique ];

/// Update ts (UTC)
Property updatedOn As %TimeStamp [ Required, SqlComputeCode = { set {*} = $$$ts}, SqlComputed, SqlComputeOnChange = (%%INSERT, %%UPDATE) ];

/// Ensemble session
Property sessionId As %Integer [ InitialExpression = {$get($$$JobSessionId)} ];

/// Ensemble BH
Property configName As %Integer [ InitialExpression = {$get($$$EnsJobLocal("ConfigName"))} ];

/// Ensemble BH class
Property ensembleContext As %Integer [ InitialExpression = {$get($$$ConfigClassName($get($$$EnsJobLocal("ConfigName")," ")))} ];

/// Tries to store a new token if possible
/// w ##class(Production.DeferredToken).add()
ClassMethod add(token As %String, class As %String = "", id As %Integer = "") As %Status
{
    return:((class'="") && ('##class(%Dictionary.ClassDefinition).%ExistsId(class))) $$$ERROR($$$ClassDoesNotExist, class)
    return:((class'="") && (id'="") && ('$classmethod(class, "%ExistsId", id))) $$$ERROR($$$GeneralError, $$$FormatText("Object '%2' from class '%1' does not exist", class, id))
    return:..IDKEYExists(token) $$$ERROR($$$GeneralError, $$$FormatText("Token '%1' already exist", token))
    
    set obj = ..%New()
    set obj.objectContext = class
    set obj.objectId = id
    set obj.token = token
    set sc = obj.%Save()
    
    return sc
}

Use %ExistsId, %DeleId, objectIndexExists, objectIndexOpen to manipulate stored tokens.

Eduard Lebedyuk · Dec 30, 2017 go to post

I think you need deferred response.

It works like this:

  1. BP sends message to BO
  2. BO defers response and quits
  3. BS (or anything else really) generates a response  and sends it to BP
  4. BP receives deferred response

Eduard Lebedyuk · Dec 29, 2017 go to post

You can add Ens.ProductionMonitorService service to your production, which provides a monitor service for the production status

The default behavior of this service is to call UpdateProduction once it notices the production is not up-to-date. Users can override the OnProcessInput method to customize the behavior. It would be enough to automatically restart relevant items and keep production up to date.  

Generally to access/manipulate info about Ensemble and it's hosts use Ens.Director class, i.e. UpdateProduction method.

Eduard Lebedyuk · Dec 28, 2017 go to post

Pool size 4 would be better.

Adding 4 same processes would only make production configuration more complicated.

Eduard Lebedyuk · Dec 28, 2017 go to post

Also possible to use $$$NULL macro:

do $$$AssertEquals(myObj, $$$NULL, "myObj is null")
Eduard Lebedyuk · Dec 28, 2017 go to post

For example, Java Gateway Wizard is at:

http:://host/csp/reg/%25ZEN.Template.ObjectGatewayWizard.JavaHome.cls

I usually use "find in files" and search for page title to find where it is.

[@Jeffrey Drumm]'s answer is way better.

Eduard Lebedyuk · Dec 27, 2017 go to post

in my sample, it should be like P.id = P1.id and P1.id =  P2.id.

It would work like that too.

Also, you self join on the identical fields "ID", so I guess the engine could infer p1.id = p2.id by "P.id  = P1.id and P.id = P2.id" , this would interfere my intention.

Please consider posting:

  • sample classes
  • sample data
  • description of data you want to get
  • what data you want to get
  • query
Eduard Lebedyuk · Dec 27, 2017 go to post

Yes.

SELECT
p.id, p1.id, p2.id
FROM Sample.Person p
LEFT JOIN Sample.Person p1 ON p1.id=p.id
INNER JOIN Sample.Person p2 ON p2.id=p.id
Eduard Lebedyuk · Dec 26, 2017 go to post

If you can, always invoke code directly:

do ##class(circle).radius()

Use classmethod only if you can't invoke method directly.

Eduard Lebedyuk · Dec 26, 2017 go to post

Class include is not required (and does not seem to affect anything) and can be omitted

Include Child

Why that happens, as  methods generators are compiled before methods?

 

As for the second approach, I'd like to avoid duplicating code (in a real case I have about 20 methods 1-50 lines long).

Eduard Lebedyuk · Dec 26, 2017 go to post

Interesting,

Sorry, that I didn't specify it earlier, but I can't modify Parent.inc too.

Eduard Lebedyuk · Dec 22, 2017 go to post

Have you tried d format flag

 d - output Caché numeric properties that have value "" as null