User comments | InterSystems Developer Community

Vitaliy Serdtsev · Mar 12, 2019 go to post

Hi Ponnumani.

I would like to make a number of clarifications:

VALUELIST = "A A- B B- O" -> VALUELIST = " A A- B B- O"

it is necessary to consider the order of the fields in the global on the basis of Storage. For example, I have following Storage:

<Data name="samplexlsconversionDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>name</Value>
</Value>
<Value name="3">
<Value>DOB</Value>
</Value>
<Value name="4">
<Value>address</Value>
</Value>
<Value name="5">
<Value>PhoneNumber</Value>
</Value>
<Value name="6">
<Value>BloodGroup</Value>
</Value>
</Data>

need to add check for the presence of double quotes in strings, e.g. bla"bla
the date format for CSV should not be in the internal Caché format, because the date 37893 to users of other system/DBMS nothing says unlike e.g. 1944-09-30.

I still prefer to use built-in tools when they are there, rather than reinventing the wheel.

Class User.samplexlsconversion Extends (%Persistent, %Populate)
{
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">name </FONT><FONT COLOR="#000080">As %String</FONT><FONT COLOR="#000000">;
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">DOB </FONT><FONT COLOR="#000080">As %Date</FONT><FONT COLOR="#000000">;
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">address </FONT><FONT COLOR="#000080">As %String</FONT><FONT COLOR="#000000">;
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">PhoneNumber </FONT><FONT COLOR="#000080">As %Numeric</FONT><FONT COLOR="#000000">;
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">BloodGroup </FONT><FONT COLOR="#000080">As %String</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#000080">VALUELIST </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#800080">" A A- B B- O"</FONT><FONT COLOR="#000000">);
</FONT><FONT COLOR="#000080">ClassMethod </FONT><FONT COLOR="#000000">TestExport2CSV()
{
  
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">..</FONT><FONT COLOR="#0000ff">%KillExtent</FONT><FONT COLOR="#000000">()
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">..</FONT><FONT COLOR="#0000ff">Populate</FONT><FONT COLOR="#000000">(1000)
  
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">=..</FONT><FONT COLOR="#0000ff">%OpenId</FONT><FONT COLOR="#000000">(1)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">name</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">name</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(34)
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%Save</FONT><FONT COLOR="#000000">()
  
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">=..</FONT><FONT COLOR="#0000ff">%OpenId</FONT><FONT COLOR="#000000">(2)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">name</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(34)</FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">name</FONT><FONT COLOR="#000000">_</FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(34)
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">tmp</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%Save</FONT><FONT COLOR="#000000">()
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%SQL.Export.Mgr</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">%New</FONT><FONT COLOR="#000000">()
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">FileName </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#008000">"c:\Temp\test.csv"
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">ClassName </FONT><FONT COLOR="#000000">= ..</FONT><FONT COLOR="#0000ff">%ClassName</FONT><FONT COLOR="#000000">(1)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">TableName </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$$$CLASSsqltablename</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$$$gWRK</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">ClassName</FONT><FONT COLOR="#000000">)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Delimiter </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#008000">","
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">StringQuote </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(34)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">DateFormat </FONT><FONT COLOR="#000000">= 3
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">TimeFormat </FONT><FONT COLOR="#000000">= 1
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">TimeStampFormat </FONT><FONT COLOR="#000000">= 1
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">NoCheck </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$$$YES
  s </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">HasHeaders </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$$$YES
  
  s </FONT><FONT COLOR="#800000">cols</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"Name:S;Address:S;PhoneNumber:N;BloodGroup:S;DOB:D"
  </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=1:1:</FONT><FONT COLOR="#0000ff">$l</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">cols</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">";"</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">c</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$p</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">cols</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">";"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">ColumnNames</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Insert</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$p</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">c</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">":"</FONT><FONT COLOR="#000000">,1))
    </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">ColumnTypes</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Insert</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$p</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">c</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">":"</FONT><FONT COLOR="#000000">,2))
  </FONT><FONT COLOR="#800080">}
  
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">mgr</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Export</FONT><FONT COLOR="#000000">()
}
}</FONT>

Vitaliy Serdtsev · Mar 11, 2019 go to post

Hi Robert.

Exactly.

Programmatically Managing Roles:

This command can only be invoked either from a routine that is part of the CACHESYS database or if the current privileges held include Write permission for the CACHESYS database (%DB_CACHESYS:W).
Note that setting $ROLES only alters a process’s added roles, not its login roles.

There is a third way, but I specifically did not publish it.

Vitaliy Serdtsev · Mar 11, 2019 go to post

