How to set a srvroutine in a "Failed" state programmatically

[dvanoni]

Hi all!

is it possible to set a srvroutine in a "Failed" state programmatically?

Thanks

For example:

Code: Select all

Srvroutine Name(my_srvroutine)
	if cond(some_condition)
		* Set "Failed" state
		Return
	endif
Endroutine

Mthroutine Name(my_mthroutine)
	Define_com Class(#MySrvModule.my_srvroutine) Name(#my_srvroutine)
	my_srvroutine.Execute
	Evtroutine Handling(my_srvroutine.Completed)
	
	Endroutine
	Evtroutine Handling(my_srvroutine.Failed)
	
	Endroutine	
Endroutine

[MarkD]

You could use http://docs.lansa.com/14/en/LANSA015/Co ... /abort.htm

[Stewart Marshall]

Dividing by zero works nicely too

[dannyoorburg]

But wouldn't it be so much more graceful to return a field with some sort of result code that has meaning within your application....



Danny

[dvanoni]

It works using the "Abort" command!

Thanks a lot!