JOB $SYSTEM.obj

Question

Question

Richard Prouvot · Aug 28, 2024

IS THERE A WAY TO JOB A $SYSTEM.OBJ FUNCTION AND FIND IF THE JOB IS RUNNING OR FINISHED TO ASYNCHRONOUSLY CONTINUE OR HALT THE PROCESS?

Discussion (5)2

Log in or sign up to continue

score 1 · Answer 1 · 2024-08-28T11:49:42-04:00

When you JOB a process you can get the ID of the child Process with $ZCHILD.

You can then check to see if that process is still running.

Not sure whether you can HALT the process or not, and depending on what it is you are running, it might not be a good idea.

score 0 · Answer 2 · 2024-08-28T11:54:41-04:00

THANKS FOR THAT.

THE MORE IMPORTANT PART OF THE QUESTION IS CAN YOU "JOB $SYSTEM.OBJ" FUNCTION. ON MY MACHINE, I GET THIS:

USER>JOB $SYSTEM.OBJ.Export("RICHS.int","c:\ads\richh.rtn")

JOB $SYSTEM.OBJ.Export("RICHS.int","c:\AAA\richh.rtn")
^
<UNIMPLEMENTED>
USER>

score 1 · Answer 3 · 2024-08-28T12:12:01-04:00

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")
 Q
 ObjectScript
ObjectScript

Then, just JOB the subroutine and get the job number:

JOB SAVE^JOBEXPORT SET CHLD=$ZCHILD WRITE CHLD,!ObjectScript
ObjectScript

( 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))ObjectScript
ObjectScript

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. ]]

score 2 · Answer 4 · 2024-08-28T12:44:21-04:00

Instead of the $SYSTEM "shortcut", use the actual full syntax:

JOB ##class(%SYSTEM.OBJ).Export("RICHS.int","c:\AAA\richh.rtn")

score 0 · Answer 5 · 2024-08-28T15:46:53-04:00

This is possible, but you have to use it the correct way. $SYSTEM.OBJ is just a shorthand for ##class(%SYSTEM.OBJECT), so the correct syntax for your desire is:

job ##class(%SYSTEM.OBJ).Export("yourRoutine.mac","yourPathAndFilename.xml")ObjectScript
ObjectScript