$TsoExit
<section begin="desc" />Terminate TSO full screen interface session, stack command<section end="desc" />
Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $TsoExit function is to be entered.
This function requests that the TSO full screen interface terminate the session and optionally stacks a command to be executed upon termination.
This function requires the special version of the TSO full screen interface to Model 204 that is distributed by Sirius Software.
The $TsoExit function accepts one argument and returns a numeric completion code.
The first argument is a string containing the name of the command to be invoked in the TSO address space. This is an optional argument; and if it is null or missing, no command is stacked.
Syntax
<section begin="syntax" /> %RESULT = $TsoExit(command) <section end="syntax" />
0 - Function successful -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 requests the TSO full screen interface to terminate its session with Model 204 and then issue the 'LOGOFF' command in the TSO address space.
B %RC = $TsoExit( 'LOGOFF' ) END
- &JAPF