go to post Robert Cemper · Sep 11, 2020 AHHH!that sort of comfort isn't foreseen.You have to type in the variable names.But you see it when you move the cursor over the variable in the code window as "hoover"-text.The Watch Window is useful if you have objects, or $LB structures, arrays, ... or obj.property. Schönen Abend noch aus Wien.
go to post Robert Cemper · Sep 11, 2020 once your debugger is attached to a process you press ALT+4 /(Watch Window) sorry, have just my German version at hands next you type the variable you want to see and it gets updated at every step see “Using the Studio Debugger.” details Watch Window
go to post Robert Cemper · Sep 11, 2020 At first sight, the sequence of your values matches the sequence of your properties. transforming your input from fecha1|nombreProfesional1|centro1|secuencia1|hora1|bloque1|acto1|lug.... to 'fecha1','nombreProfesional1','centro1','secuencia1','hora1','bloque1','acto1','lug.... in an exercise for beginners.Next I would use SQL to insert the record INSERT INTO EsquemasDatos_DragoAP.ConsultarCitas (fecha1,nombreProfesional1,centro1,secuencia1,hora1,bloque1,acto1,lug....)VALUES ('fecha1','nombreProfesional1','centro1','secuencia1','hora1','bloque1','acto1','lug....) An that's it! Listing of the columns is only necessary if you distrust the class compileror if you want to prevent problems with later sequence changes in the class definition.In any case, it should reflect the sequence of your data input, independent of sequence in class. I'd suggest to use one of the ResultSet classes and avoid embedded SQL.The whole SQL statement can be composed as a single string and then processed . more on INSERT and variations
go to post Robert Cemper · Sep 11, 2020 Confirm #2) it was not a good idea for starting with containers
go to post Robert Cemper · Sep 11, 2020 Confirm. No Caché in containers.I built one myself a year or more ago. Not real rocket since but quite some effort. (late thanks to @Dmitry Maslennikov and @Luca Ravazzolo )Now I'd position it as less rocket than before. But not really worth the effort.I finally grabbed a VM instead for my "exercises". Today I would just use WSL2 instead with a default Linux distribution.
go to post Robert Cemper · Sep 11, 2020 I enjoyed it! reminds me of competitions on how to get some results by a minimum of characters. eg. list a global. With expanding / compressing code I Studio [ <ctrl>E, <ctrl><shift>E ] this is all history
go to post Robert Cemper · Sep 6, 2020 just reading it:ERROR <Ens>ErrParsingExpression: Error parsing expression'GenerateNACK("For NewBorn Msg, PID21 Mother Idendentifier should have MRN number",%ErrorStatus)':0--------10--------20--------30--------40--------50--------60--------70--------80--^ 83 !!!ERROR <Ens>ErrInvalidName: Invalid name at offset 83 > either variable %ErrorStatus is missing or not an object of type %Status
go to post Robert Cemper · Sep 5, 2020 simply NO! no OS would allow this.1 port = 1 listenerbut you may build a listener dispatching to various services according to some content / signal you receive.or using a kind of load balancer to distribute incoming messages
go to post Robert Cemper · Sep 3, 2020 The Native API connects to IRIS by starting a background JOBIn namespace %SYS you can have access to every fresh started job.The routine name is %ZSTART.mac.You have to create it if not existing yet or to adapt it.My example is just reduced to your case.Writing a log in global ^%CHECK is just for testing.I used Native API and also Studio for testing. %ZSTART ; User startup routine.#; cannot be invoked directly quit SYSTEM ;#; InterSystems IRIS starting quitJOB ;#; JOB'd process begins new ipaddr,halt set ipaddr=$system.Process.ClientIPAddress() set halt=(ipaddr="172.17.0.2") set ^%CHECK($I(^%CHECK))=$lb(halt,$job,$ZDT($zts,3,,3),ipaddr,$znspace,$io)#; add here all checking for allowed IP Address #; halt if access is not allowed if halt halt quitCALLIN ;#; connect over CALLIN quitLOGIN ; quit This is a test result with Studio and 2 Native API. One blocked and the other allowed. ^%CHECK=5^%CHECK(1)=$lb(0,"15044","2020-09-03 16:22:54.667","192.168.0.9","USER","|TRM|:|15044")^%CHECK(2)=$lb(0,"17100","2020-09-03 16:23:41.247","192.168.0.9","%SYS","|TCP|51773|17100")^%CHECK(3)=$lb(0,"9880","2020-09-03 16:24:20.612","192.168.0.9","%SYS","|TCP|51773|9880")^%CHECK(4)=$lb(1,"19544","2020-09-03 16:24:41.925","172.17.0.2","%SYS","|TCP|51773|19544")^%CHECK(5)=$lb(0,"3268","2020-09-03 16:25:27.691","172.17.0.3","%SYS","|TCP|51773|3268")
go to post Robert Cemper · Sep 3, 2020 let's have your binary input in variable data JAVA ObjectScript byte[] data = new byte[1024]; ;Bytebuf buf = new ByteBuf(data) set buf=data ; make your work copy byte type = buf.read() set type=$extract(buf) ; if type = character set type=$ascii(buf) ; if type = binaryint len = buf.ReadInt() set len=$zlascii($extract(buf,2,5)) ; if order low->high set len=$zlascii($reverse($extract(buf,2,5))) ; li order high->low byte[] bodyBuff = new byte[len] ; buf.Read(bodyBuff) ; String str = new String(strBody) set str=$extract(buf,6,*) ; take rest of buf from the description there are 2 open points: is type a binary value or a character for length it could be - low byte first so 515 => x/02 03 00 00 ; default - or high byte first so 515 => x/00 00 02 03 ; need to reverse order therefore I have added both variants
go to post Robert Cemper · Sep 2, 2020 OK. there is a bunch of system utilities that are protected from studio. Typically the real powerful and sometimes dangerous old stuff.
go to post Robert Cemper · Sep 2, 2020 That's interesting: How did you look for GBLOCKCOPY.int ? there never was a .mac!And it is even on the news IRIS. Instance: IRIS USER>zn "%SYS" %SYS>zl GBLOCKCOPY %SYS>p GBLOCKCOPY ; Fast global copy from database to namespace ; Copyright (c) 2020 by InterSystems Corporation. ; Cambridge, Massachusetts, U.S.A. All rights reserved. ; Confidential property of InterSystems Corporation. n i $p($g(^|"^^"_$zu(12)|%SYS("GBLOCKCOPY")),"~",1)'="1.0" k ^|"^^"_$zu(12)|%SYS("GBLOCKCOPY") i '$d(^|"^^"_$zu(12)|%SYS("GBLOCKCOPY")) s ^|"^^"_$zu(12)|%SYS("GBLOCKCOPY")="1.0~" s POP=0 w !,"This routine will do a fast global copy from a database to another database or" w !,"to a namespace. If a namespace is the destination, the global will follow any" w !,"mappings set up for the namespace." ; MENU ; If this is missing you may also miss other important pieces:Check your installation or reinstall it
go to post Robert Cemper · Sep 2, 2020 This is a late reply and the content my explain why.There is a set of available classes and methods to fulfill your requirements.Though you have to be careful as there are side conditions to be considered that require special attention. You have to wrap these class methods in some routine or class and then plug it into the standard task manager. From your question I understand 4 different tasks: Compact globals in a database (=force global to make better use of data blocks) ##Class(SYS.Database). Compact(..............) Return unused space for a database (=truncate DB) ##class(SYS.Database).ReturnUnusedSpace(........) Defragment a database (=make Blocks contiguous) ##class(SYS.Database).Defragment(........) ##class(SYS.Database.BackgroundDefragment).Start(........) ;;[not so useful for task manager] Compact free space in a database (=really returns disk space) ##class(SYS.Database).FileCompact.(........) ##class(SYS.Database.BackgroundFileCompact).Start(........) ;;[not so useful for task manager] The official documetation also has some examples.My personal favorite is routine DATABASE.int in namespace %SYSIt covers all these functions for interactive use and illustrates also all possible requirements and limits in detail.The labels you should check are:COMPACT()DBTruncat()DEFRAG()FileCompact() This might also explain why there is not just a method out of the box.
go to post Robert Cemper · Sep 2, 2020 Dear @Sylvain Guilbaud As this is the oldest unanswered question I found I'll give it a try:One of the most attractive features of DeepSee is its close link to the Caché (now IRIS) database using the DSTIME mechanics for updates.With an external linked DB you don't have this "built-in" support.Other DB's have similar features but including them requires some "art work".And that doesn't seem to happen so often. On the other hand the question was never expired nor closed.It might happen that new results (almost 5 years later) show up now as it moves to the front. J'espère que tu vas bien et en bonne santé! Salutations de Vienne, Robert (toujours actif)
go to post Robert Cemper · Sep 2, 2020 @Oliver Wilms #1) make sure your ECP Server is willing to accept ECP AplicationServers: #2) on your Application Server define your Data Server %SYS>set Name="MainServer" %SYS>set Properties("Address")="127.0.0.1" %SYS>set Properties("Port")=1972 %SYS>s Status=##Class(Config.ECPServers).Create(Name,.Properties) %SYS>zw Status Status=1 see docs: class Config.ECPServers #3) connect to your Data Server %SYS>set ecpstate=##class(SYS.ECP).GetServerConnState(Name) %SYS>zw ecpstate ecpstate=1 ;; Not Connected %SYS>set tSC=##class(SYS.ECP).ServerAction(Name,3) ;; 3 - Change to Normal %SYS>zw tSC tSC=1 %SYS>set ecpstate3=##CLASS(SYS.ECP).GetServerConnState(Name) %SYS>ZW ecpstate3 ecpstate3=5 ;; 5 - Normal see docs: class SYS.ECP #4) now in SMP:
go to post Robert Cemper · Sep 1, 2020 I'm not aware of a file size limit with NTFS.ECP is the Enterprise Caché Protocol that can connect Caché / Ensemble / IRIS instances over the network.To use it you require a multiserver license
go to post Robert Cemper · Sep 1, 2020 WRC is the InterSystems Worldwide Support Center https://wrc.intersystems.com
go to post Robert Cemper · Sep 1, 2020 So ECP might be even more interesting as you can copy directly to the target DB.Instead of copy local, copy DB or file, load global. At that moment what is the file system of your installation? The 4GB limit did ring a bell in my head.
