$TSOStat
Status of program invoked via $TsoAtt
Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $TSOStat function.
This function returns the status of a task running a program invoked via $TsoAtt or returns the number of such programs currently active.
Note: This function requires the special version of the TSO full screen interface to Model 204 that is distributed by Sirius Software.
The $TSOStat function accepts one argument and returns a numeric status code or count.
Syntax
%result = $TSOStat(task_id)
Syntax terms
| %result | The status code for the task, a count of running tasks, or an error code. |
|---|---|
| task_id | A number that is the task id of the "task" for which status is requested. This is an optional argument and if omitted indicates that you want the count of currently active TSO tasks. |
Error codes
$TSOStat normally returns the status code of an invoked program or a count of currently active tasks. If there is some error that prevents the status from being returned, however, a negative error code is returned to indicate the problem.
-1 - Connection broken -4 - Not a TSO full screen IODEV (IODEV 11) -8 - Incorrect version of TSO interface -20 - LOUTPB too small
Example
The following program invokes a program called COMPRESS in the user's TSO address space with a parameter of DSN(JUNK.CNTL), issues a FIND while COMPRESS is running, and then checks the status of the COMPRESS command:
B %TASKID = $TsoAtt( 'COMPRESS', , 'DSN(JUNK.CNTL)') FIND1: IN BIGFILE FIND ALL RECORDS FOR WHICH NAME IS LIKE 'SM*' END FIND IF $TSOStat( %TASKID ) NE 0 THEN ... END
Products authorizing $TSOStat