$TSOWait: Difference between revisions

From m204wiki
Jump to navigation Jump to search
mNo edit summary
mNo edit summary
Line 56: Line 56:
<li>[[Japanese $Functions]]
<li>[[Japanese $Functions]]
</ul>
</ul>
<p class="caption">Products authorizing $TSOWait
<p>
</p>
</p>


[[Category:$Functions|$TSOWait]]
[[Category:$Functions|$TSOWait]]

Revision as of 19:29, 25 October 2012

Wait for program invoked via $TsoAtt to complete

Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $TSOWait function.

This function waits for a program invoked via $TsoAtt to complete.

Note: This function requires the special version of the TSO full screen interface to Model 204 that is distributed by Sirius Software.

The $TSOWait function accepts two arguments and returns a numeric completion code or task id.

Syntax

<section begin="syntax" />%result = $TSOWait( task_id, out_image ) <section end="syntax" />

Syntax terms

%result Either the completion code from the invoked program or an error code.
task_id A number that is the task id of the "task" to be waited on. This task id is returned by $TsoAtt at program invocation time.
out_image A string containing the name of an image to receive output data from the invoked program. This is an optional argument.

Error codes

$TSOWait normally returns the completion code from the invoked program. If there is some error that prevents the program from being invoked, 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 -16 - Image not found -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 waits for the COMPRESS command to complete.

B %TASKID = $TsoAtt( 'COMPRESS', , 'DSN(JUNK.CNTL)') FIND1: IN BIGFILE FIND ALL RECORDS FOR WHICH NAME IS LIKE 'SM*' END FIND %RC = $TSOWait( %TASKID ) ... END