Data Interfaces

RFC Example in Visual Basic
© SAP AG
Declare Function RfcOpenExt Lib "librfc.dll" ...
Declare Sub RfcClose Lib "librfc.dll" ......
hRfc = RfcOpenExt(destination, mode, host, sysnr, ...)
...
hSpace = RfcAllocParamSpace(3, 0, 1)
rc% = RfcAddExportString(hSpace, 0, "COMPANY", 7, 0, 4, MyCompany)
rc% = RfcAddExportString(hSpace, 1, "CUSTOMER", 8, 0, 10, MyCustomer)
rc% = RfcAddExportString(hSpace, 2, "YEAR", 4, 6, 4, MyYear)
thSales = ItCreate("SALES", 20 , 0, 0)
rc% = RfcAddTable(hSpace, 0, "SALES", 5, 0, 20, thSales)
RfcRc = RfcCallExt(hRfc, hSpace, "GET_SALES_BY_MONTH")
...
If RfcRc = 0 Then
RfcRc = RfcReceiveExt(hRfc, hSpace, xException)
End If
If RfcRc = 0 Then
MsgBox "Function Call Failed !"
RfcClose(hRfc)
End If
The above example shows RFC calls in a Visual Basic program fragment. Many details have been
omitted, including the access to the results of the function calls, but you the fragment does contain the
code for the following tasks:
Declaring RFC calls
Logging on to the R/3 System
Defining the parameters and calls
Error handling