
Chapter 6 Obsolete Material
Scripting Guide 230
Example:
// Sample TSOEREXX() call
ARESET( $Cmds)
ARESET( %Err)
ARESET( $ErrMsg)
%OsID := OBJID( OS, “SNOW”) // Get ObjectID for “Snow" OS
$Cmds[1] := “mvs1” // Define command array
$Cmds[2] := “mvs2”
$Cmds[3] := “mvs3”
$Cmds[4] := “mvs4”
$Cmds[5] := “mvs5”
%Result := TSOEREXX( %OsID, $Cmds, %Err, $ErrMsg)
// Send commands to
host
IF %Result == ERROR
%ErrCode := ERRORNUM()
LOG( LOG_EXEC, “Error: “ + %ErrCode + “ “ +
ERRORMSG( %ErrCode)) // Log message
if error
ENDIF
See Also:
MVSCOMMAND
Comentarios a estos manuales