Below are two ways without additional permissions on %DB_CACHESYS:

  <FONT COLOR="#0000ff">#include </FONT><FONT COLOR="#000000">%systemInclude
  </FONT><FONT COLOR="#0000ff">n
  try</FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">sslName</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"Test"
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#008000">"1) GetSSLConfigList^%SYS.SECURITY1(.SSLConfigs)"</FONT><FONT COLOR="#000000">,!!
    </FONT><FONT COLOR="#0000ff">w $$</FONT><FONT COLOR="#ff0000">Test1</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">sslName</FONT><FONT COLOR="#000000">)
    
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#000000">!!,</FONT><FONT COLOR="#008000">"2) $$ListSSLConfigs^%SYS.SECURITY(Client/Server)"</FONT><FONT COLOR="#000000">,!!
    </FONT><FONT COLOR="#0000ff">w $$</FONT><FONT COLOR="#ff0000">Test2</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">sslName</FONT><FONT COLOR="#000000">)
    
  </FONT><FONT COLOR="#800080">}</FONT><FONT COLOR="#0000ff">catch</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">ex</FONT><FONT COLOR="#000000">)</FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#008000">"Error "</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#800000">ex</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">DisplayString</FONT><FONT COLOR="#000000">(),!
  </FONT><FONT COLOR="#800080">}
</FONT><FONT COLOR="#ff0000">Test1</FONT><FONT COLOR="#000000">(ssl) </FONT><FONT COLOR="#800080">{
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#ff0000">GetSSLConfigList</FONT><FONT COLOR="#000000">^%SYS.SECURITY1(.</FONT><FONT COLOR="#800000">SSLConfigs</FONT><FONT COLOR="#000000">)
  </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=1:1:</FONT><FONT COLOR="#800000">SSLConfigs </FONT><FONT COLOR="#0000ff">return</FONT><FONT COLOR="#000000">:</FONT><FONT COLOR="#800000">SSLConfigs</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)=</FONT><FONT COLOR="#800000">ssl </FONT><FONT COLOR="#0000ff">$$$YES
  q $$$NO
</FONT><FONT COLOR="#800080">}
</FONT><FONT COLOR="#ff0000">Test2</FONT><FONT COLOR="#000000">(ssl) </FONT><FONT COLOR="#800080">{
  </FONT><FONT COLOR="#0000ff">q </FONT><FONT COLOR="#000000">''</FONT><FONT COLOR="#0000ff">$lf</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$lfs</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">ListSSLConfigs</FONT><FONT COLOR="#000000">^%SYS.SECURITY(</FONT><FONT COLOR="#008000">"Client"</FONT><FONT COLOR="#000000">)</FONT><FONT COLOR="#008000">","</FONT><FONT COLOR="#000000">
               </FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">ListSSLConfigs</FONT><FONT COLOR="#000000">^%SYS.SECURITY(</FONT><FONT COLOR="#008000">"Server"</FONT><FONT COLOR="#000000">))
          ,</FONT><FONT COLOR="#800000">ssl</FONT><FONT COLOR="#000000">)
</FONT><FONT COLOR="#800080">}</FONT>

Vitaliy Serdtsev · Mar 7, 2019 go to post

See %RemoteResultSet.

Vitaliy Serdtsev · Mar 6, 2019 go to post

And if so?

