Skip to content

Instantly share code, notes, and snippets.

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.1.1 (Build 505U)" ts="2015-05-26 15:57:11">
<Class name="App.Test">
<Super>%RegisteredObject</Super>
<TimeChanged>63698,53857.107379</TimeChanged>
<TimeCreated>63683,81271.513991</TimeCreated>
<Method name="Test">
<Description>
do ##class(App.Test).Test()</Description>
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.1.1 (Build 505U)" ts="2015-06-17 22:55:48">
<Class name="App.Log">
<Super>%Persistent</Super>
<TimeChanged>63720,82487.41709</TimeChanged>
<TimeCreated>63685,63064.148177</TimeCreated>
<Parameter name="Null">
<Description>
Replacement for missing values</Description>
Class Debug.Trace Extends %RegisteredObject
{
ClassMethod On(aGN As %String = "") As %Status [ ProcedureBlock = 0 ]
{
#define InvalidIO $io'=$p
if aGN="" set %TraceLog=$name(^CacheTemp.TraceLog)
else set %TraceLog=aGN
kill @%TraceLog
for i=1:1:$stack-1 {
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.3 (Build 211U)" ts="2015-11-06 21:30:14">
<Class name="Utils.DynamicObject">
<Super>%RegisteredObject</Super>
<TimeChanged>63862,77333.461179</TimeChanged>
<TimeCreated>63862,75470.717321</TimeCreated>
<Property name="obj">
<Description>
Свойство, хранящее настоящий динамический объект</Description>
@eduard93
eduard93 / Utils.CustomQuery.xml
Last active March 31, 2016 18:04
Custom class Query examples for InterSystems Caché
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Class name="Utils.CustomQuery">
<Super>%Persistent,%Populate</Super>
<TimeCreated>63869,45310.24869</TimeCreated>
<Property name="Prop1">
<Type>%String</Type>
</Property>
@eduard93
eduard93 / Utils.CustomQueryRS.xml
Created December 2, 2015 17:24
%SQL.CustomResultSet example for InterSystems Caché
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.1.1 (Build 505U)" ts="2015-12-02 20:23:32">
<Class name="Utils.CustomQueryRS">
<Super>%SQL.CustomResultSet</Super>
<TimeChanged>63888,71332.597734</TimeChanged>
<TimeCreated>63888,69965.290043</TimeCreated>
<Property name="Id">
<Type>%String</Type>
</Property>
@eduard93
eduard93 / Indexes.xml
Created March 11, 2016 14:48
Include only some records into the index, the low-level way
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.1.1 (Build 505U)" ts="2016-03-11 17:41:46">
<Class name="Utils.Index">
<Super>%Persistent</Super>
<TimeChanged>63988,63646.134181</TimeChanged>
<TimeCreated>63988,50153.308704</TimeCreated>
<Property name="Name">
<Type>%String</Type>
</Property>
@eduard93
eduard93 / %ZSTART.mac.xml
Created March 11, 2016 14:55
Choose namespace at session start
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Routine name="%ZSTART" type="MAC" languagemode="0"><![CDATA[
%ZSTART() {
}
LOGIN() Public {
Set Timeout = 2
Write "Namespace <" _ $Namespace _ ">: "
@eduard93
eduard93 / DO.Utils.xml
Created April 5, 2016 10:06
Work with Digital Ocean from InterSystems Caché
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for UNIX (Red Hat Enterprise Linux for x86-64) 2015.2 (Build 664U)" ts="2016-04-05 13:01:04">
<Class name="DO.Utils">
<Super>%CSP.REST</Super>
<TimeChanged>64013,44584.975713</TimeChanged>
<TimeCreated>64013,41190.502637</TimeCreated>
<Parameter name="KEY">
<Description>
Your API token</Description>
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-04-28 19:00:03">
<Class name="Utils.NewClass1">
<Super>%RegisteredObject</Super>
<TimeChanged>64036,68182.147523</TimeChanged>
<TimeCreated>64023,75066.420504</TimeCreated>
<Property name="ObjectProp">
<Type>Utils.NewClass1</Type>
</Property>