RPCDisconnect Action

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