This example is available into the installation directory: C:\Users\Public\Documents\Easycom For .NET Samples\EasycomVB.
It has been developed in VB with Visual Studio.
Into this exemple, we use the Retrieve Job Attributes (RTVJOBA) command, to retrieve the user profile associated with the EASYCOM job created by the connection.
Imports System.Data.EasycomClient
Dim my_cnx As EasycomConnection
my_cnx = New EasycomConnection
my_cnx.ConnectionString = "Server=power8;User Id=qpgmr;Password=launcher"
my_cnx.Open()
my_cnx.RemoteRtvCommand("LIBL=CHAR(2750);DFTWAIT=DEC(7 0);RTVJOBA USRLIBL(&LIBL)")
If my_cnx.RemoteRtvCommandGetValue("RC") = "0" Then
MessageBox.Show("User Library List: " + my_cnx.RemoteRtvCommandGetValue("LIBL"))
MessageBox.Show("User Default Wait: " + my_cnx.RemoteRtvCommandGetValue("DFTWAIT"))
Else
MessageBox.Show("The command call returned the following message" + my_cnx.RemoteRtvCommandGetValue("RC"))
End If
my_cnx.Close()