What's the use case? I think it's better to keep independent tasks separate.
Anyway:
1. Create your own task class by extending %SYS.Task.Definition.
2. Program your task
3. Create a new task, choosing your task class (by TaskName).
1. Execute this query:
SELECT ID FROM %SYS.ProcessQuery WHERE LastGlobalReference [ '1119102928'2. Iterate over result set. ID is process ID.
3. Kill process by id:
do $system.Process.Terminate(processId)Continued from this discussion.
It's better to not create lists, especially lists which you need to filter later.
Write a SQL query, iterate over it results and do stuff you need to do right there.
SQL Query can be a separate class element for readability purposes.
1. I'd like to add to @Nicole Aaron answer, that moving code is done in two separate steps:
Interesting questions.
That's definitely not a recommended practice.
Thank you, ended up extracting this method:
ClassMethod GetPrivateProp(oref, propName) As %String
{
Set value = ""
Set cd=$system.CLS.DumpContext(oref,0)
Set inst=$piece(cd,"^",8)
For j=1:1:inst {
Set pd=$system.CLS.Property(j,oref,0)
Set ivar=$piece(pd,"^")
CONTINUE:ivar'=propName
Set slot=$piece(pd,"^",2)
Set value = $zobjval(oref,slot,0,3,slot)
Quit
}
Quit value
}UPD: Simplified code, thanks to @Dmitry Maslennikov suggestion:
ClassMethod GetPrivateProp(oref, propName) As %String
{
Set pd=$system.CLS.Property(propName,oref,0)
Set slot=$piece(pd,"^",2)
Set value = $zobjval(oref,slot,0,3,slot)
Quit value
}1. I definitely recommend using CLS and not XML for general readability and also sane blame/diff output.
2. There should not be any differences to usual Git development (as described in the series of articles you mention). One of our customers is using TFS for Ensemble development. Are you using Studio or Atelier? VSCode? If Studio, you'll need a source control hook, Atelier works as is and you'll need a plugin for VS Code.
3.Check this article for info on CI/CD on TFS.
Exception still can contain some useful info, so:
#dim tSC As %Status = $$$OK
...
try {
set tJSON = {}.%FromJSON(pInput)
} Catch ex {
do ex.Log()
set tempSC = $$$ERROR($$$GeneralError,"Badly formed JSON")
set tSC = $$$ADDSC(tempSC, ex.AsStatus())
}
quit tSCI'd also recommend to remove or change this line:
if ($$$ISERR(tStatus)) quit
because your method signature has a promise to return a %Status:
Method OnProcessInput(pInput As %FileCharacterStream, pOutput As %RegisteredObject) As %Statu
however above mentioned line quits nothing.
You can rewrite it like this (to return status):
if $$$ISERR(tStatus) quit tStatusor my personal preference like this using postconditionals:
quit:$$$ISERR(tStatus) tStatusWell in this exact case you need to remove the line altogether because you no longer get status for ReadLine, but it's just some food for thought.
Do you want to auth using Bearer aginst external REST API?
If so, you don't need web app config, just the code by @Pravin Barton
If you use InterSystems IRIS 2019.2 you can extend from %JSON.Adaptor class, which is similar to XML adaptor and allows property parameters to customize serialization behaviour. In your case
%JSONINCLUDE=NONE%ZEN.Auxiliary.jsonProvider skips % and private properties with some flags. You can use that.
yes, the proposed solution would work with any external REST API.
No. Each Business Host job is a separate process. They can share data with each other by sending request/response messages to each other.
I'd recommend System Default settings to do mass edit of Business Host settings.
Context superclass can help but it would break abstraction and probably be rather slow.
Check great series of articles on global mapping by @Brendan Bannon.
Sorry, I meant Ens.StreamContainer class.
Updated snippet code.
You need to specify where you want to send your request. Something like this should work.
Method OnD03Alert(req As User.Alert, Output resp As Ens.StreamContainer) As %Status
{
#Dim sc As %Status = $$$OK
#Dim test As %Integer = 0
Set httprequest = ##class(%Net.HttpRequest).%New()
Set httprequest.Server = "www.usamobility.net"
Set httprequest.Location = "cgi-bin/wwwpage.exe"
Do httprequest.SetParam("PIN", ..PIN)
Do httprequest.SetParam("MSSG", "motogplay")
Set sc = httprequest.Post(, test, $$$NO)
If $$$ISOK(sc) {
Set stream = httprequest.HttpResponse.Data
Set resp = ##class(Ens.StreamContainer).%New(stream)
}
Quit sc
}Also Ensemble operations must return persistent objects so I replaced string with Ens.StreamResponse.
AFAIK .1 or .2 for that matter is not version, just index of sorts.
It somewhat defeats the purpose of $zf(-100).
Parametrized commands are generally better.
set cmd = "ps"
set arg = 4
set arg(1) = "-Af"
set arg(2) = "|"
set arg(3) = "grep"
set arg(4) = "username"
set sc = $zf(-100, "/SHELL", cmd, .arg)SQL is rather static and wants to be resolved at compile time.
What do you want to achieve?
You can have a classmethod that returns resultset(s). Check Sample.Person for example.
Try
select name from A where id = '5983658923646'By the way, what do you want to do with that info?
I'm using Cache-Tort-Git UDL fork and really recommend it. It's a great source control hook!