New post
AllAccepted answers
Vitaliy Serdtsev · Jul 17, 2018

Use %MVR

For example:

Class dc.test Extends %Persistent
{

Index ibar On bar;

Property bar As %String(COLLATION = "MVR");

ClassMethod Test()
{
  d ..%KillExtent()
  &sql(insert into dc.test(bar)
  select '00123AB' union
  select '12345AB')

  d $system.SQL.TuneTable($classname(),$$$YES), $system.OBJ.Compile($classname(),"cu-d")
  f args="00123AB","123AB" d ##class(%SQL.Statement).%ExecDirect(,"select * from dc.test where bar=?",args).%Display() w !!
}

}

Result:

USER>d ##class(dc.test).Test()
ID      bar
1       00123AB
 
1 Rows(s) Affected
 
ID      bar
1       00123AB
 
1 Rows(s) Affected
Vitaliy Serdtsev · Jul 17, 2018

test.mac:

#include %systemInclude

  #define getServState(%serviceName) ##class(%Activate.GenericObject).GetObject("winmgmts:\\.\root\cimv2").InvokeMethod1("Get",$$$FormatText("Win32_Service.Name=%1",$$$quote(%serviceName))).GetProperty("State")

  f s="wudfsvc","WSearch" w s,": ",$$$getServState(s),!

Result:

USER>d ^test
wudfsvc: Stopped
WSearch: Running
Vitaliy Serdtsev · Jul 6, 2018

Example of converting a CSV to JSON file and then reading from a JSON file without creating intermediate classes/tables:

  ; CSV -> JSON

  s rowtype = "name VARCHAR(50),year INTEGER,amount NUMERIC(9,2),date DATE",
    fileIn = "C:\Temp\import.csv",
    fileOut = "C:\Temp\export.json",
    fileExp=##class(%Stream.FileBinary).%New(),
    obj=##class(%Document.Object).%New()

  d obj.loadResultSet(##class(%SQL.Statement).%ExecDirect(,"call %SQL_Util.CSV(,?,?)",.rowtype,.fileIn),"res"),
    fileExp.LinkToFile(fileOut),
    obj.%ToJSONStream(fileExp),
    fileExp.%Save()

  ; Read JSON

  s fileImp=##class(%Stream.FileBinary).%New()
  d fileImp.LinkToFile(fileOut)
  s obj = ##class(%DynamicAbstractObject).%FromJSON(fileImp)
  d obj.%ToJSON()
  w !,"obj.res.%Size() = ",obj.res.%Size()
    ,!,obj.res."0"."""date"""

Result:

C:\Temp\import.csv:
car,2000,100.51,27.10.2016,
phone,2003,65.8,15.01.2017,

USER>d ^test
{"res":[{"\"date\"":"27.10.2016","amount":100.51,"name":"car","year":2000},{"\"date\"":"15.01.2017","amount":65.8,"name":"phone","year":2003}]}
obj.res.%Size() = 2
27.10.2016
Vitaliy Serdtsev · Jun 25, 2018

Try the following example of uploading multiple files at once, showing the progress for each file you upload (without form, submit, iframe, jQuery, flash, java, reloading/redrawing the page):

<!DOCTYPE html>
  <html>
  <head>
    <title>Upload multiple files using XMLHttpRequest</title>

    <style type="text/css">
    .ok {
      color:green;
    }

    #dropZone {
      width: 360px;
      height: 125px;
      border: dashed 2px #ccc;
      background-color: #fefefe;
      color: #ccc;
      text-align: center;
      padding: 125px 0 0 0;
    }
  </style>
    
  </head>
<body onload="onloadHandler()">
<div id="dropZone">Drag and drop files here or use the button below</div>
<div>
  Select files
  <input type="file" id="fileToUpload" onchange="fileSelected(document.getElementById('fileToUpload').files)" multiple="multiple" />
