go to post Vitaliy Serdtsev · Jul 7, 2017 By the way: some server side alternative solution sample(s) are more than welcome! $zcvt USER>w $zcvt("BLACKFIN CAPITAL PARTNERS","W") Blackfin Capital Partners USER>w $zcvt("MARK'S 'MARK'S (MARK'S)","W") Mark's 'Mark's (Mark's)
go to post Vitaliy Serdtsev · Jul 6, 2017 The main downside would be having to either implement software on the same server as Caché installation Establishing a TCP/IP Connection
go to post Vitaliy Serdtsev · Jul 5, 2017 SAMPLES>d $system.SQL.Shell() SQL Command Line Shell ---------------------------------------------------- The command prefix is currently set to: >. Enter q to quit, ? for help. SAMPLES>>?=CALL %SYSTEM.SQL_TableExists('Sample.Person') 1. ?=CALL %SYSTEM.SQL_TableExists('Sample.Person') executing statement with parameter values: set %tResult=%tStatement.%Execute() Output Values: 0. 1 statement prepare time(s)/globals/lines/disk: 0.0025s/14/862/0ms execute time(s)/globals/lines/disk: 0.0003s/7/179/0ms cached query class: %sqlcq.SAMPLES.cls2 --------------------------------------------------------------------------- SAMPLES>>
go to post Vitaliy Serdtsev · Jul 3, 2017 But so? Call USER.SP('select * from Sample.Person where SSN=''aaaaa''','0','S')
go to post Vitaliy Serdtsev · Jul 3, 2017 Demo for [F1], [F7] and [Home]: s key(##class(%xsd.hexBinary).XSDToLogical("1B5B31387E"))="F7" s key(##class(%xsd.hexBinary).XSDToLogical("1B4F50"))="F1" s key(##class(%xsd.hexBinary).XSDToLogical("1B5B317E"))="Home" u:$zu(96,14)=1 0:(:"+S") r "Input: ",*x u:$zu(96,14)=1 0:(:"-S") ;zzdump $key w "You press [",$g(key($key),"unknown"),"]",!
go to post Vitaliy Serdtsev · Jul 3, 2017 error code 100 do not exist, but there is a code 101. See documentation: General Error Messages USER>s $mvv(58)="es" USER>d $SYSTEM.OBJ.DisplayError($System.Status.Error(101)) ERROR #101: Nivel puntero superior: nº bloques=%1 %2kb (%3% total) error with some positive codes are reserved by the system, so you can't use them. Two error codes, 83 and 5001, are provided to enable you to generate your own custom error messages.
go to post Vitaliy Serdtsev · Jul 3, 2017 Indicates that your version is below 2011.x See documentation: 2010.2 (absent) 2011.1 (present)
go to post Vitaliy Serdtsev · Jul 3, 2017 Yes, see part "Creation of a custom error message dictionary" PS: you can even use the letters, for example: <?xml version="1.0" encoding="UTF-8"?> <MsgFile Language="en"> <MsgDomain Domain="asd"> <Message Id="a" Name="ErrorName1">Message about some error 1</Message> <Message Id="b" Name="ErrorName2">Message about some error 2 %1 %2</Message> </MsgDomain> </MsgFile>
go to post Vitaliy Serdtsev · Jun 29, 2017 #dim list As %ListOfDataTypes d ##class(%ZEN.Auxiliary.jsonProvider).%ConvertJSONToObject("[""a"",""b"",""c""]",,.list) w list.Count(),!
go to post Vitaliy Serdtsev · Jun 21, 2017 It is not clear what it will give. To Richard need to save the binary data encoded in hex. For example, instead of '0x2122232425262728292A2F' to the database should persist the value !"#$%&'()*/ USER>w $c(33,34,35,36,37,38,39,40,41,42,47) !"#$%&'()*/ USER>w ##class(%xsd.hexBinary).LogicalToXSD($c(33,34,35,36,37,38,39,40,41,42,47)) 2122232425262728292A2F USER>zzdump ##class(%xsd.hexBinary).XSDToLogical("2122232425262728292A2F") ; 0x omitted 0000: 21 22 23 24 25 26 27 28 29 2A 2F !"#$%&'()*/
go to post Vitaliy Serdtsev · Jun 20, 2017 The solution: USER>w ##class(ITPlanet.BlackBox).Main({"trantable":"JSON"},"I") Hello World! USER>w ##class(ITPlanet.BlackBox).Main({"trantable":"JS"},"I") Hello World!
go to post Vitaliy Serdtsev · Jun 16, 2017 URL and URI Conversions Try: Set tURL=..Adapter.URL_"/claims/"_##class(%CSP.Page).EscapeURL(pRequest.claimBlob) or Set tURL=..Adapter.URL_"/claims/"_$zcvt($zcvt(pRequest.claimBlob,"O","UTF8"),"O","URL") USER>w $zcvt($zcvt($c(0,1,2,1025),"O","UTF8"),"O","URL") %00%01%02%D0%81 USER>w ##class(%CSP.Page).EscapeURL($c(0,1,2,1025)) %00%01%02%D0%81
go to post Vitaliy Serdtsev · Jun 15, 2017 See $zcvt for JSON, e.g.: USER>w $zcvt($c(0,1,2),"O","JSON") \u0000\u0001\u0002 USER>zw $zcvt("\u0000\u0001\u0002","I","JSON") $c(0,1,2) USER>w {"binary":($c(0,1,2))}.%ToJSON() {"binary":"\u0000\u0001\u0002"}
go to post Vitaliy Serdtsev · Jun 15, 2017 But you can use Kerberos: About Kerberos and the Access Modes. Then maybe it would be better to move the functionality of the Web(Terminal) in the Atelier?
go to post Vitaliy Serdtsev · Jun 15, 2017 Need: add a bitmap extent index in the class and/or increase the timeout in the CSP Gateway/WebServer
go to post Vitaliy Serdtsev · Jun 15, 2017 This does not negate the need to improve the Caché Terminal.
go to post Vitaliy Serdtsev · Jun 15, 2017 Nikita is an employee of InterSystems? If so, then it seems to me that it would be easier and more effective if upgrade a standard Caché Terminal, turning to the achievements of Nikita.
go to post Vitaliy Serdtsev · Jun 15, 2017 Congratulations, John.To be a moderator is a big responsibility, so I wish you a lot of patience.
