@Robert Cemper - I have verified that the query Detail does exist in 2017.2 (closest I can get) but you are spot on that it needs to be run from the %SYS namespace; I tried two other Ensemble-capable namespaces and it errored out both times.
Would this be acceptable?
W$TRANSLATE($ZDATETIME($HOROLOG,8)," :")Hope this helps!
Another possibility might be to see if there's been backups of the routines being saved. It won't give you the "who" but it could at least give you the "when" a routine was modified & compiled.
You could use the 'Global Lister' and check the rBACKUP global. Here's an example (you may need to tinker with the the global lister input - taking a deeper dive into the ^rBACKUP global may help):
ZZZ>D^%G
Device:
Right margin: 80 =>
Screen size for paging (0=nopaging)? 24 =>
For help on global specifications DO HELP^%G
Global ^rBACKUP("TEST","INT",,0)
or maybe
Global ^rBACKUP("TEST.1","INT",,0)To really get all the functionality you're looking for, you may need to set up a version control system like git or somesuch.
Hope this helps!
If you have multiple subscript levels, this may help:
SET I=0,G="^test("""")"FOR {SET G=$QUERY(@G) Q:G=""SET I=I+1WRITE G,!} WRITE"Total: ",I,!Here's the data:
set^test(1)="aa"set^test(1,1,1)="aa"set^test(2)="aa"set^test(2,1)="aa"set^test(2,2,1)="aa"set^test(3,1)="aa"set^test(4,1)="aa"And here's the output:
^test(1)
^test(1,1,1)
^test(2)
^test(2,1)
^test(2,2,1)
^test(3,1)
^test(4,1)
Total: 7If you only wanted the total (especially if the global is much larger) omit the 'WRITE G,!' portion out of the line of code above.
Hope this helps!
Sure, the $Increment command can also decrement, and the values don't have to be 'just 1.'
Here's the documentation for the $Increment command:
https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_FINCREMENT
Simply, you can do this to decrement by 1:
Set TEMP=$INCREMENT(^test,-1)If you wanted to increment by 10, the command would be this:
Set TEMP=$INCREMENT(^test,10)To test, try this:
S^test=0 F S TEMP=$INCREMENT(^test,10) Q:$G(^test)>100W^test,!Hope this helps!
Robert,
I'm not sure if this helps your particular situation, but if it's "OK" to manually tell your container what the local hostname of the host is, then you could try this:
set ip=$SYSTEM.INetInfo.HostNameToAddr("**local_name_NotFQDN**")with just the local hostname (not the FQDN) of the host machine in quotes... and that should give you the IP address of the active ethernet/wireless adapter. I tried this in a container running IRIS on a Raspberry Pi and the local hostname is "Iris2" (so, it is running Linux, I don't have any container systems running on Windows... sorry!) and this is what I got:
USER> Set ip=$SYSTEM.InetInfo.HostNameToAddr("Iris2")
USER> zw ip
ip="192.168.1.236"On my network, 172.17.0.x is the internal Docker bridge, 192.168.1.x is my wireless network, and 10.1.2.x is my desktop wired network. (I have many servers, printers & whatnot, so I have multiple VLANs on my home network.) Now... I'm not sure if this is good or bad for your situation, but in my example, if I were to shutdown the container, disable the wireless, hook up an ethernet cable to the network and restart everything, the listed IP from this command would change from the 192.168.1.x to a 10.1.2.x IP address. This could be good if you wanted to know how the main machine was externally connected; or it could be bad if you're using awk/grep/findstr on logs looking for a particular IP. As I said, I'm unsure of your actual use case, so if this had to be portable across several containers and several machines unchanged, this may not help you as you'll manually have to change the machine name in your code.
Hope this helps!
One option would just be a straight telnet session (swap 10.10.10.10 with the IP address of your system):
telnet 10.10.10.10 1972If the port is closed, you should get the error: "telnet: Unable to connect to remote host: Connection refused" - but if successful you should get the "Connected to 10.10.10.10" you'll know it's open. To exit, type <CTRL>] for a telnet prompt, then type 'quit'.
Hope this helps!
Give me a couple-three days - working on spinning up a couple Raspberry Pi's with IRIS in containers for testing; one with Ubuntu and one with Debian.
There are provisions in the $ZDATEH function to cover the "two-digit-year" century issue. If you need all two-digit years to equate to 20xx, try this:
$ZDATEH("01/01/23",,,3,58074,94598)As in, set the 'yearopt' parameter to 3, then set the startwin & endwin dates (in $H format) to the beginning and ending window to interpret the two-digit years.
If you need a specific range 100 year range - for this example, to evaluate two-digit years between 01/01/1950 and 12/31/2049, you'll need the $H values of those dates:
W$ZDATEH("1/1/1950")
39812W$ZDATEH("12/31/2049")
76336Then use those $H values in the window of the $ZDATEH command:
$ZDATEH("01/01/23",,,3,39812,76336)Here's more documentation on the $ZDATEH command:
https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fzdateh
Hope this helps!
First, just to let you know that even back with Cache 2017.x.x, $ZF(-1) & $ZF(-2) are deprecated and shouldn't be used for new code. $ZF(-100) should be used instead. As $ZF(-100) is more powerful anyway, I would suggest reading up on it:
https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fzf-100
With $ZF(-100) you can redirect input and output to files or other devices which may help you run the task you're requiring in the background. Note that I don't know (at least in a Windows environment) if you can successfully run a job in the background and still have interactive access to that process. There's a note in the documentation above that states that /ASYNC jobs use the null device for input if it's not redirected from a file. I don't know if you can redirect from a device instead.
Hope this helps!
I'm hoping this will be enough to at least "get you started" - so here's a programming example that will handle either a single or dual \x notation code:
ZUNICODE ; DECODE HEX/UNICODE SEQUENCES IN A STRINGQ;
CVT(TEXT) ; ENTRY POINT FOR EXTRINSIC FUNCTION TO CONVERT HEX CODE(S); IN A STRING. ONLY CONVERTS FIRST SET - IMPROVEMENT OF; ROUTINE LEFT AS AN EXERCISE TO THE READER.
N P1,P2,C1,C2,OUT
I $L(TEXT,"\x")=1W"NO USABLE HEX MARKERS FOUND - DID NOT CONVERT TEXT.",! Q TEXT
I $L(TEXT,"\x")=2W"SINGLE HEX MARKER FOUND. CONVERTING.",! D
. S P1=$P(TEXT,"\x",1)
. S P2=$P(TEXT,"\x",2)
. S C1=$E(P2,1,2)
. S P2=$E(P2,3,$L(P2))
. S OUT=P1_$C($ZHEX(C1))_P2
I $G(OUT)'=""Q OUT
I $L(TEXT,"\x")=3W"DUAL UNICODE MARKER FOUND. CONVERTING.",! D
. S P1=$P(TEXT,"\x",1)
. S C1=$P(TEXT,"\x",2)
. S P2=$P(TEXT,"\x",3)
. S C2=$E(P2,1,2)
. S P2=$E(P2,3,$L(P2))
. S OUT=P1_$C($ZHEX(C1_C2))_P2
I $G(OUT)'=""Q OUT
W"MORE THAN TWO UNICODE MARKERS FOUND - LOOPS WOULD HELP. DID NOT CONVERT TEXT.",!
Q TEXTHere's some examples on how it's called:
USER>S BB="Hello World"
USER>S BB="Hello \xc2\xa3 World"
USER>S OUT=$$CVT^ZUNICODE(BB)
DUAL UNICODE MARKER FOUND. CONVERTING.
USER>W OUT
Hello 슣 World
USER>S BB="Hello \xc2 World"
USER>S OUT=$$CVT^ZUNICODE(BB)
SINGLE HEX MARKER FOUND. CONVERTING.
USER>W OUT
Hello  World
USER>S BB="Hello \xa3 World"
USER>S OUT=$$CVT^ZUNICODE(BB)
SINGLE HEX MARKER FOUND. CONVERTING.
USER>W OUT
Hello £ World
USER>S BB="Hello World"
USER>S OUT=$$CVT^ZUNICODE(BB)
NO USABLE HEX MARKERS FOUND - DID NOT CONVERT TEXT.
USER>W OUT
Hello WorldNow, the output above seems to show that the pound symbol is a single hex character \xa3, at least on the Windows system that I am using. Maybe the \xa3 means "special character coming next" as at least in the charmap utility on Windows Server 2016 shows the U+C2A3 character as "Hangul Syllable Sios Yu Hieuh" (font: Gulim) and on my Ubuntu Linux 20.04 system it says "HANGUL SYLLABLE SYUH" (fonts: Trebuchet MS and Noto Serif CJK SC, pasted into LibreOffice Writer).
There are limitations to this code that could be improved. For one example, it doesn't handle multiple codes (single or unicode)... but hopefully this will give you (if nothing else) a good troubleshooting tool to get you started.
I can't get the test case code to work (maybe because I only have access to 2017.2...) but manually executing the tests like this:
w##class(CodeGolf.MultiTap).ToKeyPad("L33T C0d3r")="55533333333802220033333777"and verifying that the output was '1' instead of '0', my code does pass the test cases.
I was able to get a length of 173...
Anyway, here's my solution - maybe it'll help someone make theirs even shorter.
ClassMethod ToKeyPad(phrase) As%String
{
SQ=" 0^1^ABC2^DEF3^GHI4^JKL5^MNO6^PQRS7^TUV8^WXYZ9",P=$ZCVT(phrase,"U") F I=1:1:$L(P){S C=$E(P,I) F J=1:1:10{SK=$F($P(Q,"^",J),C) F L=1:1:K-1SX=$G(X)_(J-1)}} ReturnX
}If you're asking what to do to only have one double-quote in the result, you could use this:
s b="""Cat"w bBasically, wherever you want a double-quote in the output string, put two double-quotes together in the string. So, if you wanted the string to say: Cat"so"only"one you would use this:
s b="Cat""so""only""one"When I write code that needs to output comma separated value files, I often create variables to hold both the double-quote and comma characters, to me the resulting code is much easier to read. For example:
SQ="""",C=",",QCQ=Q_C_Q ; Sets Q to " char, C to comma, and QCQ to ","; so when I need to output some strings, I just use the variables:W Q_"string1"_QCQ_"string2"_QCQ_"string3"_Q,!
To me, it's easier to read than a whole bunch of imbedded double-quotes all strung together.
Hope this helps!
The $LENGTH function can give you the number of PIECEs in a string, and the $PIECE function can grab multiple pieces, so for your example:
S DELIM="D"S STRING="aaDtext1Dtext2"W$PIECE(STRING,DELIM,1,($LENGTH(STRING,DELIM)-1))Edit: Links to documentation for the $PIECE and $LENGTH functions:
$PIECE: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fpiece
$LENGTH: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_flength
Hope this helps!
With more recent versions, yes. The user didn't state what version Ensemble was in use, so I figured offering a solution that would work as far back as Ensemble 2009 wouldn't necessarily be a bad thing. I still have to support Ensemble 2012 and I did test the *-1 functionality there, and in that version this functionality did not yet exist. (Actually, a few sites I support are still using Cache 5.x. It may be geriatric, but it keeps on plugging along... :-) )
I noticed that you're using Cache 2018.1. I'd like to just warn you that as of Cache 2017, this functionality was quite broken and InterSystems recommends you not use it. I don't know if it was fixed in 2018 or a later version, so I don't know for sure if your version is affected, but it's something you may want to be aware of.
If the functionality wasn't fixed in 2018, you can still recover the space in the database but it will have to be offline as no modifications to the database can happen during the process. There's a utility named ^GBLOCKCOPY that can copy all of the global database blocks from your existing database to a new one where the new database will only grow as large as necessary thereby reclaiming the free space.
See my answer to this post: https://community.intersystems.com/post/ensemble-2013-compacttruncate
And, here's more documentation regarding the ^GBLOCKCOPY utility: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=GSTU_remote_gblockcopy
Hope this helps!
If the System File Numbers in question are related to the database files themselves instead of the journal files, there's a query in SYS.Database called "CompactLocalList" that might get you what you need. Note: It seems that the query calls in SYS.Database need to be called from the %SYS namespace.
Try this (ugly, but hopefully useful) code snippet, and see if it gets you what you need:
zn"%sys"setq = ##class(%SQL.Statement).%New()
set status = q.%PrepareClassQuery("SYS.Database","CompactLocalList")
set rset = q.%Execute()
while rset.%Next() { write !,rset.%Get("Directory"),*9,rset.%Get("SFN") }
wq.%Close()
Here's the documentation page for the SYS.Database class: https://docs.intersystems.com/irislatest/csp/documatic/%25CSP.Documatic.cls?LIBRARY=%25SYS&CLASSNAME=SYS.Database
and this will take you directoy to CompactLocalList.
There's one or two other calls that mention SFN's, so there might be other clues in the documentation referenced above.
Hope this helps!
Just create a "job wrapper" around the function, then JOB the subroutine:
JOBEXPORT ; SET UP A ROUTINE TO EXPORT A FILE.Q; USE SEPARATE ENTRY POINT, JUST IN CASE...;
SAVE ; HERE'S THE ACTUAL SUBROUTINE TO EXPORT THE ROUTINE.; IT THROWS AWAY ANY I/O, MAYBE YOU DON'T WANT THAT.D$SYSTEM.OBJ.Export("RTOSAVE.INT","E:\Z\SAVEDROUTINE.RTN")
QThen, just JOB the subroutine and get the job number:
JOB SAVE^JOBEXPORTSET CHLD=$ZCHILDWRITE CHLD,!( This prints the child process ID, if you don't need to see it you can omit the last WRITE statement. )
Later, to see if the routine is still working, use the $DATA and $^JOB functions:
WRITE$DATA(^$JOB(CHLD))If the 0 the job has completed (or possibly crashed, I suppose) - if it's 1 then the task is still running. There are utilities both in the Management Portal and in the %SYS namespace to terminate rogue processes.
Hope this helps!
[[ Edited for minor error in code... there might be more. ]]
To help visualize how this is being evaluated, maybe it'll help if we break it down in the order it's being evaluated. An equivalent statement for the strict left-to-right evaluation would be this:
W (((1=0)&& 1) = 0) ; nested operations in different text color.
So, to evaluate (1=0) first, 1=0 is false, therefore the result is zero.
That now makes the full equation:
W ((0&& 1) = 0) ;
Now, let's evaluate (0&& 1) -- 0 && 1 equates to zero also.
That now makes the full equation:
W (0= 0) ; last nested part of the equation;
So, lastly, the result of 0=0 is true, or 1.
I hope this explanation helps!
I tried your test script and at least on my Win2016 server running HealthShare 2017 in PowerShell, and none of the tests passed on my system. However... if you triple-quote the triple-quotes, I was able to get it to run. So, the test argument was:
Name = "Triple-Triple Quotes"
Pattern = 'Say^ImplUtil("""""""""' + $TestString + '""""""""")'But... my original $TestString didn't have any spaces in it. Once I added spaces, it failed both the 'Triple Quotes' and the 'triple-triple quotes' tests... so with a bit more tinkering, I changed this:
$TestString = '"""Your String Here"""' and it passed the Triple Quote test but failed the Triple-Triple Quote test... so it looks like if the string has spaces you need six quotes on each side of the string, but if not you need nine.
I have not yet found a delimiter that would work in both cases (string with & without spaces) but I'll keep tinkering as I have time...
OK, I think I figured out a way that seems to work with both spaces & non-spaces in the strings...
You need to use the "Stop Parsing" token available in powershell: --%
With that, and the usual delimiting with double quotes in strings (I couldn't get it working with outer single quotes at the PS command prompt), this does seem to work:
# So, you can run the script this way (at the command line):
.\irissession healthconnect -U user --% "Say^ImplUtil(""""""Your string here"""""")"and it should work. In your script, you would need to make these modifications:
[string]$TestString = "Test_string_without_spaces"
# or to test with spaces
[string]$TestString = "Test string with spaces"
# In the escape test:
Name = "Double-Triple quotes"
Pattern = 'Say^ImplUtil(""""""' + $TestString + '"""""")'
# and because we're changing how we parse the string when calling it,
# we need to add a secondary stage when parsing the command. In the first
# try loop after the foreach, change your code to this:
$zparams = ' --% ' + $test.Pattern + ' 2>&1'
# Test the pattern
$result = .\irissession $Instance -U user $zparams
# Should be the end of the modifications...Note: My instances and namespaces are quite a bit different than yours, so I tried to adjust things back to how you had it from my testing, but if I wasn't quite successful, I apologize for any missteps.
Hope this helps!
Screenshots would certainly help, and an explanation of what the task actually does would help as well (Is it a backup, does it export data to a different system, wash the dishes maybe? :-) ). Is it possible that the task may at times take longer than 24 hours to execute? I have seen instances where a process 'hangs' so TaskMan thinks it's still running and doesn't fire up a new instance of that task.
Hope this helps!
Ronaldo,
The ChangePassword property isn't for the password, it's to set a flag if the user is supposed to change their password on next login - this property's handy for admins that assign temporary passwords and the user needs to change it to something befitting them on first login. To set the property, it's a simple 'set' like the others:
Set userObj.ChangePassword=1
And to set the initial Password is also a standard 'set':
Set userObj.Password="initialpassword"
Also, if the Roles is only %SQL, but if you're testing the login using Terminal, that user doesn't have enough rights for that functionality and you'll probably get an 'Access Denied' error. You'll either need to (temporarily) assign the %All role to that user to test, or just verify that the settings are getting set in the Management Portal.
As to the NameSpace, if the Namespace doesn't exist (typo, I've done that before) or if the user doesn't have enough rights to access that Namespace, it may not be set correctly.
Lastly, here's the documentation for the Security.Users class: https://docs.intersystems.com/irislatest/csp/documatic/%25CSP.Documatic.cls?LIBRARY=%25SYS&CLASSNAME=Security.Us
Hope this helps!
[[ edit for readability and examples were out of order. ]]