<FONT COLOR="#0000ff">CREATE </FONT><FONT COLOR="#000080">TABLE </FONT><FONT COLOR="#008000">test </FONT><FONT COLOR="#000000">(
  </FONT><FONT COLOR="#008000">identifier   </FONT><FONT COLOR="#000080">VARCHAR</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#000080">200</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#000080">NOT NULL</FONT><FONT COLOR="#000000">,
  </FONT><FONT COLOR="#008000">value        </FONT><FONT COLOR="#000080">INTEGER COMPUTEONCHANGE</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">"%%UPDATE"</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#000080">COMPUTECODE </FONT><FONT COLOR="#000000">{</FONT><FONT COLOR="#800080">&sql(</FONT><FONT COLOR="#0000ff">select </FONT><FONT COLOR="#808000">max</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">value</FONT><FONT COLOR="#000000">)+1 </FONT><FONT COLOR="#000080">into </FONT><FONT COLOR="#800000">:{*} </FONT><FONT COLOR="#000080">from </FONT><FONT COLOR="#008000">test </FONT><FONT COLOR="#000080">where </FONT><FONT COLOR="#008000">identifier</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800000">:{identifier}</FONT><FONT COLOR="#800080">)</FONT><FONT COLOR="#000000">},
  </FONT><FONT COLOR="#000080">PRIMARY KEY </FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">identifier</FONT><FONT COLOR="#000000">)
)</FONT>

Vitaliy Serdtsev · Feb 28, 2019 go to post

SQL Projection of Object-Valued Properties

<FONT COLOR="#0000ff">INSERT </FONT><FONT COLOR="#000080">INTO </FONT><FONT COLOR="#008000">Package_Tables</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#008000">Person_Address
    </FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">Person</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#008000">element_key</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#008000">Address_AddressType</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#008000">Address_StreetAddress</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#000080">VALUES
    </FONT><FONT COLOR="#000000">(1,2,1,</FONT><FONT COLOR="#008080">'72 Fake Street'</FONT><FONT COLOR="#000000">)</FONT>

Vitaliy Serdtsev · Feb 28, 2019 go to post

Working example:

<FONT COLOR="#000080">Class dc.test </FONT><FONT COLOR="#000000">[ </FONT><FONT COLOR="#000080">Abstract </FONT><FONT COLOR="#000000">]
{
</FONT><FONT COLOR="#000080">/// d ##class(dc.test).Test1()
ClassMethod </FONT><FONT COLOR="#000000">Test1() [ </FONT><FONT COLOR="#000080">ProcedureBlock </FONT><FONT COLOR="#000000">= 0 ]
{
  </FONT><FONT COLOR="#0000ff">new </FONT><FONT COLOR="#800000">active</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">reactive</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">info</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i
  
  </FONT><FONT COLOR="#0000ff">kill </FONT><FONT COLOR="#800000">info
  </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">active </FONT><FONT COLOR="#000000">= 1
  </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">reactive </FONT><FONT COLOR="#000000">= 2
  </FONT><FONT COLOR="#0000ff">for </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"active"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"reactive" </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">info</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)= @</FONT><FONT COLOR="#800000">i
  </FONT><FONT COLOR="#800080">}
  </FONT><FONT COLOR="#0000ff">zw </FONT><FONT COLOR="#800000">info
</FONT><FONT COLOR="#000000">}
</FONT><FONT COLOR="#000080">/// d ##class(dc.test).Test2()
ClassMethod </FONT><FONT COLOR="#000000">Test2() [ </FONT><FONT COLOR="#000080">PublicList </FONT><FONT COLOR="#000000">= (active, reactive) ]
{
  </FONT><FONT COLOR="#0000ff">new </FONT><FONT COLOR="#800000">active</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#800000">reactive
  </FONT><FONT COLOR="#0000ff">kill </FONT><FONT COLOR="#800000">info
  </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">active </FONT><FONT COLOR="#000000">= 1
  </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">reactive </FONT><FONT COLOR="#000000">= 2
  </FONT><FONT COLOR="#0000ff">for </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"active"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"reactive" </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">set </FONT><FONT COLOR="#800000">info</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)= @</FONT><FONT COLOR="#800000">i
  </FONT><FONT COLOR="#800080">}
  </FONT><FONT COLOR="#0000ff">zw </FONT><FONT COLOR="#800000">info
</FONT><FONT COLOR="#000000">}
}</FONT>

Vitaliy Serdtsev · Feb 22, 2019 go to post

What will the following code output?

<FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">resptext</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"{""access_token"":""4SDFDSFDSF-aSDASDASD"",""expires_in"":""3300"",""refresh_token"":"""",""scope"":""sms_send"",""token_type"":""Bearer""}"
</FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">sc </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%ZEN.Auxiliary.jsonProvider</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">%ParseJSON</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">resptext</FONT><FONT COLOR="#000000">,,.</FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">,1)
</FONT><FONT COLOR="#0000ff">i $$$ISOK</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">sc</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#800080">{
  </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">,!!,
    </FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">"access_token"</FONT><FONT COLOR="#000000">,!,
    </FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">"expires_in"</FONT><FONT COLOR="#000000">,!
  </FONT><FONT COLOR="#0000ff">k </FONT><FONT COLOR="#800000">arr </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">arr</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"" </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%CopyToArray</FONT><FONT COLOR="#000000">(.</FONT><FONT COLOR="#800000">arr</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#0000ff">zw </FONT><FONT COLOR="#800000">arr
</FONT><FONT COLOR="#800080">}</FONT><FONT COLOR="#0000ff">else</FONT><FONT COLOR="#800080">{
  </FONT><FONT COLOR="#0000ff">d $system</FONT><FONT COLOR="#008080">.OBJ</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">DisplayError</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">sc</FONT><FONT COLOR="#000000">)
</FONT><FONT COLOR="#800080">}</FONT>

My result (2018.1):

USER><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">^test</FONT>
1@%ZEN.proxyObject
4SDFDSFDSF-aSDASDASD
3300
arr("access_token")="4SDFDSFDSF-aSDASDASD"
arr("expires_in")=3300
arr("refresh_token")=""
arr("scope")="sms_send"
arr("token_type")="Bearer"

Vitaliy Serdtsev · Feb 22, 2019 go to post

What will the following code output?

USER><FONT COLOR="#0000ff">k </FONT><FONT COLOR="#800000">arr </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">pObject</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%CopyToArray</FONT><FONT COLOR="#000000">(.</FONT><FONT COLOR="#800000">arr</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#0000ff">zw </FONT><FONT COLOR="#800000">arr</FONT>

PS: "in" ≠ "expires_in"

Vitaliy Serdtsev · Feb 22, 2019 go to post

See $system.CSP.GetDefaultApp().

Vitaliy Serdtsev · Feb 22, 2019 go to post

^%ZSTART ?

Vitaliy Serdtsev · Feb 18, 2019 go to post

Hi Adrian.

Made a small example:

<FONT COLOR="#0000ff">#dim </FONT><FONT COLOR="#800000">rs </FONT><FONT COLOR="#0000ff">As </FONT><FONT COLOR="#008080">%ResultSet
   
</FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">pid</FONT><FONT COLOR="#000000">=4652
   
</FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%ResultSet</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">%New</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">"%SYS.ProcessQuery:VariableByPid"</FONT><FONT COLOR="#000000">)
   
</FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">filter</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"a*" </FONT><FONT COLOR="#800080">{
 </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#000000">!,</FONT><FONT COLOR="#008000">"Filter = "</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$$$quote</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">filter</FONT><FONT COLOR="#000000">),!
 </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Execute</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">pid</FONT><FONT COLOR="#000000">,,,,</FONT><FONT COLOR="#800000">filter</FONT><FONT COLOR="#000000">)
 </FONT><FONT COLOR="#0000ff">while </FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Next</FONT><FONT COLOR="#000000">() </FONT><FONT COLOR="#800080">{
   </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#008000">"Name = "</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Get</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">"Name"</FONT><FONT COLOR="#000000">),</FONT><FONT COLOR="#008000">", Value = "</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Get</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">"Value"</FONT><FONT COLOR="#000000">),!
 </FONT><FONT COLOR="#800080">}
}</FONT>

Result:

USER:4652><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">a</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"11"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">b</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"22"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">a1</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"33" </FONT><FONT COLOR="#0000ff">w $job</FONT>
4652
USER:1392><FONT COLOR="#0000ff">w $job</FONT><FONT COLOR="#000000">,! </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">^dc</FONT>
1392
Filter = ""
Name = a, Value = 11
Name = a1, Value = 33
Name = b, Value = 22
Filter = "a*"
Name = a, Value = 11
Name = a1, Value = 33

Vitaliy Serdtsev · Feb 16, 2019 go to post

The presence of a potential opportunity to read the documentation via "Class Reference". For macros from *.inc this is not possible.

Vitaliy Serdtsev · Feb 15, 2019 go to post

Using Dynamic SQL Dynamic SQL Using Older Result Set Classes

Vitaliy Serdtsev · Feb 15, 2019 go to post

See:

PS: $SYSTEM.Util.CleanDeadJobs().

Vitaliy Serdtsev · Feb 14, 2019 go to post

Still another option:

<FONT COLOR="#000080">Class dc.test Extends %Persistent
</FONT><FONT COLOR="#000000">{
</FONT><FONT COLOR="#000080">Property </FONT><FONT COLOR="#000000">JSONData </FONT><FONT COLOR="#000080">As list Of %String </FONT><FONT COLOR="#000000">[ </FONT><FONT COLOR="#000080">SqlListType </FONT><FONT COLOR="#000000">= SUBNODE ];
</FONT><FONT COLOR="#000080">ClassMethod </FONT><FONT COLOR="#000000">Test()
{
  </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">..</FONT><FONT COLOR="#0000ff">%KillExtent</FONT><FONT COLOR="#000000">()
  
  </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">l</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$lb</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">"apple"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"pear"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"plum"</FONT><FONT COLOR="#000000">),</FONT><FONT COLOR="#0000ff">$lb</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#ff00ff">{</FONT><FONT COLOR="#008000">"Name"</FONT><FONT COLOR="#808080">:</FONT><FONT COLOR="#008000">"Kyle"</FONT><FONT COLOR="#ff00ff">}</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%ToJSON</FONT><FONT COLOR="#000000">(),</FONT><FONT COLOR="#ff00ff">{</FONT><FONT COLOR="#008000">"Name"</FONT><FONT COLOR="#808080">:</FONT><FONT COLOR="#008000">"Evgeny"</FONT><FONT COLOR="#ff00ff">}</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%ToJSON</FONT><FONT COLOR="#000000">()) </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">=..</FONT><FONT COLOR="#0000ff">%New</FONT><FONT COLOR="#000000">()
    </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">JSONData</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">InsertList</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">l</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%Save</FONT><FONT COLOR="#000000">()
  </FONT><FONT COLOR="#800080">}
  </FONT><FONT COLOR="#0000ff">zw </FONT><FONT COLOR="#000000">@</FONT><FONT COLOR="#0000ff">$system</FONT><FONT COLOR="#008080">.Dictionary</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">comMemberKeyGet</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$this</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$$$cCLASSstorage</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$$$nameDefaultStorageNameGet</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$$$cSDEFdatalocation</FONT><FONT COLOR="#000000">)
  
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%SQL.Statement</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">%ExecDirect</FONT><FONT COLOR="#000000">(,</FONT><FONT COLOR="#008000">"select distinct json_arrayagg(JSONData %foreach(test)) from dc.test_JSONData"</FONT><FONT COLOR="#000000">)
  </FONT><FONT COLOR="#0000ff">while </FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%Next</FONT><FONT COLOR="#000000">() </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">jsonStr</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800000">rs</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%GetData</FONT><FONT COLOR="#000000">(1),
      </FONT><FONT COLOR="#800000">json</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#ff00ff">[]</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%FromJSON</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">jsonStr</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#000000">!,</FONT><FONT COLOR="#800000">jsonStr</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">", %Size()="</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">json</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">%Size</FONT><FONT COLOR="#000000">(),!
  </FONT><FONT COLOR="#800080">}
</FONT><FONT COLOR="#000000">}
}</FONT>

Result:

USER><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">dc.test</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">Test</FONT><FONT COLOR="#000000">()</FONT>
<FONT COLOR="#000000">^dc.testD=2
</FONT><FONT COLOR="#000000">^dc.testD(1)=</FONT><FONT COLOR="#0000ff">$lb</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">)
</FONT><FONT COLOR="#000000">^dc.testD(1,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">)=3
</FONT><FONT COLOR="#000000">^dc.testD(1,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">,1)=</FONT><FONT COLOR="#008000">"apple"
</FONT><FONT COLOR="#000000">^dc.testD(1,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">,2)=</FONT><FONT COLOR="#008000">"pear"
</FONT><FONT COLOR="#000000">^dc.testD(1,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">,3)=</FONT><FONT COLOR="#008000">"plum"
</FONT><FONT COLOR="#000000">^dc.testD(2)=</FONT><FONT COLOR="#0000ff">$lb</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">)
</FONT><FONT COLOR="#000000">^dc.testD(2,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">)=2
</FONT><FONT COLOR="#000000">^dc.testD(2,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">,1)=</FONT><FONT COLOR="#008000">"{""Name"":""Kyle""}"
</FONT><FONT COLOR="#000000">^dc.testD(2,</FONT><FONT COLOR="#008000">"JSONData"</FONT><FONT COLOR="#000000">,2)=</FONT><FONT COLOR="#008000">"{""Name"":""Evgeny""}"</FONT>
<FONT COLOR="#ff00ff">[</FONT><FONT COLOR="#008000">"apple"</FONT><FONT COLOR="#808080">,</FONT><FONT COLOR="#008000">"pear"</FONT><FONT COLOR="#808080">,</FONT><FONT COLOR="#008000">"plum"</FONT><FONT COLOR="#ff00ff">]</FONT>, %Size()=3
<FONT COLOR="#ff00ff">[{</FONT><FONT COLOR="#008000">"Name"</FONT><FONT COLOR="#808080">:</FONT><FONT COLOR="#008000">"Kyle"</FONT><FONT COLOR="#ff00ff">}</FONT><FONT COLOR="#808080">,</FONT><FONT COLOR="#ff00ff">{</FONT><FONT COLOR="#008000">"Name"</FONT><FONT COLOR="#808080">:</FONT><FONT COLOR="#008000">"Evgeny"</FONT><FONT COLOR="#ff00ff">}]</FONT>, %Size()=2

Doc:

Vitaliy Serdtsev · Jan 16, 2019 go to post

if I call giveMeAFalseMe from Cache when it's returning "true" or "false", Cache will translate "true" into a truthy %Boolean return value, right?

No, it does zenBool, which is on the client side.

The important thing is that #server()# always returns a string, for example:

<script language="cache" method="giveMeAFalse" arguments="" procedureblock='1' returntype="%Integer">return 4</script>var bool = #server(..giveMeAFalse())#;
console.log("bool = " + bool);
console.log("typeof bool = ", typeof bool);

Result:
bool = 4
typeof bool =  string

PS: you can further explore the sources of the #server()# -> cspHttpServerMethod() -> cspProcessResponse(), which are in the file cspxmlhttp.js.

Vitaliy Serdtsev · Jan 15, 2019 go to post

See zenConvertType() [///Converts a typed value returned from the server to an appropriate JS type] from zenutils.js.

Try this:

<script src="zenutils.js"></script>

<script language="javascript">
function isItActuallyFalse() {

var bool = zenConvertType('BOOLEAN',#server(..giveMeAFalse())#);

...
}

</script>

<script language="cache" method="giveMeAFalse" arguments="" returntype="%Boolean" procedureblock='1'>return $$$NO</script>

var bool = zenBool(#server(..giveMeAFalse())#);...
<<FONT COLOR="#ff0000">script </FONT><FONT COLOR="#000080">language</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800080">"cache" </FONT><FONT COLOR="#000080">method</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800080">"giveMeAFalse" </FONT><FONT COLOR="#000080">arguments</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800080">"" </FONT><FONT COLOR="#000080">returntype</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800080">"%Boolean" </FONT><FONT COLOR="#000080">procedureblock</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800080">'1'</FONT><FONT COLOR="#000000">></FONT><FONT COLOR="#0000ff">return </FONT><FONT COLOR="#008000">"false"</FONT><FONT COLOR="#000000"></</FONT><FONT COLOR="#ff0000">script</FONT><FONT COLOR="#000000">></FONT>

Vitaliy Serdtsev · Dec 31, 2018 go to post

s tags=$lb("a","b","c"),
  str="c,a1,d,b,f"
   
s l=$lfs(str),ptr=0
while $listnext(tags,ptr,tag) {
  w:$lf(l,tag) tag,!
}

Result

b c

Vitaliy Serdtsev · Dec 18, 2018 go to post

Source code of class %Net.Remote.Utility is open, so you can use it to make your "RunCommandViaCPIPE" method and already use it.

PS: it's just a wrapper around low-level commands, see Local Interprocess Communication.

Vitaliy Serdtsev · Dec 4, 2018 go to post

use %VarString

Vitaliy Serdtsev · Nov 2, 2018 go to post

No. If you beware to use %occLibrary, you may look into side %Regex.Matcher

Here is another documented solution:

<FONT COLOR="#0000ff">#include </FONT><FONT COLOR="#000000">%systemInclude
  </FONT><FONT COLOR="#0000ff">n
  try</FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">#define </FONT><FONT COLOR="#000000">TAB </FONT><FONT COLOR="#0000ff">$c(9)
    
    s </FONT><FONT COLOR="#800000">csv</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"""ABC,"</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(10)</FONT><FONT COLOR="#008000">" Company,"",""123 Main St, Ste 102"",""Anytown, DC"",10001,234-567-8901,""Anytown"</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$$$TAB</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#008000">"DC"""
    </FONT><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%DeepSee.TermList</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">%ParseCSVRecord</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">csv</FONT><FONT COLOR="#000000">,.</FONT><FONT COLOR="#800000">arr</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#800000">csv</FONT><FONT COLOR="#000000">,!!,</FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">WriteCSVRecord</FONT><FONT COLOR="#000000">(.</FONT><FONT COLOR="#800000">arr</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$$$TAB</FONT><FONT COLOR="#000000">)
  </FONT><FONT COLOR="#800080">}</FONT><FONT COLOR="#0000ff">catch</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">ex</FONT><FONT COLOR="#000000">)</FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">w </FONT><FONT COLOR="#008000">"Error "</FONT><FONT COLOR="#000000">, </FONT><FONT COLOR="#800000">ex</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">DisplayString</FONT><FONT COLOR="#000000">(),!
  </FONT><FONT COLOR="#800080">}
