But be aware to have the method SetNamespace available also the new target namespace to be able to return !
So you either map the class to Namespace %All,
or name the class %ZEmbedded.Utils or similar, to make it available across all namespaces.
Thank you for raising and extending the subject again
that got not much echo from my article
published in Sep.2021
I couldn't identify in my examples any $LB(),$LI(), $LV,$LL() like feature.
- In the mixed PY/ISOS example I just called from PY a method in ISOS [ = InterSystems ObjectScrtipt]
- in the PY pure I kept the binary string as found and reloaded it the same way.
AS you push on "nothing in memory" which is not related at all to INDIRECTION
I have streamlined your code to not leave any traces in memory.
ClassMethod PPG() {set TABLES(0)="EVEN",TABLES(1)="ODD"kill ^||Arturofor i=1:1:100 set ^||Arturo(TABLES((i#2)),i)=i set evenTotal=0set i="" if $D(^||Arturo("EVEN",0))for set i=$ORDER(^(i),1,val) QUIT:i="" if $i(evenTotal,val) zwrite evenTotal kill ^||Arturo QUIT}OLÉ
just do it in a classMethod in Objectscript
don't forget to return to your original namespace to find where you came from
BINGO ! You are right!
Saludos,
Which evidently proves that you have to chase a network performance problem ( !! REMOTELY !!)
and not a problem in the code of the API.
Next variant
ClassMethod Indirection() [ PublicList = (ODD, EVEN) ]
or using %EVEN,%ODD instead of EVEN, ODD
to allow Indirection in your case or eXecute to work, you have to set
ClassMethod Indirection() [ ProcedureBlock=0 ] see: https://docs.intersystems.com/iris20212/csp/docbook/DocBook.UI.Page.cls?KEY=ROBJ_method_procedureblockand my related article: https://community.intersystems.com/post/summary-local-variable-scoping
upgrade version ?
It should be sufficient to add this to init:script
set user=##class(Security.Users).%OpenId("unknownuser")
do user.Roles.Insert("%All")
do user.%Save()
;;; just for comfort
set smp=##class(Security.Applications).%OpenId("/csp/sys")
set smp.AutheEnabled=64
do smp.%Save()set
Thanks for having the :preview
That's comfort
Online Demo added
Online Demo added:
FOR loop does not accept a quit with argument.
ERROR: CodeGolf.CHK.cls(7) :QUIT with arguments not allowed here c
but return is 5 chars more
possible but not likely: your friendly WIN Firewall blocks port 1972 in both directions)
You could check in mgmt Portal MEMORY at the Bottom Super server Port
The next chance is that you run out of licenses. Also available in MgmPortal.
(CSP/ZEN can be a huge license eater)
#1
Caché Studio can't access IRIS for version reasons. Reverse IRIS studio can sometimes.
Better run separate versions.
#2
Studio requires access to SuperServerPort. Actual 1972 previous was 51773.
if your IRIS runs in a Docker Container check the port mapping .
closed
Big THANKS to the whole community for the interest and the trust in my contribution,
Not to forget to thank the excellent support team and the fruitful cooperation within the community!
GREAT ! covers all situations.
this works unlimited but has no exit if none unmatched found
method length = 64,
and it shows only the abs. value 38 instead of -38
s y=$lfs(o) f i=1:1 s a=$lf(y,i),b=$lf(y,-i) ret:a+b&'(a*b) i
but it fails if the unpaired is < -9 as in the ref.example
"-110,110,-38,-38,-62,62,-38,-38,-38" and doesn't stop
NICE. but runs forever if there is no unpared.
And why starting with -9 ?
size = 65 return 0 if all pared; { 0 is excluded for pairing }
ClassMethod Solve(o As %String) As %Integer
{
s y=$lfs(o) f i=1:1:$ll(y) s c=$li(y,i) ret:'$lf(y,-c) c
q 0
}and you get 0 if numbers are paired !
Special thanks for defining the clear rules and excluding 'dirty' tricks
#1 convert both dates to $HOROLOG format and substract it
# 2 use $system.SQL.Functions.DATEDIFF()