VBA code for setting connection

Hi,

I have 3 questions.

1 - I would like to have the VBA code for setting a connection with Rumba 8.2.0.

2 - Will I be able to use VBA in EXCEL to tell Rumba to execute my command ? Or it has to be the other way around?

3 - Can you provide an exemple of code, that take a data from Excel, input some keycode into rumba then copy the data and execute it, then return to excel and execute the next data in row....in other words, it's a loop from excel.

Hi Extremis,

you have not mentioned which type of host you wish to connect to.

There are three approaches which you can take here.

a) use Rumba script to drive from Rumba.
b) use a Rumba ActiveX control to drive things from Excel.
c) use HLLAPI to drive Rumba from Excel

In terms of setting the connection details on the fly, in Rumba script it's currently only possible to set plain Telnet connection settings for VT, 3270 and 5250 hosts. If you need to use SSL/TLS or SSH then you would need to have a store of session profiles, one for each host (or use the ActiveX control).

The best fit would depend on how the solution will be used, if there is no or little human interaction, then I would choose b) above. If the Rumba session is going to be used interactively by a user then I would choose option a) above. I would steer clear of option c) above, if possible.

In the following forum thread there is some sample code demonstrating how to interact with Excel from Rumba Basic: http://community.microfocus.com/microfocus/mainframe_solutions/rumba/f/12/t/12438.aspx 

If you choose the ActiveX route here is some sample code (for a form with a 3270 ActiveX control and four buttons (this is purely for demonstration purposes).

Private Sub CommandButton1_Click()
Dim ps As String, Screen As String
ps = ""
Screen = ""
For i = 1 To 3
RetC = ObjectXMFDisplay1.GetScreen(ps, i, 1, 80)
Screen = Screen Chr$(13) & Chr$(10) & ps
Next i
MsgBox Screen
End Sub

Private Sub CommandButton2_Click()
ObjectXMFDisplay1.SetCursorPosition 24, 4
End Sub

Private Sub CommandButton3_Click()
ObjectXMFDisplay1.SendKeys "TSO"
End Sub

Private Sub CommandButton4_Click()
ObjectXMFDisplay1.SendKeys "@E"
End Sub

Private Sub UserForm_Initialize()
Dim myConnection As ObjectXConfigureTn3270Link
ObjectXMFDisplay1.HostInterface.Name = "WallData.TN3270Link"
Set myConnection = ObjectXMFDisplay1.HostInterface.Interface
myConnection.InsertName2 "MyHost"
myConnection.TelnetPort = 23
ObjectXMFDisplay1.Connect
End Sub

Note: Button1 scrapes the first 3 rows off the presentation space, Button2 is to set the cursor location, Button3 is to send a string to the presentation space, Button4 is to send an aid key to the presentation space (Note the HLLAPI style mnemonics to send Aid keys), the Form Initialize event is user to configure the connection and to connect to the host.

You will need to add a reference to the relevant library in your VBA project and also add the ActiveX control to you form controls.
The relevant library file name will be of the format Wd??Dsp.tlb where "??" indicates the host type, e.g. "Mf" for IBM Mainframe, and is locates in the appropriate HostType folder in the Rumba application folder, e.g. C:\\Program File\\Micro Focus\\Rumba\\MFrame\\ for IBM Mainframe.
The relevant ActivX control name will be of the format ObjectX ........ Display Control, where "......." indicates the host type, e.g. "Mainframe" for the IBM Mainframe control.

Finally, you mention that you are using Rumba 8.2, unfortunately Rumba 8.2 is no longer supported, you should really upgrade to the current version which is 9.4. You should also subscribe for maintenance so you can request detailed assistance from Technical Support on your specific requirements.

Hope this helps,
Tom

Thanks, Alright. Let me look into it if I can figure out your solution :).

Thanks, Alright. Let me look into it if I can figure out your solution :).

Alright,

So I put this code in Excel or Rumba script? I tried both and Excel keeps giving me error message. On rumba, only it seems to work but nothing is happening.

Basicly, what I would like to do is to inject data from excel into Rumba. The first Data would be injected, then copied into a specific place in Rumba, then in Rumba i would click enter, etc. Then, I would return to Excel to execute the second data in order to send it to rumba again, and start the same procedure.

I don't know if it make sense. I used to doit with SAP and Excel and it was working fine. I was using VBA to connect to SAP then using the codinf og SAP in Excel, which was making thing a lot easier.

I am sorry, i am just a business analyst that developed some skills in VBA :). I am a good monkey but not a programmer :). thanks for your patience.