</FONT><FONT COLOR="#ff0000">WriteCSVRecord</FONT><FONT COLOR="#000000">(&pRecord, pDelim=</FONT><FONT COLOR="#008000">","</FONT><FONT COLOR="#000000">, pEncode=</FONT><FONT COLOR="#0000ff">$$$YES</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#800080">{
  </FONT><FONT COLOR="#008000">// made on the basis of the method %WriteCSVRecord
  </FONT><FONT COLOR="#0000ff">Set </FONT><FONT COLOR="#800000">r </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#008000">""
  </FONT><FONT COLOR="#0000ff">Set </FONT><FONT COLOR="#800000">k </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$O</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">pRecord</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">))
  </FONT><FONT COLOR="#0000ff">While </FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">k</FONT><FONT COLOR="#000000">'=</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#800080">{
    </FONT><FONT COLOR="#0000ff">Set </FONT><FONT COLOR="#800000">tValue </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$G</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">pRecord</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">k</FONT><FONT COLOR="#000000">))
    </FONT><FONT COLOR="#0000ff">Set</FONT><FONT COLOR="#000000">:</FONT><FONT COLOR="#0000ff">$G</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">pEncode</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#800000">tValue </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$ZCVT</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"O"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#008000">"UTF8"</FONT><FONT COLOR="#000000">) 
    </FONT><FONT COLOR="#0000ff">Set </FONT><FONT COLOR="#800000">r </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#800000">r </FONT><FONT COLOR="#000000"> </FONT><FONT COLOR="#0000ff">$S</FONT><FONT COLOR="#000000">((</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">[</FONT><FONT COLOR="#008000">""""</FONT><FONT COLOR="#000000">)||(</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">[</FONT><FONT COLOR="#008000">","</FONT><FONT COLOR="#000000">)||(</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">[</FONT><FONT COLOR="#800000">pDelim</FONT><FONT COLOR="#000000">):</FONT><FONT COLOR="#0000ff">$$$quote</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">),1:</FONT><FONT COLOR="#800000">tValue</FONT><FONT COLOR="#000000">)
    </FONT><FONT COLOR="#0000ff">Set </FONT><FONT COLOR="#800000">k </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#0000ff">$O</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">pRecord</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">k</FONT><FONT COLOR="#000000">))
    </FONT><FONT COLOR="#0000ff">Set</FONT><FONT COLOR="#000000">:</FONT><FONT COLOR="#800000">k</FONT><FONT COLOR="#000000">'=</FONT><FONT COLOR="#008000">"" </FONT><FONT COLOR="#800000">r </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#800000">r </FONT><FONT COLOR="#000000"> </FONT><FONT COLOR="#800000">pDelim
  </FONT><FONT COLOR="#800080">}
  </FONT><FONT COLOR="#0000ff">Quit </FONT><FONT COLOR="#800000">r