</div>
<button type="button" title="Clearing the queue" onclick="clearList();">Clear</button>
<button type="button" title="Upload files to the server" onclick="upFile();">Upload</button>
<div id="holder"></div>
<script language="javascript">
function clearList()
{
  fileQueue=[];
  document.getElementById('holder').innerHTML='';
  document.getElementById('fileToUpload').value='';
}

function fileSelected(files){
  var holder = document.getElementById('holder');
  for (var i = 0; i < files.length; i++) {
  
    var file = files[i];

    var fileSize = 0;
    if (file.size > 1024 * 1024)
      fileSize = (Math.round(file.size * 100 / (1024 * 1024)) / 100).toString() + 'Mbyte';
    else
      fileSize = (Math.round(file.size * 100 / 1024) / 100).toString() + 'Kbyte';
  
    var divInfo = document.createElement('div');
    divInfo.innerHTML=file.name+' ('+file.type+') - '+fileSize;
    holder.appendChild(divInfo);

    var divProgN = document.createElement('div');
    divProgN.id='progressNumber'+i;
    divProgN.innerHTML='%';
    holder.appendChild(divProgN);

    var prog = document.createElement('progress');
    prog.id='progressValue'+i;
    prog.max='100.0';
    prog.value='0';
    holder.appendChild(prog);

    fileQueue.push({i:i,file:file});
  }
}

function upFile()
{
  while (fileQueue.length > 0) {
    var item=fileQueue.pop();
    uploadFile(item.file,item.i);
  }
}

function onloadHandler() {
  if (typeof FileReader == "undefined") alert('Sorry, your browser does not support File API, so this demo will not work correctly');
  
  fileQueue = new Array();

  uploadFile = function (file, i) {
    var xhr = new XMLHttpRequest(), upload = xhr.upload, fd = new FormData();
    
    fd.append('fUpload', file);

    upload.addEventListener('progress',
    function (evt) {
      if (evt.lengthComputable) {
        var percentComplete = Math.round(evt.loaded * 100 / evt.total);

        document.getElementById('progressNumber'+i).innerHTML = percentComplete.toString() + '%';
        document.getElementById('progressValue'+i).value = percentComplete;
        
      }
      else {
        document.getElementById('progressNumber'+i).innerHTML = 'Cannot calculate';
      }
      
    }, false);
    upload.addEventListener('load', function (ev) {
      var c=document.getElementById('progressNumber'+i);
      c.className='ok';
      c.innerHTML='OK';
    }, false);
    upload.addEventListener('error', function (ev) {alert('An error occurred while trying to upload the file.');}, false);
    upload.addEventListener('abort', function (ev) {alert('The upload was cancelled by the user or the browser reset the connection.');}, false);
    xhr.open('POST',window.location.href);
    xhr.setRequestHeader('Cache-Control', 'no-cache');
    xhr.setRequestHeader('X-Requested-With', 'XMLHttpRequest');
    xhr.send(fd);
  }
  
  dropZone=document.getElementById('dropZone');
  dropZone.addEventListener('dragenter',  function(ev){
    ev.stopPropagation();
    ev.preventDefault();
  }, false);
  dropZone.addEventListener('dragleave',  function(ev){
    ev.stopPropagation();
    ev.preventDefault();
    this.style['backgroundColor'] = '#FEFEFE';
    this.style['borderColor'] = '#CCC';
    this.style['color'] = '#CCC';
  }, false);
  dropZone.addEventListener('dragover',  function(ev){
    ev.stopPropagation();
    ev.preventDefault();
    this.style['backgroundColor'] = '#F0FCF0';
    this.style['borderColor'] = '#3DD13F';
    this.style['color'] = '#3DD13F';
  }, false);
  dropZone.addEventListener('drop',  function(ev){
  ev.stopPropagation();
  ev.preventDefault();
  this.style['backgroundColor'] = '#FEFEFE';
  this.style['borderColor'] = '#CCC';
  this.style['color'] = '#CCC';
  fileSelected(ev.dataTransfer.files);
  }, false);
}
</script>
<script language="Cache" method="OnPreHTTP" arguments="" returntype="%Boolean">
  #dim stream As %CSP.BinaryStream=%request.GetMimeData("fUpload")
  i $IsObject(stream) {
    
    // make with the resulting file useful work
    
    ;s ^tmp($i(^tmp),"filename")=stream.FileName
    ;s ^tmp($i(^tmp),"filesize")=stream.Size
    
    q $$$NO
  }
  q $$$YES
