Enterprise Integration Forum : No batch input for screen SAPMP50A 1000

I'm using the LC LSX example way of calling RFC_CALL_TRANSACTION, however I keep receiving error message "No batch input for screen SAPMP50A 1000".

Could anyone kindly enlighten me what has gone wrong ??

The following are my LCLSX scripts:

sapsession.Procedure = "PA30"
sapsession.ModuleType = 1
sapsession.ScreenFields = +_
"$SAPMP50A=1000," +_
"BDC_OKCODE=INS," +_
"RP50G-PERNR," +_
"BDC_SUBSCR=/1PAPAXX/HDR_20025A," +_
"BDC_SUBSCR=SAPMP50A," +_
"BDC_SUBSCR=SAPMP50A," +_
"BDC_CURSOR=RP50G-BEGDA," +_
"RP50G-TIMR6=X," +_
"RP50G-BEGDA," +_
"BDC_SUBSCR=SAPMP50A," +_
"RP50G-CHOIC=15," +_
"RP50G-SUBTY," +_
"$MP001500=2998," +_
"BDC_CURSOR=Q0015-BETRG," +_
"BDC_OKCODE==EDQ," +_
"Q0015-BETRG," +_
"P0015-ZUORD," +_
"P0015-ZZBCR_NUMBER," +_
"$MP001500=2998," +_
"BDC_CURSOR=Q0015-BETRG," +_
"BDC_OKCODE=UPD," +_
"Q0015-BETRG," +_
"P0015-ZUORD," +_
"P0015-ZZBCR_NUMBER," +_
"BDC_SUBSCR=SAPMP50A"

Set field = transinputlist.Append ("RP50G-PERNR", LCTYPE_TEXT)
field.text = ThisDoc.PERNR(0)

Set field = transinputlist.Append ("RP50G-BEGDA", LCTYPE_TEXT)
field.text = DateClaim

Set field = transinputlist.Append ("RP50G-SUBTY", LCTYPE_TEXT)
field.text = strWage

Set field = transinputlist.Append ("Q0015-BETRG", LCTYPE_TEXT)
field.text = ThisDoc.TotalR(0)

Set field = transinputlist.Append ("P0015-ZUORD", LCTYPE_TEXT)
field.text = ThisDoc.SerialNo(0)

Set field = transinputlist.Append ("P0015-ZZBCR_NUMBER", LCTYPE_TEXT)
field.text = ThisDoc.BCR(0)

sapsession.MapByName=True

Call sapsession.Call (transinputlist, 1, transoutputlist)

Dim strImportMsg As lcfield
Dim strImportMsgNo As lcfield

If (sapsession.Fetch (transoutputlist) > 0) Then

' Get message : Your trip number is ...
Set strImportMsg = transoutputlist.lookup("EXPORTSMESSGMSGTX",index)
Set strImportMsgNo = transoutputlist.lookup("EXPORTSMESSGMSGNO",index)

If strImportMsgNo.Value(0) = "102" Then
MedPayToSAP = "Record Created"
Else
MedPayToSAP = StrImportMsg.Value(0)
End If

End If

Thanks for any help. Regards

Enterprise Integration Forum

Resources

Lotus Support

Wikis

Lotus Forums