RFC Read Table Exported Result in JSON Format too

Hello community,

I read here about the possibility to export any result from a function module (FM) in JSON format - a very good idea , many thanks to Cesar Martin.

I use the FM RFC_READ_TABLE very often and so I implemented a small extension to export the result also in JSON format.

Here a short two step instruction:

1. Add in your copy of RFC_READ_TABLE a new export parameter, e.g. DATA_JSON from the type table of lines.
   
   
2. Add at the bottom of your copy of RFC_READ_TABLE, in the line 199 between the last EndSelect and EndIf, the following code.
   
     "-Export data in JSON format------------------------------------------
     "-
     "- Check the created JSON file with http://www.jsonlint.com validator
     "-
     "---------------------------------------------------------------------
   
       "-Variables---------------------------------------------------------
         Data strJSON Type SDBLIN1024.
         Data cntData Type i Value 0.
         Data cntLine Type i Value 0.
   
       Describe Table DATA Lines cntData.
   
       strJSON = `{`.
       Append strJSON To DATA_JSON.
       Concatenate `  "` QUERY_TABLE '" : [' Into strJSON.
       Append strJSON To DATA_JSON.
       Loop At DATA.
         cntLine = cntLine + 1.
   
         strJSON = `    {`.
         Append strJSON To DATA_JSON.
         Loop At FIELDS.
   
           Move DATA-WA+FIELDS-OFFSET(FIELDS-LENGTH) To strJSON.
           Condense strJSON.
           Case FIELDS-TYPE.
             When 'I' Or 'b' Or 's' Or 'P' Or 'F'.
               Concatenate `      "` FIELDS-FIELDNAME `" : ` strJSON
                 Into strJSON.
             When Others.
               Concatenate `      "` FIELDS-FIELDNAME `" : "` strJSON '"'
                 Into strJSON.
           EndCase.
           If sy-tabix < sy-tfill.
             Concatenate strJSON ',' Into strJSON.
           EndIf.
           Append strJSON To DATA_JSON.
   
         EndLoop.
         strJSON = `    }`.
         If cntLine < cntData.
           Concatenate strJSON ',' Into strJSON.
         EndIf.
         Append strJSON To DATA_JSON.
   
       EndLoop.
   
       strJSON = `  ]`.
       Append strJSON To DATA_JSON.
       strJSON = `}`.
       Append strJSON To DATA_JSON.
   
   

With this way you get the result also in JSON format.

And now you can easily create JSON images of any table via your copy of RFC_READ_TABLE.

Here an example via COM Connector (CCo) with VBScript:

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

  '-Directives----------------------------------------------------------

    Option Explicit

  '-Constants-----------------------------------------------------------

    Const RFC_OK = 0

    Const ForWriting = 2

  '-Variables-----------------------------------------------------------

    Dim SAP, hRFC, rc, hFuncDesc, hFunc, hTable, RowCount, i, hRow

    Dim charBuffer, charFile, FSO, F, tableName

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

    tableName = InputBox("Name of the table", "Request", "SFLIGHT")

    Set SAP = CreateObject("COMNWRFC")

    If IsObject(SAP) Then

      hRFC = SAP.RfcOpenConnection("ASHOST=ABAP, SYSNR=00, " & _

        "CLIENT=000, USER=BCUSER")

      If hRFC Then

        hFuncDesc = SAP.RfcGetFunctionDesc(hRFC, "Z_RFC_READ_TABLE_JSON")

        If hFuncDesc Then

          hFunc = SAP.RfcCreateFunction(hFuncDesc)

          If hFunc Then

            rc = SAP.RfcSetChars(hFunc, "QUERY_TABLE", tableName)

            rc = SAP.RfcSetChars(hFunc, "DELIMITER", "~")

            If SAP.RfcInvoke(hRFC, hFunc) = RFC_OK Then

              If SAP.RfcGetTable(hFunc, "DATA_JSON", hTable) = RFC_OK Then

                rc = SAP.RfcGetRowCount(hTable, RowCount)

                rc = SAP.RfcMoveToFirstRow(hTable)

                For i = 1 To RowCount

                  hRow = SAP.RfcGetCurrentRow(hTable)

                  rc = SAP.RfcGetChars(hRow, "LINE", charBuffer, 1024)

                  charFile = charFile & RTrim(charBuffer) & vbCrLf

                  If i < RowCount Then

                    rc = SAP.RfcMoveToNextRow(hTable)

                  End If

                Next

                '-Write JSON file---------------------------------------

                  Set FSO = CreateObject("Scripting.FileSystemObject")

                  If IsObject(FSO) Then

                    Set F = FSO.OpenTextFile(tableName & ".json", _

                      ForWriting, True)

                    F.Write charFile

                    F.Close

                    Set FSO = Nothing

                  End If

              End If

            End If

          rc = SAP.RfcDestroyFunction(hFunc)

          End If

        End If

        rc = SAP.RfcCloseConnection(hRFC)

      End If

      Set SAP = Nothing

    End If

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

Enjoy it.

Cheers

Stefan