Skip to main content

Hi , I am writing a script to open a simple rumba session and EM send some commands. I use Rumba 9.4. and I read an earlier thread about the issue with Rumba 9.4 with using EMSetTN3270 and EMStartSession commands ( Not-able-create-rumba-session) . The alternative provided was to open the session via the shell command .

So I used the shell command and was able to successfully open a session. The when executing the EMWaitText command, I get the follow error codes:

NM_ResultCode - 13
NM_ResultText  - Error connecting to host session - %s

What am i doing wrong here ?

 


#Rumba

Hi , I am writing a script to open a simple rumba session and EM send some commands. I use Rumba 9.4. and I read an earlier thread about the issue with Rumba 9.4 with using EMSetTN3270 and EMStartSession commands ( Not-able-create-rumba-session) . The alternative provided was to open the session via the shell command .

So I used the shell command and was able to successfully open a session. The when executing the EMWaitText command, I get the follow error codes:

NM_ResultCode - 13
NM_ResultText  - Error connecting to host session - %s

What am i doing wrong here ?

 


#Rumba
Hi namith,
can you try below snippet ?
You can create a demo session that connect against the Rumba Demohost to test the snippet.
I prefer the EMStartSession command , if it doesn't work in your version please open a support incident.

'------------------------- start code snippet -----------------------------------------------------------------------
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long)

Sub Main
Dim RowResult As Integer
Dim ColumnResult As Integer

rc = Shell ( "C:\\Program Files (x86)\\Micro Focus\\RUMBA\\System\\RumbaPage.exe C:\\rumba\\MFrame\\demo.rsdm" ,1 )
Sleep 3000

EMWaitText 10,"ENTER SYSTEM ID :", 1, 1, RowResult, ColumnResult
If NM_ResultCode = VS_STRING_NOT_FOUND Then
MsgBox "Could not find the string "
Exit Sub
End If

EMSendKey "TSOQ <ENTER>"
EMWaitText 3,"ACF82003", 1, 1, RowResult, ColumnResult
If NM_ResultCode = VS_STRING_NOT_FOUND Then
MsgBox "Could not find the string "
Exit Sub
End If

End Sub
'------------------------------ end code snippet -------------------------------------------------------------------------------

Hi , I am writing a script to open a simple rumba session and EM send some commands. I use Rumba 9.4. and I read an earlier thread about the issue with Rumba 9.4 with using EMSetTN3270 and EMStartSession commands ( Not-able-create-rumba-session) . The alternative provided was to open the session via the shell command .

So I used the shell command and was able to successfully open a session. The when executing the EMWaitText command, I get the follow error codes:

NM_ResultCode - 13
NM_ResultText  - Error connecting to host session - %s

What am i doing wrong here ?

 


#Rumba
Thank you . I will try this out.