Reading Multiple Tables with VB

Question

I'm attempting to retrieve records from multiple tables base on info returned from the previous call.
This code fails on the second call to " IF RFC_Read_TableTJ.Call = True"
also if I comment out "IF RFC_Read_TableTJ.Call = True" is creates the next text file with records from the previous table"
Why is this happening and how do I change tables?
thanks!
  Dim RFC_ReadTableTJ, TblFields, TblData, TblOptions As Object
   Dim I, J, K, IntCol As Integer
   Dim IntRow, LastRow As Long
   Dim StopTJ As Boolean
   Dim StrTemp, OutLine, OutLine2, TempChar, DelimitFromXL As String
   Dim strExport1, strExport2 As Object
   Dim ObjFileSystemObject As Object
   Dim MATNO(1 To 10) As String
'   Dim R3 As SAPFunctions
'Create Server object and Setup the connection
   Set R3 = CreateObject("SAP.Functions")
   R3.Connection.ApplicationServer = SAPServerIP
   R3.Connection.SystemNumber = SAPSystemNo
   R3.Connection.System = SAPSystem
   R3.Connection.client = SAPClient
   R3.Connection.language = SAPLang
   If R3.Connection.Logon(0, False) <> True Then
      Exit Sub
   End If
   Set ObjFileSystemObject = CreateObject("Scripting.FileSystemObject")
   Set TblFields = Nothing
   Set TblData = Nothing
   Set TblOptions = Nothing
'Call RFC function RFC_READ_TABLE
   Set RFC_Read_TableTJ = R3.Add("RFC_READ_TABLE")
   Set strExport1 = RFC_Read_TableTJ.Exports("QUERY_TABLE")
   Set strExport2 = RFC_Read_TableTJ.Exports("DELIMITER")
   Set TblOptions = RFC_Read_TableTJ.Tables("OPTIONS")
   Set TblData = RFC_Read_TableTJ.Tables("DATA")
   Set TblFields = RFC_Read_TableTJ.Tables("FIELDS")
'MATERIAL DESCRIPTION***********************************************
'LOOK UP MATERIAL DESC TO GET MATERIAL NO
   strExport1.Value = "MAKT"
   DelimitFromXL = ","
   strExport2.Value = Chr(165)
'Criteria
    TblOptions.AppendRow
    TblOptions(1, "TEXT") = "MAKTX LIKE '%A19118N1A%'"
'Fields to retrieve
    TblFields.AppendRow
    TblFields(1, "FIELDNAME") = "MANDT" 'Client
    TblFields.AppendRow
    TblFields(2, "FIELDNAME") = "MATNR" 'Material Number
    TblFields.AppendRow
    TblFields(3, "FIELDNAME") = "SPRAS" 'Language Key
    TblFields.AppendRow
    TblFields(4, "FIELDNAME") = "MAKTX" 'Material Description
    TblFields.AppendRow
    TblFields(5, "FIELDNAME") = "MAKTG" 'Material description in upper case for matchcodes
'Call RFC and write output
    If RFC_Read_TableTJ.Call = True Then
        If TblData.RowCount > 0 Then
            'Write output to file
            'MANDT , MATNR, SPRAS, MAKTX, MAKTG
            Set OutFile = ObjFileSystemObject.CreateTextFile("c:\MAKT.txt", True)
            OutFile.WriteLine "MANDT , MATNR, SPRAS, MAKTX, MAKTG" 'Header
            For IntRow = 1 To TblData.RowCount
                'Replace all instances of the delimeter that occur in the data with a ";"
                OutLine = ""
                For K = 1 To Len(TblData(IntRow, "WA"))
                    If Mid(TblData(IntRow, "WA"), K, 1) = DelimitFromXL Then
                        TempChar = ";"
                    Else
                        TempChar = Mid(TblData(IntRow, "WA"), K, 1)
                    End If
                    OutLine = OutLine & TempChar
                Next K
                    'Put in delimeter
                OutLine2 = ""
                For K = 1 To Len(OutLine)
                    If Mid(OutLine, K, 1) = Chr(165) Then
                        TempChar = DelimitFromXL
                    Else
                        TempChar = Mid(OutLine, K, 1)
                    End If
                    OutLine2 = OutLine2 & TempChar
                Next K
                'Write to file
                OutFile.WriteLine OutLine2
            Next
            'MsgBox "Completed Successfully"
        Else
            'MsgBox "No records returned"
        End If
    Else
    '    MsgBox "Error calling SAP RFC_READ_TABLE"
    End If
''MAST Material to BOM Link*****************************************

Answer 1

hi John
you can create a join of those multiple tables in an internal table
and then u can view that on this single internal table....
like:-
example
SELECT c~carrname
              p~connid
              f~fldate
INTO CORRESPONDING FIELDS OF TABLE itab
    FROM ( ( scarr AS c INNER JOIN spfli AS p
                  ON pcarrid   = ccarrid
                  AND p~cityfrom = p_cityfr
                  AND p~cityto   = p_cityto )
         INNER JOIN sflight AS f ON fcarrid = pcarrid
                                AND fconnid = pconnid ).
LOOP AT itab INTO wa.
  WRITE: / wa-fldate, wa-carrname, wa-connid.
ENDLOOP.