Using Terminal Launcher With Non-HLLAPI-Compliant Emulators

You can use Terminal Launcher with Terminal Emulators that do not support HLLAPI but do support scripting that is able to call external .dll files. To do this, you must create a script that asks SecureLogin for commands one at a time and then interprets the commands received.

Configuring Reflection 8 for UNIX and Digital

The following script has been tested with Reflection 8 for UNIX and Digital.

Sub SecureLogin() 
 Dim SecureLoginObject As ISLBroker 
 Dim ReturnCode As Long 
 Dim Data As String 
 Dim targ As Long 
 Dim FunctType As Long 
 Dim CR As String 
 Dim temp As String

 Session.Wait 0.1'The waits are necessary for the screen to be updated.

 Set SecureLoginObject = New SLBroker 
 CR = Chr$(rcCR) ' Chr$(rcCR) = Chr$(13) = Control-M 
 SecureLoginObject.LoadScript 
 While (1 = 1) 
  FunctType = 0 
  'retrieve command from VBABork 
  SecureLoginObject.GetCommand FunctType, targ, Data 
  If FunctType = SecureLoginObject.SetCursor Then 
  ' SetCursor is not supported 
    ReturnCode = 0 
  ElseIf FunctType = SecureLoginObject.TypeText Then 
    If (StrComp(Data, "@E", vbTextCompare) = 0) Then 
      Session.Transmit CR 
    Else 
      Session.Transmit Data 
    End If 
    Session.Wait 0.1 
    ReturnCode = 0 
  ElseIf FunctType = SecureLoginObject.ScanForText Then 
    bResult = Session.FindText(Data, Session.ScreenTopRow, 0) 
    ReturnCode = 0 
    If bResult = True Then 
      ReturnCode = 1 
    End If 
  Else 
    ' End of script 
    GoTo ErrorHandler 
  End If 
  SecureLoginObject.SetReturnCode ReturnCode 
 Wend 
ErrorHandler: 
End Sub

The script should also work for Reflection 7. Reflection 6 and earlier versions require a different Reflection script because these versions use Reflection Basic instead of VBA (Visual Basic for Applications). If you require a script for Reflection 5.21, contact Novell Support.

To use Reflection for UNIX and Digital, you must add the Sub SecureLogin() script by using the macro editor in Reflection. In addition to adding this macro, you must go to the macro editor, select Tools > References, and check the check box titled vbabork2 1.0 Type Library.

If this option is not displayed, ensure that vbabork2.dll exists in the SecureLogin directory. If it does not, re-install SecureLogin, making sure to select Terminal Launcher.

If the vbabork2 1.0 Type Library option displays, you must register it.

1. Open a DOS shell.

2. Enter regsvr32 followed by the path to vbabork2.dll.

   For example, enter

   regsvr32 "C:\Program Files\SecureLogin\ vbabork2.dll"

   A message should indicate that DllRegisterServer succeeded.

3. Add the reference to this module in Reflection as described above.

Only one session can be launched at a time using SecureLogin. To run the script, you must run the SecureLogin script macro after the session has been opened. This can be done automatically in Reflection by selecting Connect Macro from the Connection Setup menu.

By doing this procedure, the SecureLogin script macro will run every time the session is opened. Without this procedure, you will need to manually run the script macro when you want to run the script.

To run the script, you must set up the emulator in Terminal Launcher.

1. Launch Terminal Launcher, then click Edit Available Emulators. Set up the emulators as usual, but set the HLLAPI type to None.

2. Select the emulator.

3. Type anything in the hllapi dll and HLLAPI Function boxes.

4. Click OK, then click Done.

Configuring Reflection 9 for UNIX and Digital

1. Open Reflection for UNIX and Digital.

2. Click Macro at the top of the screen, then select Visual Basic Editor.

3. After the editor loads, click Tools at the top of the screen, then click References.

4. Scroll to vbabord2 1.0 Type Library, then check the check box.

   
   

5. Return to the main editor screen, then double-click This Session, which is on the far left of the screen.

   
   

6. Copy and paste the macro into the editor.

   You can type text in the right pane of the screen. Type or copy and paste the following macro:

   Sub SecureLogin() 
     Dim SecureLoginObject As ISLBroker 
     Dim ReturnCode As Long 
     Dim Data As String 
     Dim targ As Long 
     Dim FunctType As Long 
     Dim CR As String 
     Dim temp As String

     Session.Wait 0.1 'The waits are necessary for the screen 
     to be updated.

     Set SecureLoginObject = New SLBroker 
     CR = Chr$(rcCR) ' Chr$(rcCR) = Chr$(13) = Control-M 
     SecureLoginObject.LoadScript 
     While (1 = 1) 
       FunctType = 0 
       'retrieve command from VBABork 
       SecureLoginObject.GetCommand FunctType, targ, Data 
       If FunctType = SecureLoginObject.SetCursor Then 
       ' SetCursor is not supported 
         ReturnCode = 0 
       ElseIf FunctType = SecureLoginObject.TypeText Then 
         If (StrComp(Data, "@E", vbTextCompare) = 0) Then 
           Session.Transmit CR 
         Else 
           Session.Transmit Data 
         End If 
         Session.Wait 0.1 
         ReturnCode = 0 
       ElseIf FunctType = SecureLoginObject.ScanForText Then 
        bResult = Session.FindText(Data, 
        Session.ScreenTopRow, 0) 
        ReturnCode = 0 
        If bResult = True Then 
          ReturnCode = 1 
        End If 
       Else 
         ' End of script 
         GoTo ErrorHandler 
       End If 
       Session.Wait 0.1 
       SecureLoginObject.SetReturnCode ReturnCode 
     Wend 
   ErrorHandler: 
   End Sub

7. Click File > Close, then click Exit to exit from the editor.

8. Click Open Connection at the top of the screen, then click Connection Setup.

   This is where you set up the host name and protocol that you are connecting to the mainframe.

9. Click Connect Macro and browse to the macro you just created.

10. Open Tlaunch.exe, then click Edit Available Emulators > New.

    This step creates a new emulator.

11. Select a VBA emulator type, then type the required settings.

    
    

12. Create a script for the emulator to use.