</FONT><FONT COLOR="#800080">}</FONT>

Result:

USER><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">^dc</FONT>
"ABC,
Company,","123 Main St, Ste 102","Anytown, DC",10001,234-567-8901,"Anytown        DC"
"ABC,
Company," "123 Main St, Ste 102"  "Anytown, DC"   10001   234-567-8901    "Anytown        DC"

Vitaliy Serdtsev · Nov 2, 2018 go to post

.net Framework Error (HRESULT 0x8007000B)

Vitaliy Serdtsev · Nov 1, 2018 go to post

#include %systemInclude

    s csv="ABC Company,""123 Main St, Ste 102"",""Anytown, DC"",10001,234-567-8901"
    s list=$$CSVtoList^%occLibrary(csv)

    f i=1:1:$ll(list) s:$li(list,i)["," $li(list,i)=$$$quote($li(list,i))
        
    w csv,!,$lts(list,$c(9))

Result:

USER>d ^test

ABC Company,"123 Main St, Ste 102","Anytown, DC",10001,234-567-8901 ABC Company "123 Main St, Ste 102" "Anytown, DC" 10001 234-567-8901

Vitaliy Serdtsev · Nov 1, 2018 go to post

Maybe the name of the topic to specify a CSV-string instead of string ?

After clarification, the question became more clear.

Vitaliy Serdtsev · Nov 1, 2018 go to post

$tr(str,",",$c(9)) or $replace(str,",",$c(9))

Vitaliy Serdtsev · Nov 1, 2018 go to post

I was looking at the generated INT code for &sql(select lpad('1',4,'0') n)

Unfortunately, for COS at the moment I have not found an analogue LPAD^SQL. Can you offer a documented LPAD^COS ?

Vitaliy Serdtsev · Oct 30, 2018 go to post

Once upon a time promised to make Server-Side JavaScript alongside with Caché ObjectScript and Caché Basic:

I found a JS Runtime Shell that uses Node.JS & esprima:

SAMPLES><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000080">##class</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">%CPT.JS.Runtime.Shell</FONT><FONT COLOR="#000000">).</FONT><FONT COLOR="#0000ff">Run</FONT><FONT COLOR="#000000">()</FONT>
JRS> ?
.L CLASS   - load javascript methods from CLASS into JS global namespace
.LV var,.. - load the given COS public vars into JS global namespace
.S FUNC  - list the source of the method which implements function FUNC
- FUNC must be in the global namespace
- the whole implementing method is shown, even for an inner function
- this will also work for non-javascript methods
.M       - list MAC code from latest compilation
.I       - list INT code from latest compilation
.T       - show latest tree
.G       - list global symbols
.N CODE  - execute JS on node.js
.N       - execute the last-entered line of JS on node.js
.CONFIG ... - passed to %CPT.CalloutShell 'CONFIG' command
.SET ... - passed to %CPT.CalloutShell 'SET' command
.CLEAR ... - passed to %CPT.CalloutShell 'CLEAR' command
.SHOW ... - passed to %CPT.CalloutShell 'SHOW' command
!COS     - execute a line of COS
Anything else is interpreted as JS. :-

