Visara Master Console Center Scripting Guide - Manual (Page 222)

Chapter 6 Obsolete Material
Scripting Guide 222
generated output from each independently submitted command. Use
the QREAD() command to process the output.
Note: Valid values are 0 – 999. The recommended (and default) value
is 60.
%MvsResponseTime. Numeric expression. Optional. The number of
seconds that the mainframe agent processes output from each
independently submitted command.
Note: Valid values are 0 – 999. The recommended (and default) value
is 60.
Returns: Numeric value, as follows:
Value
Meaning
0 The host agent successfully processed all
commands.
-1 (error) A problem occurred and not all commands were
successfully processed.
If an error occurs, each %ErrorArray element must be checked to see
which commands were not successfully submitted.
Notes:
1. MVSCOMMAND requires the optional MCC to GW-MVS interface
and the installation of the GW-MVS agent on each LPAR with
which to communicate. The LU6.2 networking software must be
installed and running on the MCC.
2. For details of errors in the range 4000-4025 that may be returned by
MVSCOMMAND, refer to the description of the ERRORNUM()
command.
Example: // Sample MVSCOMMAND() call
ARESET( $Cmds)
// Clear these arrays
ARESET( %Err)
ARESET( $ErrMsg)
%OsID := OBJID( OS, “SNOW”) // Get the ObjectID for the host
%PortID := PORT( OS, “SNOW”) // alternate route is defined
$Cmds[1] := “d t”
$Cmds[2] := “s alpha”
$Cmds[3] := “s beta”
%Result := MVSCOMMAND( %OsID, $Cmds, %Err, $ErrMsg,
%PortID, , , , , ,30) // Send MVSCOMMAND with timeout 30 sec.
IF %Result == ERROR
%ErrCode := ERRORNUM()
IF %ErrCode != ERR_MVS_PORTSUCCESS
LOG( LOG_EXEC, “Error:” + %ErrCode + “ “ + ERRORMSG(%ErrCode))
// Log error to Execution Log Display
ENDIF
ENDIF
// The following output is bounded by ==========> and
// <============ so the user can determine the output
// from each command.
P390 =======> D T
14.23.53 P390 STC00019 D T
14.23.53 P390 STC00019 IEE136I LOCAL: TIME=14.23.53
DATE=1998.345 GMT: TIME=14.23.53 DATE=1998.345