Enterprise Integration Forum : sapsession.Fetch and MESS

Hi,
We have upgraded the SAP connector after the the upgrade of SAP system (to ECC version). Because, we could not use the old scripts anymore. Now, we are using the new script library/methods and we were be able to send the data to SAP but we could not get the old return message which we are saving it into notes document.

At SAP side, we could see all records in MESS_TAB and we could see the required return message at the end of the recordset but when we try to fetch filed list we get only the first record in the table(MESS_TAB).

Is there anybody knows How to get all records from MESS_TAB.

Here is the sample code. Although we use "while" to get all messages we can only get one record.

Thank you in advance!

Engin

CODE:

'and fill it into batch input table
intItemCount = Ubound(itmField.Values)
wrkstring = wrkstring + itmField.Values(0) + "=" + itmValue.Values(0)
For intIndex = 1 To intItemCount
wrkstring = wrkstring + "," + itmField.Values(intIndex) + "=" + itmValue.Values(intIndex)
Next
sapsession.ScreenFields = wrkstring
sapsession.MapByName=True

Call sapsession.Call(transinputlist,1,transoutputlist)

While (sapsession.Fetch (transoutputlist) > 0)
Set Field = transoutputlist.lookup("EXPORTSSUBRC",index)
Set msgid = transoutputlist.Lookup("MESS_TABMSGID")
Set msgnr = transoutputlist.Lookup("MESS_TABMSGNR")
Set msgv1 = transoutputlist.Lookup("MESS_TABMSGV1")
Set msgv2 = transoutputlist.Lookup("MESS_TABMSGV2")
If Field.Text(0) = "0" Then sMessage="(Post edilmiştir)" Else sMessage="(Post İşeminde Hata Alınmıştır!!!)"
MsgBox "MSGID = " + msgid.Text(0) + Chr(13) + _
"MSGNR = " + msgnr.Text(0) + Chr(13) + _
"MSGV1 = " + msgv1.Text(0) + Chr(13) + _
"MSGV2 = " + msgv2.Text(0) + Chr(13) + sMessage

docTrans.Message = msgv2.text(0)
docTrans.Msg = msgv2.text(0)
Wend

Enterprise Integration Forum

Resources

Lotus Support

Wikis

Lotus Forums