go to post Vitaliy Serdtsev · Apr 2, 2021 It is better to check this with your license, as it is likely that some of its options, such as Web Add-on, may affect this (see $SYSTEM.License.PublicWebAppUser).
go to post Vitaliy Serdtsev · Apr 2, 2021 The %SYS namespace sources are open to study and often (but not always) serve as a coding etalon reference for application developers. This is a whole storehouse of knowledge for those who want to better understand certain mechanisms work of system classes.If some of the commands found there are not documented, but effectively do useful work, then why can't they be used by application developers?In addition, I do not rule out the fact that some of them are simply forgot to document. What really needs to be hidden or potentially dangerous is already hidden in the deployed classes.
go to post Vitaliy Serdtsev · Apr 1, 2021 Hi Robert. I also got carried away with this question and found two more ways to use indexes for a list of serial objects, and you can explicitly specify specific fields in the query, rather than $list (%Value,3). The speed may be not always the best, but I did the best I could. I tested on Caché (perhaps something has been improved in IRIS in this regard?) If you're interested, I can share it.
go to post Vitaliy Serdtsev · Apr 1, 2021 zen(id) works with the component object model, and document.getElementbyId(id) works with the document object model.
go to post Vitaliy Serdtsev · Apr 1, 2021 Try the following: s status=$$DeleteSession^%SYS.cspServer("wuuZ2Gwgxw") This is not documented or supported. Use at your own risk. But since you specified Caché 2018.1, which is no longer being developed so not may change in the future (not counting security patches).
go to post Vitaliy Serdtsev · Apr 1, 2021 Topicstarter indicated Caché 2018.1, which is no longer being developed so not may change in the future (not counting security patches)
go to post Vitaliy Serdtsev · Mar 31, 2021 Unfortunately, %INLIST does not use indexes (at least it was in Caché, I do not know how it is now in IRIS), which I made a note about in my article.
go to post Vitaliy Serdtsev · Mar 31, 2021 $LISTFIND certainly does its job well, but there is a better solution. As the data grows, the search speed will drop, since this solution does not use indexes in any way. Therefore, the best solution is to use the predicate FOR SOME %ELEMENT. For more details with examples, see one of my articles: SQL Performance Resources (item k. Indexing of non-atomic attributes)
go to post Vitaliy Serdtsev · Mar 31, 2021 Only customers with the corresponding paid valid service have access to the download from WRC (see in the price list the section Services Fees: Software Updates, Technical Assistance).Those who use the Community Edition or who have expired, can not download anything from there. Therefore, in this case, open resources, such as Github or FTP, are more preferable.
go to post Vitaliy Serdtsev · Mar 31, 2021 Try the following: SAMPLES>set sc=$$GetSecurityUserInfo^%SYS.SECURITY($username,.p) SAMPLES>zwrite p p("AccountNeverExpires")=.. p("AutheEnabled")=.. p("ChangePassword")=.. p("Comment")=.. p("CreateDateTime")=.. .. p("FullName")=.. p("Roles")=.. p("PhoneProvider")=.. p("Routine")=.. p("SuperUser")=..
go to post Vitaliy Serdtsev · Mar 4, 2021 The interactive tutorials with exercises built into the documentation helped me a lot in my time: Caché Tutorial Topics Map Caché Tutorials Also included was a database "SAMPLES" (code and data) with examples for every taste. I often used it for performance testing. Note: I give a link to version 2016.2, because since version 2017.1, for some reason, the developers have changed the display styles in the online documentation and removed some information. Local documentation does not have these disadvantages. In addition, in the <cachesys>\dev\ folder there were numerous demos with source code for various programming languages and connection technologies (С++, C#, Java, PHP, Python, ODBC, JDBC, ADO.NET, ActiveX, XEP, etc.): Incomplete content \dev\tutorials\ \dev\tutorials\csp \dev\tutorials\java \dev\tutorials\mv \dev\tutorials\pojo \dev\tutorials\security \dev\tutorials\UnitTestEx \dev\tutorials\webservices \dev\tutorials\zen \dev\Cache\ \dev\Cache\callin \dev\Cache\callout \dev\Cache\cctrlcpp \dev\Cache\cctrlvb \dev\Cache\ctrldemo \dev\Cache\HAcluster \dev\odbc\samples\ \dev\odbc\samples\php \dev\odbc\samples\select \dev\odbc\samples\sqlgateway \dev\python\ \dev\python\samples \dev\python\samples3 \dev\cdirect \dev\cpp\samples \dev\dblib\samples \dev\dotnet\samples \dev\java\samples \dev\mv\samples \dev\node.js\samples \dev\perl\samples
go to post Vitaliy Serdtsev · Jan 12, 2021 N<=9 (59 chr) N>9 (62 chr) Code f n=1:1:n f j=n-1:-1:1,0:1:n w !?j f i=1:1:n-j,i-1:-1:1 w i (59 chr) f n=1:1:n f j=n-1:-1:1,0:1:n w !?j f i=1:1:n-j,i-1:-1:1 w i#10 (62 chr) Who is shorter? ;)
go to post Vitaliy Serdtsev · Nov 27, 2020 Examining an XML Subtree try{ $$$ThrowOnError(##class(%XML.XPATH.Document).CreateFromString("<a><b><c>some content</c></b></a>", .doc)) $$$ThrowOnError(doc.EvaluateExpression("/a", "b", .field)) #dim obj As %XML.XPATH.DOMResult = field.GetAt(1) while obj.Read() { if obj.HasValue { write obj.Path,": ",obj.Value,! } } }catch(ex){ write "Error ", ex.DisplayString(),! } Result: b\c: some content
go to post Vitaliy Serdtsev · Nov 26, 2020 set t={"id":"1","Code": 2} write t.%ToJSON(),! do t.%Set("Code","","null") write t.%ToJSON() %Set
go to post Vitaliy Serdtsev · Nov 24, 2020 Creating Class Documentation PS: Once upon a time (when was Caché) there was a wonderful DOCBOOK database that had the methods you needed. Here's my old (2012 sic!) article on this topic: Extending the built-in documentationRU->EN Here you can read a little more: The DocBook Application DocBookwiki
go to post Vitaliy Serdtsev · Nov 9, 2020 There is another way. If you want any empty strings to always be treated as null/"" instead of "/$c(0), then there is an documented setting (within the scope of namespace), namely: ^%SYS("sql","sys","namespace",<YOUR_NAMESPACE>,"empty string") Here is a small example: Class dc.test Extends %Persistent { Property i As %Integer; Property str As %String; /// do ##class(dc.test).Test() ClassMethod Test() { do ..%KillExtent() try{ do $system.SQL.Purge() set ^%SYS("sql","sys","namespace",$namespace,"empty string")=$c(0) ; '' -> $c(0) do ##class(%SQL.Statement).%ExecDirect(,"insert into dc.test(i,str) values(1,'')") ; null -> "" do ##class(%SQL.Statement).%ExecDirect(,"insert into dc.test(i,str) values(2,null)") do $system.SQL.Purge() set ^%SYS("sql","sys","namespace",$namespace,"empty string")="" ; '' -> "" do ##class(%SQL.Statement).%ExecDirect(,"insert into dc.test(i,str) values(11,'')") ; null -> "" do ##class(%SQL.Statement).%ExecDirect(,"insert into dc.test(i,str) values(22,null)") zwrite ^dc.testD kill ^%SYS("sql","sys","namespace",$namespace,"empty string") } catch(ex){ write ex.DisplayString(),! } } } USER>do ##class(dc.test).Test() ^dc.testD=4 ^dc.testD(1)=$lb("",1,$c(0)) ^dc.testD(2)=$lb("",2,"") ^dc.testD(3)=$lb("",11,"") ^dc.testD(4)=$lb("",22,"")
go to post Vitaliy Serdtsev · Nov 9, 2020 Another option just for the fun: Include %SYS.PTools.Stats Class dc.test [ Abstract ] { ClassMethod setValue(args...) As %Status { quit:args<2 $$$ERROR($$$DataMissing) $$$convertArrayToList(args,list) quit:$listlength(list)'=args $$$ERROR($$$RequiredArgumentMissing) set $list(list,*,*)="", var=##class(%Utility).FormatString(list), $extract(var,1,3)=$name(%sessionData), ##; or $name(%session.Data) @var=args(args) quit $$$OK } /// do ##class(dc.test).Test() ClassMethod Test() { new %sessionData try{ do $system.OBJ.DisplayError(..setValue("key1", "val1")), $system.OBJ.DisplayError(..setValue("key1", "key2", "key3", "key4", "val2")), $system.OBJ.DisplayError(..setValue("key1", "key2", , "key4", "val3")), $system.OBJ.DisplayError(..setValue()) write ! zwrite %sessionData } catch(ex){ write ex.DisplayString(),! } } }