Information About RFC Context

SAP offers an RFC enabled FM to get information about the RFC context, it is RFC_GET_ATTRIBUTES. It delivers interesting information which can be used to analyze error situations. To call this function module I use CCo. Below two examples, the first in PowerShell the second in VBScript, how to use this FM.

PowerShell Example

#-Begin-----------------------------------------------------------------

  #-Variables-----------------------------------------------------------
    $RFC_OK = 0
    $VarByRef = -1

  #-Includes------------------------------------------------------------
    ."C:\Dummy\COM.ps1"

  #-Function Get-RFCAttributes------------------------------------------
    Function Get-RFCAttributes {
      param([String] $FMName)

      $SAP = $null
      $SAP = Create-Object "COMNWRFC"
      if ($SAP -eq $null) {
        Break
      }

      $Argument = @("ASHOST=ABAP, SYSNR=00, CLIENT=001, USER=BCUSER")
      $hRFC = Invoke-Method $SAP "RfcOpenConnection" $Argument
      if ($hRFC -eq 0) {
        Free-Object $SAP
        Remove-Variable SAP
        Break
      }

      $Argument = @($hRFC, "RFC_GET_ATTRIBUTES")
      $hFuncDesc = Invoke-Method $SAP "RfcGetFunctionDesc" $Argument
      if ($hFuncDesc -eq 0) {
        Invoke-Method $SAP "RfcCloseConnection" $hRFC > $Null
        Free-Object $SAP
        Remove-Variable SAP
        Break
      }

      $hFunc = Invoke-Method $SAP "RfcCreateFunction" $hFuncDesc
      if ($hFunc -eq 0) {
        Invoke-Method $SAP "RfcCloseConnection" $hRFC > $Null
        Free-Object $SAP
        Remove-Variable SAP
        Break
      }

      $rc = Invoke-Method $SAP "RfcInvoke" @($hRFC, $hFunc)
      if ($rc -eq $RFC_OK) {
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_DESTINATION",
          $VarByRef, 32) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_IP",
          $VarByRef, 32) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_RFC_TYPE",
          $VarByRef, 1) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_START_INFO",
          $VarByRef, 32) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_PROGRAM",
          $VarByRef, 20) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_SYSTEM_RELEASE",
          $VarByRef, 4) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_KERNEL_RELEASE",
          $VarByRef, 4) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_ASYNC_TYPE",
          $VarByRef, 1) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_TRANS_TYPE",
          $VarByRef, 1) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_PCS",
          $VarByRef, 1) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_CODEPAGE",
          $VarByRef, 4) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
        Invoke-Method $SAP "RfcGetChars" @($hFunc, "CALLER_MDMP",
          $VarByRef, 1) > $Null
        $charBuffer = Get-Property $SAP "strByRef"
        Write-Host $charBuffer
      }
      Invoke-Method $SAP "RfcDestroyFunction" $hFunc > $Null

      Invoke-Method $SAP "RfcCloseConnection" $hRFC > $Null
      Free-Object $SAP
      Remove-Variable SAP
    }

  #-Sub Main------------------------------------------------------------
    Function Main {
      Get-RFCAttributes
    }

  #-Main----------------------------------------------------------------
    Main

#-End-------------------------------------------------------------------

VBScript Example

'-Begin-----------------------------------------------------------------

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

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

  '-Function RfcGetAttributes-------------------------------------------
    Function RfcGetAttributes()

      '-Variables-------------------------------------------------------
        Dim SAP, hRFC, rc, hFuncDesc, hFunc, hTable, RowCount, i, Row
        Dim charBuffer, strText

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

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

      hFuncDesc = SAP.RfcGetFunctionDesc(hRFC, "RFC_GET_ATTRIBUTES")
      If hFuncDesc = 0 Then
        rc = SAP.RfcCloseConnection(hRFC)
        Set SAP = Nothing
        Exit Function
      End If

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

      If SAP.RfcInvoke(hRFC, hFunc) = RFC_OK Then
        rc = SAP.RfcGetChars(hFunc, "CALLER_DESTINATION", charBuffer, 32)
        strText = Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_IP", charBuffer, 32)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_RFC_TYPE", charBuffer, 1)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_START_INFO", charBuffer, 32)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_PROGRAM", charBuffer, 20)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_SYSTEM_RELEASE", charBuffer, 4)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_KERNEL_RELEASE", charBuffer, 4)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_ASYNC_TYPE", charBuffer, 1)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_TRANS_TYPE", charBuffer, 1)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_PCS", charBuffer, 1)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_CODEPAGE", charBuffer, 4)
        strText = strText & Trim(charBuffer) & vbCrLf
        rc = SAP.RfcGetChars(hFunc, "CALLER_MDMP", charBuffer, 1)
        strText = strText & Trim(charBuffer) & vbCrLf
      End If

      rc = SAP.RfcDestroyFunction(hFunc)
      rc = SAP.RfcCloseConnection(hRFC)
      Set SAP = Nothing

      RfcGetAttributes = strText
    End Function

  '-Sub Main------------------------------------------------------------
    Sub Main()
      MsgBox RfcGetAttributes()
    End Sub

  '-Main----------------------------------------------------------------
    Main

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