if preceded by "=" it must be a single function definition
otherwise it can be either a single expression or a sequence of statements separated by ";"s

Either way it will be compiled into a function body and :-

if preceded by "==" it is stored as a JS global with the new function's name
otherwise it will just be executed

\n can be used to represent a newline.

You can also take input from a file :- <FILE - read JS from FILE and compile+execute it <=FILE - read JS from FILE and compile+store it

The result of the execution is shown and also stored in global variable '_'.

For a global variable, set it without using 'var' (this will be fixed)

JRS> .N var obj = { name: "John", age: 30, city: "New York" }; JSON.stringify(obj); {result: "{""name"":""John"",""age"":30,""city"":""New York""}"}

JRS> .N Math.random() {result: .5670654247514904}

JRS> .N var fruits = ["Banana", "Orange", "Apple", "Mango"]; fruits.sort(); {result: ["Apple", "Banana", "Mango", "Orange", 1: "Apple", 2: "Banana", 3: "Mango", 4: "Orange"]}

JRS> q

SAMPLES>

Vitaliy Serdtsev · Oct 30, 2018 go to post

If you do universal LPAD, it is best $$lpad^%qarfunc, because for certain arguments may produce an incorrect result, for example:

<FONT COLOR="#0000ff">#define </FONT><FONT COLOR="#000000">lpad(%s,%len,%pad) </FONT><FONT COLOR="#0000ff">$tr($j(%s,%len),</FONT><FONT COLOR="#008000">" "</FONT><FONT COLOR="#0000ff">,%pad)
   