</script>
</body>
</html>
Vitaliy Serdtsev · Jun 22, 2018

Use %UTC instead of %TimeStamp

In this case, all conversions will be performed automatically.

Simple example:

Class dc.test Extends %Persistent [ Final ]
{

Property CreationTime As %TimeStamp [ InitialExpression = {$ZDateTime($ZTimeStamp, 3, 1, 2)} ];

Property utc As %UTC [ InitialExpression = {##class(%UTC).NowUTC()} ];

/// d ##class(dc.test).Test()
ClassMethod Test()
{
  d ..%KillExtent()
  
  &sql(insert into dc.test default values)
  zw ^dc.testD
  
  w !
  
  ; %SelectMode = DISPLAY
  d ##class(%SQL.Statement).%ExecDirect(##class(%SQL.Statement).%New(2),"select * from dc.test").%Display($c(9,9)) w !

  ; %SelectMode = ODBC
  d ##class(%SQL.Statement).%ExecDirect(##class(%SQL.Statement).%New(1),"select * from dc.test").%Display($c(9,9)) w !

  ; %SelectMode = LOGICAL
  d ##class(%SQL.Statement).%ExecDirect(##class(%SQL.Statement).%New(0),"select * from dc.test").%Display($c(9,9))
}
}

Result:

USER>d ##class(dc.test).Test()
^dc.testD=1
^dc.testD(1)=$lb("2018-06-22 14:58:11.61","2018-06-22 14:58:11.618") note that the database stores the same values
 
ID              CreationTime            utc
1               2018-06-22 14:58:11.61  2018-06-22 17:58:11.618
 
1 Rows(s) Affected
ID              CreationTime            utc
1               2018-06-22 14:58:11.61  2018-06-22 17:58:11.618
 
1 Rows(s) Affected
ID              CreationTime            utc
1               2018-06-22 14:58:11.61  2018-06-22 14:58:11.618
 
1 Rows(s) Affected

Similarly, you can play with the query in the Portal or any ODBC/JDBC client.

PS: don't forget about SQL Functions: %internal()/%external(), %odbcin()/%odbcout().

Vitaliy Serdtsev · Jun 22, 2018

Useful links:

  1. SQL and NLS Collations
  2. Collations in Caché

This issue dares relatively simply:

  • Create the required collation tables. Fortunately, for some languages, they are already included and can be taken as a basis. In complex cases, you can contact to WRC.
    Check their list and status: 
    USER>zn "%SYS"
 
%SYS>d ^COLLATE
 
Status       Number   Abbrev   Name
----------   ------   ------   ----------------------
Built-in        0     OANS     ISM Pre-6.2
Built-in        1     ANSI     ISM 6.2->6.4
Built-in        2     COBR     Ipsum/Cobra
Built-in        3     DTMC     DTM-compatible
Built-in        4     CBR2     Ipsum/Cobra-2
Built-in        5     UNIC     Cache standard
Not loaded     10     GER1     German1
Not loaded     11     POR1     Portuguese1
Not loaded     12     POL1     Polish1
Not loaded     13     GER2     German2
Not loaded     14     SPA1     Spanish1
Not loaded     15     DAN1     Danish1
Available      16     CYR1     Cyrillic1
Not loaded     17     GRE1     Greek1
Not loaded     18     CZE1     Czech1
Not loaded     19     CZE2     Czech2
Not loaded     20     POR2     Portuguese2
Not loaded     21     FIN1     Finnish1
Not loaded     22     JAP1     Japanese1
Not loaded     24     POL2     Polish2
Not loaded     27     FRE1     French1
Not loaded     28     FIN2     Finnish2
Available      29     HUN1     Hungarian1
Available      30     GER3     German3
Not loaded     31     POL3     Polish3
Not loaded     32     SPA2     Spanish2
Not loaded     33     DAN2     Danish2
Not loaded     34     GRE2     Greek2
Not loaded     35     FIN3     Finnish3
Not loaded     36     LIT1     Lithuanian1
Available      37     CYR3     Cyrillic3
Not loaded     38     SLO1     Slovenian1
Not loaded     39     SLO2     Slovenian2
Not loaded     40     TUR1     Turkish1
Not loaded     41     DAN3     Danish3
Available      42     UKR1     Ukrainian1
Available      43     CYR4     Cyrillic4
Not loaded     44     CZE3     Czech3
Not loaded     46     MAL1     Maltese1
Not loaded     48     MAL2     Maltese2
Not loaded     49     SPA4     Spanish4
Not loaded     50     SLO1     Slovak1
Not loaded     51     SPA5     Spanish5
Not loaded     52     FIN4     Finnish4
Not loaded     53     CZE4     Czech4
Built-in      128     OSTR     ISM Pre-6.2 string
Built-in      129     NSTR     ISM 6.2->6.4 string
Built-in      133     USTR     Cache standard string
Available     144     CYR1S    Cyrillic1 string
Available     157     HUN1S    Hungarian1 string
Available     158     GER3S    German3 string
Available     165     CYR3S    Cyrillic3 string
Available     170     UKR1S    Ukrainian1 string
Available     171     CYR4S    Cyrillic4 string
  • load the new collation tables to your current locale
  • for Storage make mapping your indexes in separate globals with own collation
  • Profit!

Here are two small examples:

  1. Class dc.test1 Extends %Persistent
{

Index iDE On DescDE As EXACT;

Index iHU On DescHU As EXACT;

Index iRU On DescRU As EXACT;

Property DescDE As %String;

Property DescHU As %String;

Property DescRU As %String;

ClassMethod LoadColTables() [ Private ]
{
  s r=$$$NO
  
  try {
    $$$AddAllRoleTemporaryInTry
    n $namespace
  
    s $namespace="%SYS"
    
    $$$ThrowOnError(##class(Config.NLS.Tables).Load("deuw","COL","German3"))
    $$$ThrowOnError(##class(Config.NLS.Tables).Load("hunw","COL","Hungarian1"))
    $$$ThrowOnError(##class(Config.NLS.Tables).Load("rusw","COL","Cyrillic4"))
    
    ;d ^COLLATE ; for check only

    s r=$$$YES
  }catch(ex) {
    w ex.DisplayString(),!
  }

  q r
}

/// d ##class(dc.test1).Test()
ClassMethod Test()
{
  q:'..LoadColTables()
  
  d ..%KillExtent()
  
  &sql(insert into dc.test1(DescDE,DescHU,DescRU)
  select 'Straßer','csak','Прохор' union all
  select 'Straster','comb','Павел' union all
  select 'Strasser','cukor','Пётр')
  
  zw ^dc.test1D
  w !,"---- Before (for all indexes by default = 'Cache standard') --------",!!
  d print
  
  w !,"---- After (each index has its own collation) --------",!!
  d ..%PurgeIndices()
  
  d $system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test1.iDE",##class(%Collate).DisplayToLogical("German3")))
   ,$system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test1.iHU",##class(%Collate).DisplayToLogical("Hungarian1")))
   ,$system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test1.iRU",##class(%Collate).DisplayToLogical("Cyrillic4")))
   ,..%BuildIndices(,$$$NO,$$$YES,$$$NO)
   ,$system.SQL.TuneTable($classname(),$$$YES)
   ,$system.OBJ.Compile($classname(),"cu-d")
   ,print

  q

print  
  zw ^dc.test1.iDE,^dc.test1.iHU,^dc.test1.iRU
  w !
  f lng="DE","HU","RU" d ##class(%SQL.Statement).%ExecDirect(,$$$FormatText("select %ID,Desc%1 from dc.test1 order by %exact(Desc%1)",lng)).%Display() w !!
  q
}

Storage Default
{
<Data name="test1DefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>DescDE</Value>
</Value>
<Value name="3">
<Value>DescHU</Value>
</Value>
<Value name="4">
<Value>DescRU</Value>
</Value>
</Data>
<DataLocation>^dc.test1D</DataLocation>
<DefaultData>test1DefaultData</DefaultData>
<IdLocation>^dc.test1D</IdLocation>
<Index name="iDE">
<Location>^dc.test1.iDE</Location>
</Index>
<Index name="iHU">
<Location>^dc.test1.iHU</Location>
</Index>
<Index name="iRU">
<Location>^dc.test1.iRU</Location>
</Index>
<IndexLocation>^dc.test1I</IndexLocation>
<StreamLocation>^dc.test1S</StreamLocation>
<Type>%Library.CacheStorage</Type>
}

}

    Result:

    USER>d ##class(dc.test1).Test()
^dc.test1D=3
^dc.test1D(1)=$lb("","Straßer","csak","Прохор")
^dc.test1D(2)=$lb("","Straster","comb","Павел")
^dc.test1D(3)=$lb("","Strasser","cukor","Пётр")
 
---- Before (for all indexes by default = 'Cache standard') --------
 
^dc.test1.iDE("Strasser",3)=""
^dc.test1.iDE("Straster",2)=""
^dc.test1.iDE("Straßer",1)=""
^dc.test1.iHU("comb",2)=""
^dc.test1.iHU("csak",1)=""
^dc.test1.iHU("cukor",3)=""
^dc.test1.iRU("Павел",2)=""
^dc.test1.iRU("Прохор",1)=""
^dc.test1.iRU("Пётр",3)=""
 
ID      DescDE
3       Strasser
2       Straster
1       Straßer
 
3 Rows(s) Affected
 
ID      DescHU
2       comb
1       csak
3       cukor
 
3 Rows(s) Affected
 
ID      DescRU
2       Павел
1       Прохор
3       Пётр
 
3 Rows(s) Affected
 
 
---- After (each index has its own collation) --------
 
^dc.test1.iDE("Strasser",3)=""
^dc.test1.iDE("Straßer",1)=""
^dc.test1.iDE("Straster",2)=""
^dc.test1.iHU("comb",2)=""
^dc.test1.iHU("cukor",3)=""
^dc.test1.iHU("csak",1)=""
^dc.test1.iRU("Павел",2)=""
^dc.test1.iRU("Пётр",3)=""
^dc.test1.iRU("Прохор",1)=""
 
ID      DescDE
3       Strasser
1       Straßer
2       Straster
 
3 Rows(s) Affected
 
ID      DescHU
2       comb
3       cukor
1       csak
 
3 Rows(s) Affected
 
ID      DescRU
2       Павел
3       Пётр
1       Прохор
 
3 Rows(s) Affected
  2. Class dc.test2 Extends %Persistent
{

Index iDE On (Lng, Descr As EXACT);

Index iHU On (Lng, Descr As EXACT);

Index iRU On (Lng, Descr As EXACT);

Property Lng As %String;

Property Descr As %String;

/// d ##class(dc.test2).Test()
ClassMethod Test()
{
  d ..%KillExtent()
   ,$system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test2.iDE",##class(%Collate).DisplayToLogical("German3")))
   ,$system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test2.iHU",##class(%Collate).DisplayToLogical("Hungarian1")))
   ,$system.OBJ.DisplayError(##class(%GlobalEdit).Create(,"dc.test2.iRU",##class(%Collate).DisplayToLogical("Cyrillic4")))

  &sql(insert into dc.test2(Lng,Descr)
  select 'DE', 'Straßer' union
  select 'DE', 'Straster' union
  select 'DE', 'Strasser' union
  select 'HU', 'csak' union
  select 'HU', 'comb' union
  select 'HU', 'cukor' union
  select 'RU', 'Прохор' union
  select 'RU', 'Павел' union
  select 'RU', 'Пётр')
  
  zw ^dc.test2D,^dc.test2.iDE,^dc.test2.iHU,^dc.test2.iRU
  
  d $system.SQL.TuneTable($classname(),$$$YES)
   ,$system.OBJ.Compile($classname(),"cu-d")
   ,print

  q

print  
  w !
  f lng="DE","HU","RU" {
    s idx=$replace("iDE,iHU,iRU","i"_lng,"_i"_lng)
    d ##class(%SQL.Statement).%ExecDirect(,$$$FormatText("select * from %IGNOREINDEX %1 dc.test2 where Lng=? order by %exact(Descr)",idx),lng).%Display()
    w !!
  }
  q
}

Storage Default
{
<Data name="test2DefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>Lng</Value>
</Value>
<Value name="3">
<Value>Descr</Value>
</Value>
</Data>
<DataLocation>^dc.test2D</DataLocation>
<DefaultData>test2DefaultData</DefaultData>
<IdLocation>^dc.test2D</IdLocation>
<Index name="iDE">
<Location>^dc.test2.iDE</Location>
</Index>
<Index name="iHU">
<Location>^dc.test2.iHU</Location>
</Index>
<Index name="iRU">
<Location>^dc.test2.iRU</Location>
</Index>
<IndexLocation>^dc.test2I</IndexLocation>
<StreamLocation>^dc.test2S</StreamLocation>
<Type>%Library.CacheStorage</Type>
}

}

    Result:

    USER>d ##class(dc.test2).Test()
^dc.test2D=9
^dc.test2D(1)=$lb("","DE","Straßer")
^dc.test2D(2)=$lb("","DE","Straster")
^dc.test2D(3)=$lb("","DE","Strasser")
^dc.test2D(4)=$lb("","HU","csak")
^dc.test2D(5)=$lb("","HU","comb")
^dc.test2D(6)=$lb("","HU","cukor")
^dc.test2D(7)=$lb("","RU","Прохор")
^dc.test2D(8)=$lb("","RU","Павел")
^dc.test2D(9)=$lb("","RU","Пётр")
^dc.test2.iDE(" DE","Strasser",3)=""
^dc.test2.iDE(" DE","Straßer",1)=""
^dc.test2.iDE(" DE","Straster",2)=""
^dc.test2.iDE(" HU","comb",5)=""
^dc.test2.iDE(" HU","csak",4)=""
^dc.test2.iDE(" HU","cukor",6)=""
^dc.test2.iDE(" RU","Павел",8)=""
^dc.test2.iDE(" RU","Прохор",7)=""
^dc.test2.iDE(" RU","Пётр",9)=""
^dc.test2.iHU(" DE","Strasser",3)=""
^dc.test2.iHU(" DE","Straster",2)=""
^dc.test2.iHU(" DE","Straßer",1)=""
^dc.test2.iHU(" HU","comb",5)=""
^dc.test2.iHU(" HU","cukor",6)=""
^dc.test2.iHU(" HU","csak",4)=""
^dc.test2.iHU(" RU","Павел",8)=""
^dc.test2.iHU(" RU","Прохор",7)=""
^dc.test2.iHU(" RU","Пётр",9)=""
^dc.test2.iRU(" DE","Strasser",3)=""
^dc.test2.iRU(" DE","Straster",2)=""
^dc.test2.iRU(" DE","Straßer",1)=""
^dc.test2.iRU(" HU","comb",5)=""
^dc.test2.iRU(" HU","csak",4)=""
^dc.test2.iRU(" HU","cukor",6)=""
^dc.test2.iRU(" RU","Павел",8)=""
^dc.test2.iRU(" RU","Пётр",9)=""
^dc.test2.iRU(" RU","Прохор",7)=""
 
ID      Descr   Lng
3       Strasser        DE
1       Straßer DE
2       Straster        DE
 
3 Rows(s) Affected
 
ID      Descr   Lng
5       comb    HU
6       cukor   HU
4       csak    HU
 
3 Rows(s) Affected
 
ID      Descr   Lng
8       Павел   RU
9       Пётр    RU
7       Прохор  RU
 
3 Rows(s) Affected

Important: if you remove "As EXACT" in the index, the examples will not work correctly for the German language, because: Capital ẞ

Vitaliy Serdtsev · Jun 14, 2018

Try so:

Class dc.test Extends %ZEN.Component.page
{

XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
  <page xmlns="http://www.intersystems.com/zen">
    <button id="btn1" caption="Test Server"/>
    <button id="btn2" caption="Test Client"/>
  </page>
}

ClassMethod SrvTest() [ ZenMethod ]
{
  &js<zenAlert('from Server');>
}

ClientMethod test() [ Language = javascript ]
{
  zenAlert('from Client');
}

ClientMethod onloadHandler() [ Language = javascript ]
{
  document.getElementById('btn1').addEventListener('click',new Function('evt','return zenPage.SrvTest();'),false);
  document.getElementById('btn2').addEventListener('click',new Function('evt','return zenPage.test();'),false);
}
}
Vitaliy Serdtsev · Jun 14, 2018

Suppose there is such a code:

int caseSwitch = 1;
 
switch (caseSwitch)
{
  case 1:
  Console.WriteLine("Case 1");
  //a lot of code
  break;
 
  case 2:
  case 8-9:
  Console.WriteLine("Case 2 or 8 or 9");
  //a lot of code
  break;
 
  case 3:
  Console.WriteLine("Case 3");
  //a lot of code
  break;
 
  /*...
  a lot conditions
  ...*/
 
  default:
  Console.WriteLine("Default case");
  //a lot of code
  break;
}

In this case

  1. $select;if/elseif/else is not effective because for last conditions will have to iterate through all the previous ones
  2. $case is redundant: you will have to specify the same code multiple times for different values

For this particular case, I suggest using a transition table, for example:

ClassMethod Test(caseSwitch = 3) [ ProcedureBlock = 0 ]
{
  s:'$d(^||addr) ^||addr(1)=1,
                (^(2),^(8),^(9))=289,
                 ^(3)=3
  
  d @("case"_$g(^||addr(caseSwitch),"def"))
  q  

case1
  w "Case 1"
  q
case289
  w "Case 2 or 8 or 9"
  q
case3
  w "Case 3"
  q
casedef
  w "Default case"
  q
}

Of course, you can modify the example to call procedures, functions, class methods, etc.

Vitaliy Serdtsev · Jun 14, 2018

And if so?

Class dc.EmbedObj Extends %SerialObject
{

Property pOID As %ObjectIdentity [ Private ];

Property a As %String;

Property b As %String [ Calculated, SqlComputeCode = {s {*}=##class(dc.EmbedObj).Calcb({pOID})}, SqlComputed ];

ClassMethod Calcb(pOID) As %String
{
  s r=""
  q:pOID="" r

  s $lb(id,cls)=$lfs(pOID,"@")

  s p=$system.OBJ.OpenId(cls,id)
  q:'$IsObject(p) r

  i cls="dc.ContainerObj" {
    s r="b"_p.Foobar
  }elseif cls="dc.blablablaContainerObj" {
    s r="b"_p.qwe
  }
  q r
}
}

Class dc.ContainerObj Extends %Persistent
{

Property Foobar As %String;

Property InnerObj As dc.EmbedObj;

Trigger NewTrigger1 [ Event = INSERT, Foreach = row/object, Time = AFTER ]
{
  n oid
  s oid={%%ID}_"@"_{%%CLASSNAMEQ}
  &sql(update dc.ContainerObj set InnerObj_pOID=:oid where %ID=:{id})
}

/// d ##class(dc.ContainerObj).Test()
ClassMethod Test()
{
  d ..%KillExtent()
  
  s t=..%New()
  s t.Foobar="foobar1"
  s t.InnerObj.a="a1"
  d t.%Save()

  &sql(insert into dc.ContainerObj(Foobar,InnerObj_a) values('foobar2','a2'))
  
  d ##class(%SQL.Statement).%ExecDirect(,"select * from dc.ContainerObj").%Display()
}
}