LN developpement. Use emulation of tcibd0501m000

Jim
Jim Member Posts: 1
in Developer Portal Forum

Hi

I try to modify the unit of an item by using session tcibd0501m000 call by emulation.

The code is:

			tcibdf0501m000.put.Item(my.item)

			ret = tcibdf0501m000.find(r.mess)

			if ret <> 1 then


			else

				tcibdf0501m000.handle.sub.process("tcibd0501m000", "add")

				tcibdf0501m000.define.enum.answer("tcibd0101c", tcyesno.yes)

    			        tcibdf0501m000.put.Inventory_Unit(my.basu)


				tcibdf0501m000.put.Revision_Controlled(tcyesno.yes)

ret = tcibdf0501m000.update(1, r.mess)

				if ret = 0 then

					if not isspace(r.mess) then

						brp.ready(rp)

					endif

					ret = tcibdf0501m000.recover(r.mess)



				endif

				tcibdf0501m000.end()

			endif

			tcibdf0501m000.end()

I have an error in the update action:

image.png

Does anyone has an exemple of this king of creation or update of the tcibd001 data?

I don't use dal function because I want to emulate the ask.enum function (not in dal).

Thank you for help

Categories