s </FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"a b"</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">len</FONT><FONT COLOR="#000000">=8,</FONT><FONT COLOR="#800000">pad</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"0"
   
</FONT><FONT COLOR="#0000ff">w $$$lpad</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">len</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">pad</FONT><FONT COLOR="#000000">),!
 ,</FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">lpad</FONT><FONT COLOR="#000000">^%qarfunc(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">len</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">pad</FONT><FONT COLOR="#000000">),!
 ,</FONT><FONT COLOR="#0000ff">$$$lpad</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">len</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">),!
 ,</FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">lpad</FONT><FONT COLOR="#000000">^%qarfunc(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">len</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">),!</FONT>

Result:

USER><FONT COLOR="#0000ff">d </FONT><FONT COLOR="#000000">^test</FONT>
<FONT COLOR="red">00000a0b</FONT>
<FONT COLOR="green">00000a b</FONT>
<FONT COLOR="red">aaaaaaab</FONT>
<FONT COLOR="green">a ba a b</FONT>

Vitaliy Serdtsev · Oct 29, 2018 go to post

Also LPAD^SQL

USER><FONT COLOR="#0000ff">d $system</FONT><FONT COLOR="#008080">.SQL</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Shell</FONT><FONT COLOR="#000000">()</FONT>
SQL Command Line Shell

The command prefix is currently set to: <>. Enter q to quit, ? for help. USER>>select lpad('1',4,'0') n

 <FONT COLOR="#0000ff">select&nbsp;</FONT><FONT COLOR="#008000">lpad</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008080">'1'</FONT><FONT COLOR="#000000">,4,</FONT><FONT COLOR="#008080">'0'</FONT><FONT COLOR="#000000">)&nbsp;</FONT><FONT COLOR="#008000">n</FONT>

n 0001

1 Rows(s) Affected

Also LPADSQLUSER><FONT COLOR="#0000ff">d $system</FONT><FONT COLOR="#008080">.SQL</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Shell</FONT><FONT COLOR="#000000">()</FONT> SQL Command Line Shell

User statistics

Also LPAD^SQL
USER><FONT COLOR="#0000ff">d $system</FONT><FONT COLOR="#008080">.SQL</FONT><FONT COLOR="#000000">.</FONT><FONT COLOR="#0000ff">Shell</FONT><FONT COLOR="#000000">()</FONT> SQL Command Line Shell