Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
stefan_schnell
Active Contributor
0 Kudos
I introduced COM Connector (CCo) here. Here now an example how to use background RFC calls with VBScript via CCo. The queued RFC calls are commented. You can find more information about the different RFC variants here. I presented the possibility to use transactional (tRFC) and queued (qRFC) RFC calls here.

 
'-Begin-----------------------------------------------------------------
'-
'- Look also in TAC SBGRFCCONF and SBGRFCMON
'- Hint: You need SAP 7.0 EHP 1 for SAP NetWeaver 7.0 Support Package 4
'- and higher
'-
'-----------------------------------------------------------------------

'-Directives----------------------------------------------------------
Option Explicit

'-Constants-----------------------------------------------------------
Const RFC_OK = 0

'-Sub Main------------------------------------------------------------
Sub Main()

'-Variables-------------------------------------------------------
Dim SAP, CCo, hRFC, rc, UID, hUnit, hFuncDesc, hFunc
Dim unitAttrID, unitAttr, unitIdentID, unitIdent

Set SAP = CreateObject("COMNWRFC")
If Not IsObject(SAP) Then
Exit Sub
End If

Set CCo = CreateObject("COMNWRFCHELP")
If Not IsObject(CCo) Then
Exit Sub
End If

hRFC = SAP.RfcOpenConnection("ASHOST=ABAP, SYSNR=00, " & _
"CLIENT=001, USER=BCUSER")
If hRFC = 0 Then
Set SAP = Nothing
Set CCo = Nothing
Exit Sub
End If

hFuncDesc = SAP.RfcGetFunctionDesc(hRFC, "RFC_PING")
If hFuncDesc = 0 Then
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
Set CCo = Nothing
Exit Sub
End If

hFunc = SAP.RfcCreateFunction(hFuncDesc)
If hFunc = 0 Then
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
Set CCo = Nothing
Exit Sub
End If

If SAP.RfcGetUnitID(hRFC, UID) <> RFC_OK Then
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
Set CCo = Nothing
Exit Sub
End If

'-Create structures RFC_UNIT_ATTRIBUTES and RFC_UNIT_IDENTIFIER---
If CCo.AllocateMemory(273, unitAttrID, unitAttr) = vbFalse Or _
CCo.AllocateMemory(70, unitIdentID, unitIdent) = vbFalse Then
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
Set CCo = Nothing
Exit Sub
End If

'-qRFC------------------------------------------------------------
' hUnit = SAP.RfcCreateUnit(hRFC, UID, "STEFANSQUEUE", unitAttr, _
' unitIdent)

'-tRFC------------------------------------------------------------
hUnit = SAP.RfcCreateUnit(hRFC, UID, "", unitAttr, unitIdent)
If hUnit = 0 Then
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
rc = CCo.FreeMemory(unitIdentID)
rc = CCo.FreeMemory(unitAttrID)
Set CCo = Nothing
Exit Sub
End If

If SAP.RfcInvokeInUnit(hUnit, hFunc) = RFC_OK Then

If SAP.RfcSubmitUnit(hUnit) = RFC_OK Then

MsgBox "Look in table BGRFC_SRV_STATE for UID " & UID

SAP.ErrorMsgTarget = 2
If SAP.RfcConfirmUnit(hRFC, unitIdent) = RFC_OK Then
MsgBox "Look in table BGRFC_SRV_CFM for UID " & UID
Else
MsgBox SAP.ErrorMessage
End If

End If

End If

rc = SAP.RfcDestroyUnit(hUnit)
rc = SAP.RfcDestroyFunction(hFunc)
rc = SAP.RfcCloseConnection(hRFC)
Set SAP = Nothing
rc = CCo.FreeMemory(unitIdentID)
rc = CCo.FreeMemory(unitAttrID)
Set CCo = Nothing

End Sub

'-Main----------------------------------------------------------------
Main()

'-End-------------------------------------------------------------------

Background RFCs are the recommended kind of RFCs.You should never use a synchronous RFC to write data into an SAP system, only to read data. To write data use tRFC or qRFC, or better the bgRFC. Now you have the easy possibility to use any kind of RFC with your favorite scripting language.

Enjoy it.
Labels in this area