Hi, experts,

I am trying to update the lot selection for the specified purchase order line. But I am always getting the following error message.

Thanks for your help.

---------------------------
1 : process 11 - Fatal error : [MR_INDEXOUT] index 0 from Dim [1] 217
2 : process 11 - Fatal error : Can not continue in ttstpoledaem in DLL: ottstpamdll (dal.set.field)[]


Below is the code:

domain tcmcs.str50 result
long ret
db.retry.point()

select *
from tdpur401 for update
where tdpur401._index1 = {:i.orno, :i.pono,:i.sqnb}
selectdo
ret = dal.change.object("tdpur401")

dal.set.field("tdpur401.csel", i.lsel)
dal.set.field("tdpur401.clot", i.lot)
ret = dal.save.object("tdpur401")

if ret = 0 then
result = "Line Lot Number Updated"
commit.transaction()
else
dal.get.error.message(result)
abort.transaction()
endif

selectempty
result = "Line Not Found"
endselect

return(result)

Hi,

just a guess, but should be dal.set.field("tdpur401.lsel", i.lsel) instead of dal.set.field("tdpur401.csel", i.lsel).
Field tdpur401.csel doesn`t exists in the standard table.

regards,
Juergen

Great, you made it. Thank you very much.

How careless I was.