Visual LANSA Forum

Posted: **Fri Oct 21, 2016 5:37 pm**

Hi all!

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

Thanks

For example:

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

Posted: **Fri Oct 21, 2016 5:54 pm**

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

Posted: **Fri Oct 21, 2016 6:21 pm**

Dividing by zero works nicely too

Posted: **Fri Oct 21, 2016 6:29 pm**

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

Posted: **Fri Oct 21, 2016 6:42 pm**

It works using the "Abort" command!

Thanks a lot!

Visual LANSA Forum

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

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

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

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

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

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