$TsoAtt
Attach program in user's TSO address space
Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $TsoAtt function.
This function invokes a program in the user's TSO address space. $TsoAtt performs an "asynchronous" call to the program. That is, control is returned from $TsoAtt as soon as the program is invoked in the TSO address space. The program continues to run while other processing can take place in the online address space.
Note: This function requires the special version of the TSO full screen interface to Model 204 that is distributed by Sirius Software.
The $TsoAtt function accepts five arguments and returns a numeric completion code or task id.
Syntax
%result = $TsoAtt(clist, [path], [parms], [in_image], [out_image] )
Syntax terms
| %result | Set either to the created task ID or to an error code. |
|---|---|
| clist | A string containing the name of the program to be invoked in the TSO address space. If this argument is null or missing, no processing is performed and a completion code of 0 is returned. |
| path | A string containing the path name for the program to be invoked in the TSO address space. |
| parms | A string containing the parameters to be passed to the invoked CLIST. |
| in_image | A string containing the name of an image containing input data for the invoked CLIST. |
| out_image | A string containing the name of an image to receive output data from the invoked CLIST. |
Status codes
$TsoAtt normally returns a positive task id 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 -28 - Program name is too long
Example
The following program invokes a program called 'COMPRESS' in the user's TSO address space with a parameter of 'DSN(JUNK.CNTL)'.
B %RC = $TsoAtt( 'COMPRESS', , 'DSN(JUNK.CNTL)') END
Products authorizing $TsoAtt