go to post Eduard Lebedyuk · Jul 19, 2017 The name is not important. This method is an method generator, so it runs during compilation. But as it produces no code, the method does not get generated.
go to post Eduard Lebedyuk · Jul 19, 2017 If you have access to Caché database you can create custom query that accepts date as an argument and based on that returns specific table. It can be used via ODBC like this: SELECT * FROM Package.Class.MyQuery(DATE) or Call Package.Class.MyQuery(DATE) Here's a sample query that returns Ids from a table or a class and has an argument - class name (or table name): Class Utils.CustomQuery2 { /// Return ids from a table or a class Query GetTable(Table) As %Query(CONTAINID = 1, ROWSPEC = "Id:%String") [ SqlProc ] { } ClassMethod GetTableExecute(ByRef qHandle As %Binary, Table) As %Status { #Dim Status As %Status = $$$OK If ##class(%Dictionary.ClassDefinition).%ExistsId(Table) { // Got a class, we need to calculate a table name and quote it #define ClassSQLTable(%c) ($$$comClassKeyGet(%c,$$$cCLASSsqlschemaname)_"."_$$$comClassKeyGet(%c,$$$cCLASSsqltablename)) Set Table = ##class(%CSP.UI.Portal.SQL.Home).Quoter2($$$ClassSQLTable(Table)) } Set qHandle = ##class(%SQL.Statement).%ExecDirect(,"SELECT ID FROM " _ Table) If qHandle.%SQLCODE'=0 { Set Status = $$$ERROR($$$SQLError, qHandle.%SQLCODE, qHandle.%Message) } Quit Status } ClassMethod GetTableFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status { If qHandle.%Next() { // Same as in ROWSPEC Set Row = $Lb(qHandle.ID) } Else { /// No more data Set AtEnd = 1 Set Row = "" } Quit $$$OK } ClassMethod GetTableClose(ByRef qHandle As %Binary) As %Status { Kill qHandle Quit $$$OK } } Call samples from ODBC: SELECT * FROM Utils.CustomQuery2_GetTable('Cube.Cube.Fact') Call Utils.CustomQuery2_GetTable('Cube_Cube.Fact') Code on GitHub.
go to post Eduard Lebedyuk · Jul 18, 2017 You can use %Dictionary package to do that. Here's a method that sets selectivity of a specified class/property (assuming Default storage) to an arbitrary value: /// w $system.Status.DisplayError(##class(User.Selectivity).ModifySelectuvity()) ClassMethod ModifySelectuvity(class As %Dictionary.CacheClassname = {$classname()}, property As %String = "field1", selectivity As %Integer(MINVAL=0,MAXVAL=100) = {$random(101)}) As %Status { #dim sc As %Status = $$$OK set id = $lts($lb(class, "Default", property), "||") set strategy = ##class(%Dictionary.StoragePropertyDefinition).%OpenId(id) set strategy.Selectivity = selectivity _ ".0000%" set sc = strategy.%Save() quit:$$$ISERR(sc) sc set sc = $system.OBJ.Compile(class) quit sc }
go to post Eduard Lebedyuk · Jul 18, 2017 Here's a code snippet: // Really %sqlcq.<NAMESPACE>.cls<NUMBER> #dim rs As %SQL.ISelectResult set rs = ##class(%SQL.Statement).%ExecDirect(, "SELECT * FROM Sample.Person") //set rs = ##class(Sample.Person).ExtentFunc() //do rs.%Display() while rs.%Next() { write rs.ID,! }
go to post Eduard Lebedyuk · Jul 18, 2017 Why do you want to change selectivity?You can run TuneTable to recalculate selectivity.
go to post Eduard Lebedyuk · Jul 18, 2017 301 is "Moved permanently". Try setting Set aa.FollowRedirect = $$$YES
go to post Eduard Lebedyuk · Jul 18, 2017 You can use method generators: ClassMethod OnCompile() [ CodeMode = objectgenerator ] { do $system.OBJ.Compile("class") quit $$$OK } If method generator produces no code, then it would not be created, only ran at compile time.
go to post Eduard Lebedyuk · Jul 18, 2017 That would send request to the remote server using http. To use https, try adding: Set aa.Https = $$$YES Set aa.SSLConfiguration = "NameOfSSLConfiguration" You'll also need client SSL Configuration, here's documentation.
go to post Eduard Lebedyuk · Jul 18, 2017 set stream = aa.HttpResponse.Data while 'stream.AtEnd { write stream.Read($$$MaxStringLength) } Read argument is the number of charachers to read from the list. 32000 by default.
go to post Eduard Lebedyuk · Jul 17, 2017 Do you sign \r\n on Solaris? In your previous post you wrote that you need to sign:{Date}{newline}{Password}{newline}{etc}{Message Body}Maybe {newline} can only be \r\n? Also, compare (using hex compare tool) {Message Body} you sign and {Message Body} you actually send. It seems like in your case they should be identical (that is not always the case).
go to post Eduard Lebedyuk · Jul 17, 2017 To convert to Big Endian and Little Endian you can use $zcvt: >zzdump $zcvt("12","O","UnicodeBig") 0000: 00 31 00 32 .1.2 >zzdump $zcvt("12","O","UnicodeLittle") 0000: 31 00 32 00 1.2.
go to post Eduard Lebedyuk · Jul 17, 2017 It depends on the signing method. I'd try to sign a stream without new lines at all.Do you know if openssl uses the line-end to know up the where to sign and does it line by line, or does it include the line endings in the value that should be signed?openssl signs incoming byte stream, not a character stream, so there's no distinction.
go to post Eduard Lebedyuk · Jul 17, 2017 You need to restart Caché after making and saving the changes.
go to post Eduard Lebedyuk · Jul 16, 2017 It depends on a queries you want to run. For example you want to get all parents' ids which have a child with a specific property value. In a child class you can index for one or several properties, and execute this query: SELECT parentId FROM child WHERE propertyA = 'value' Documentation on indexes. Or you can define a computed property in your parent class and index that.
go to post Eduard Lebedyuk · Jul 14, 2017 I thought you needed an alphabetical consumption. What order do you need?You can get one of these fairly easy:Name - the name of the file (the default)Type - file typeDateCreated - the date the file was createdDateModified - the date the file was last modifiedSize - the file size
go to post Eduard Lebedyuk · Jul 14, 2017 Pool size = 1 should be enough.Call stack:EnsLib.File.InboundAdapter class, OnInit methodEnsLib.File.Common class, DeepList queryEnsLib.File.Common class, FileList query%File class, FileSet query (without providing sortby argument)FileSet query then sorts by filename in lowercase (with added whitespace in the beginning).
go to post Eduard Lebedyuk · Jul 14, 2017 Code should be stored in source control and there should be some sort of installer that does all required steps to get an application running.That said, ^%qCacheMsg is stored in CACHELIB, which is Read-Only by default. <PROTECT> means either read or write error, so you need to add roles to your current user and/or make CACHELIB writable temporaly.
go to post Eduard Lebedyuk · Jul 14, 2017 Thank you.I thought about using prepare, but I'm searching for solutions without it."ON AXIS" should work
go to post Eduard Lebedyuk · Jul 14, 2017 Object serialized to $lb does not contain metainformation about properties, etc.You can write a method generator that would iterate over storage schema and generate a method that gets id of object as an input, retrieves $lb value and outputs it as JSON.