Freestyle BASIC Script Language (FBSL) is a true multitalent, but it is unfortunately not more available. It is possible to
use it inside ABAP and to use SAP GUI Scripting with it, as the example here shows. It is only a simple logon, but it shows how to use FBSL in this case. This example has now only historical museum character.
//-Begin----------------------------------------------------------------
//-Directives---------------------------------------------------------
#AppType Console
#Option Strict
//-Includes-----------------------------------------------------------
#Include <Windows.inc>
//-Main---------------------------------------------------------------
Sub Main()
//-Variables------------------------------------------------------
Dim %SAPROTWrapper, %SapGuiAuto, %application, %connection
Dim %session
SAPROTWrapper = CreateObject("SapROTWr.SapROTWrapper", "")
If Not SAPROTWrapper Then
ExitProgram
End If
SapGuiAuto = GetValue("%o", SAPROTWrapper, ".GetROTEntry(%s)", _
"SAPGUI")
If Not SapGuiAuto Then
ExitProgram
End If
application = GetValue("%o", SapGuiAuto, ".GetScriptingEngine")
If Not application Then
ExitProgram
End If
connection = GetValue("%o", application, ".Children(%d)", 0)
If Not connection Then
ExitProgram
End If
session = GetValue("%o", connection, ".Children(%d)", 0)
If Not session Then
ExitProgram
End If
PutValue(session, ".findById(%s).text = %s", _
"wnd[0]/usr/txtRSYST-MANDT", "001")
PutValue(session, ".findById(%s).text = %s", _
"wnd[0]/usr/txtRSYST-BNAME", "BCUSER")
PutValue(session, ".findById(%s).text = %s", _
"wnd[0]/usr/pwdRSYST-BCODE", "minisap")
PutValue(session, ".findById(%s).text = %s", _
"wnd[0]/usr/txtRSYST-LANGU", "EN")
CallMethod(session, ".findById(%s).sendVKey %d", _
"wnd[0]", 0)
ReleaseObject(SAPROTWrapper)
End Sub
//-End------------------------------------------------------------------
FBSL can compile scripts to executable. On this way you can deliver your SAP GUI script to any target computer on Windows platform, without any dependencies.
Bluesky
