Hi Robert, I had to write something similar myself about 20 years ago when we moved from DSM to Caché to deal with all those pesky &$ZLIB functions. On top of that there was the problem of variable names that exceeded 8 characters. DSM was quite happy to truncate a variable to 8 characters and work with it. For example, a variable named LONGVAR was the same variable as one named LONGVARIABLE just because the first 8 were the same. Under DSM if you SET one of them the other was also SET, but not under Caché. All of these had to be found and corrected.

Help can be found here

https://imgflip.com/i/8w3ot6

Yes, and it will remove all those from the front and all those from the end, preserving those in the middle.

F  Q:$c(10,13)'[$e(str)!'$L(str)  s $e(str)=""  // strip $c(10) and $c(13) from front

F  Q:$c(10,13)'[$e(str,*)!'$l(str)  s $e(str,*)=""  // strip $c(10) and $c(13) from end

//Untested, just to get started.. about 127

Class codeGolf.SmileyFace Extends %RegisteredObject
{

    ClassMethod Count(i As %String) As %Integer
{
 f p=1:1:$l(i){i $e(i,p,*)?1(1":",1";",1"8",1"B",1"=").1(1"-",1"^",1"c",1"o",1"~")1(1")",1"]",1"}",1"D",1">").e,$i(c)} q $g(c)

}

}

In the absence of an Intersystems' prescribed method I would set up a global variable with extra information on each namespace, e.g.

^%ZSYS("NAMESPACE","SYS")="IRIS"

^%ZSYS("NAMESPACE","LIVE")="CUSTOMER PRODUCTION"

The global variable with % at the start means it can be seen from all namespaces. You can add whatever information you like to it like the difference between production and non-prod etc.

174 probably from an inaccurate count of the difference between some versions. You still have the r#2:3 problem

W ##Class(CodeGolf.LengthOrder).Type("abc,de","de,abc") should be Unsorted

Size=177, problem fixed and another reduction found at the start of the $Select

ClassMethod Type(a...) As %String
{
 f i=$i(r):1:$g(a){f j=1:1:$L(a(i),","){s L=$L($tr($p(a(i),",",j)," ")),r=$s(L=$g(c,L):r,r<3*L>c:2,r#2*c>L:3,1:4),c=L} k c} q $p("Constant1Increasing1Decreasing1Unsorted",1,r)
}
 

Any of these that use r#2:3 give the wrong answer for

W ##Class(CodeGolf.LengthOrder).Type("abc,de","de,abc")

Shaved down to 174. A dubious $Find-2 to get first string length. Changed a condition in the $Select from p<c&(r<3) to r<3*c>p

ClassMethod Type(a...) As %String
{
 f j=$i(r):1:a{s w=$tr(a(j)," "),p=$f(w,",")-2 f i=2:1:$l(w,",") s c=$l($p(w,",",i)),r=$s(p=c:r,r<3*c>p:2,r#2:3,1:4),p=c} q $p("Constant7Increasing7Decreasing7Unsorted",7,r)
}
also fits in @Robert Barbiaux attempt

ClassMethod Type(a...) As %String
{
 f i=$i(r):1:$g(a){f j=1:1:$l(a(i),","){s l=$l($tr($p(a(i),",",j)," ")),c=$g(c,l),r=$s(l=c:r,r<3*l>c:2,r#2:3,1:4),c=l} k c} q $p("Constant1Increasing1Decreasing1Unsorted",1,r)
}
 

The for loop initialising r to 1 is top class thinking. You can still take 2 more characters off:

ClassMethod Type(a...) As %String
{
 f j=$i(r):1:a{s w=$tr(a(j)," "),p=$f(w,",")-2 f i=2:1:$l(w,",") s c=$l($p(w,",",i)),r=$s(p=c:r,p<c&(r<3):2,r#2:3,1:4),p=c} q $p("Constant7Increasing7Decreasing7Unsorted",7,r)
}
 

Yes this time, but unfortunately running tests agains ClassMethod Test1() and then posting ClassMethod Test() on here can make me look silly.

size=193

ClassMethod Type(a...) As %String
{
s r=3 f i=1:1:a{s w=$tr(a(i)," "),b=$l($p(w,",")) f p=2:1:$l(w,",") s c=b,b=$l($p(w,",",p)),d=$s(c<b:1,c>b:2,1:3),r=$s(r=3:d,3_r[d:r,1:4)} q $p("Increasing1Decreasing1Constant1Unsorted",1,r)
}

I'm afraid not. I didn't read the question properly but thankfully we have you who does a better job than test cases!

Corrected it now.

ClassMethod Type(args...) As %String
{
 // no attempt made at miniturizing the code, 362 chars not including comments
 s res="Constant"
 f i=1:1 {
  q:'$d(args(i)) s w=$tr(args(i)," ")
  f p=2:1:$l(w,",") {
   s a=$l($p(w,",",p)),b=$l($p(w,",",p-1))
   s d=$s(a>b:1,a<b:-1,1:0)
   i d>0 s res=$case(res,"Constant":"Increasing","Increasing":"Increasing",:"Unsorted")
   i d<0 s res=$case(res,"Constant":"Decreasing","Decreasing":"Decreasing",:"Unsorted")
   }
  }
 q res
}
 

You need an interactive user's system to run this without any user interaction?

If it doesn't matter who runs it and it doesn't take any serious resources and could run unnoticed then could you set a global that is checked by some code that is regularly run by a group of users? The first interactive process that finds the global could do your $ZF for you? Say SET ^GLOBAL("RUN NOTEPAD")=$H

Then in the common piece of code L +^GLOBAL("RUN NOTEPAD"):0 I $T {S:$D(^GLOBAL("RUN NOTEPAD")) X=$ZF(-1,"C:\Windows\notepad.exe") K ^GLOBAL("RUN NOTEPAD") L -K ^GLOBAL("RUN NOTEPAD")}

Otherwise I think you need to fix the destination program so it will run in the background.