RPCCommand Action

Calls an Remote Program Call routine defined on a remote server.

Parameters

Connection  -  (Required)

Specifies the connection object returned from the RPCConnect action.

Command  -  (Required)

Specifies the command to be passed to the remote server for execution.

TIP

The results of the command are made available through the Response property of the RPC Connection object.

ClosedExample

This example connects to the server and runs an RPC host command to send a message to a specified user.

open

RPCConnect (SampleConnect, RPCServerOS400, = "Network Address=" & NetworkAddress & ";Network Port=8475;Use Encryption for Data=False;Host CCSID=37;NLV=2924")

RPCDeclare (SampleConnect, *LIBL, QWCCVTDT, Format, , Input IFormat As String * 10, Input IVariable As String * 17, Input OFormat As String * 10, Output OutputVariable As String * 17, InputOutput ErrCode As String * 8)

 

 

run HourGlass (Yes)

OnError (resume)

SetValue (Result, "")

SetValue (SampleCommand, Iif(MsgType.Value, "SNDBRKMSG", "SNDMSG") & " MSG('" & Msg & "') " & Iif(MsgType.Value, "TOMSGQ", "TOUSR") & "(" & Usr & ")")

RPCCommand (SampleConnect, =SampleCommand)

SampleConnect.Response.Count < 1 SetValue (ActiveForm.Rslt, "Command executed successfully")

SampleConnect.Response.Count >= 1 SetValue (ActiveForm.Rslt, SampleConnect.Response(0))

HourGlass (No)

 

close OnError (disconnectError)

RPCDisconnect (SampleConnect)

StopMacro

See Also

RPCDeclare action | RPCCall action | RPCConnect action | RPCDisconnect action

© 2004-2021 looksoftware. All rights reserved.