RPCCall Action

Calls an Remote Program Call (RPC) routine. The routine must first have been declared with the RPCDeclare action.

Parameters

Procedure  -  (Required)

The name of the procedure to be executed or its alias that was defined in the RPCDeclare action.

Arguments  -  (Optional)

The parameters to be passed to the routine.  

Returns  -  (Optional)

The variable to store the return value from the external routine.

TIP:

When passing an argument to an external routine that is declared as ByRef, you must pass a variable as the argument and not a constant. A variable is required because ByRef arguments allow the called routine to return a modified value for the argument.

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 | RPCCommand action | RPCConnect action | RPCDisconnect action

© 2004-2021 looksoftware. All rights reserved.