Status of program invoked via $TsoAtt
Note: Many $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.
%result = $TSOStat([task_id])
|%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.|
$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
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
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
- Japanese $functions