続き

PBソース
OLEObject o_object
OLEObject o_connection

any o_matnr

//===== R/3システムへのリモートログオン START =====
o_object = create oleobject
o_object.ConnectToNewObject(\"SAP.Functions\")

o_connection = o_object.NewConnection

//R/3ログオン情報の設定（サイレントモードのみ）
o_connection.System = \"000\"
o_connection.ApplicationServer = \"111.222.333.444\"
o_connection.SystemNumber = \"00\"
o_connection.Client = \"999\"
o_connection.User = \"TestUser\"
o_connection.Password = \"******\"
o_connection.Language = \"JA\"

//R/3ログオン（引数True→falseにするとポップアップでログオン情報入力）
if o_connection.Logon(0 , true) = false then
  //ログオン失敗！！ 
　MessageBox(\"Error!\",\"Error!\")
   o_connection.logoff
   destroy o_connection
   o_object.disconnectobject()
   destroy o_object
   return
end if

OLEObject o_function
OLEObject func
OLEObject Data1
OLEObject Field1
OLEObject Option1

o_function = create OLEobject
o_function.Connection = o_connection

func = create oleobject
func = o_function.Add(\"RFC_READ_TABLE\")

Data1 = func.FUNC.tables.Item(\"DATA\")
Field1 = func.FUNC.tables.Item(\"FIELDS\")

Field1.FreeTable
Field1(1, \"FIELDNAME\") = \"NAME1\"

Option1 = func.Tables(\"OPTIONS\")
Data1.FreeTable

func.Exports(\"QUERY_TABLE\")
func.Exports.item[1] = \"AAA1\"

Optioni1.AppendRow
Optioni1(1, \"TEXT\") = \"AAAA = \" + \"\'00000000\'\"

if func.Call() = true then
  if IsNull(func.Exports.item[1]) = False then
StrName = Data1(1, \"AA\")
        MessageBox(\"OK!\",StrName)
  End if
else
    MessageBox(\"Error!\",\"Error!\")
   o_connection.logoff
   destroy o_connection
   o_object.disconnectobject()
   destroy o_object
   return
end if

・
・
・

ログオンまではできるのですが、
Field1(1, \"FIELDNAME\") = \"NAME1\"あたりがコンパイルエラーになります。

以上