TRY
  THROW
CATCH TO oExp
  ? "EXPECTED 2071 ", "Observed ", oExp.ErrorNo
  ? "EXPECTED User Thrown Error  ", ;
  		"Observed ", oExp.Message
ENDTRY

>CLEAR
>ON ERROR
>TRY
>  THROW
>CATCH
>  ? "EXPECTED 2071 ", "Observed a none error", ERROR()
>  ? "EXPECTED User Thrown Error  ", "Observed a funny message",MESSAGE()
>  =AERROR(aw)	
>  ? "EXPECTED 2071 ", "Observed a bad code",aw(1)
>  ? "EXPECTED User Thrown Error  ", "Observed a funny message",aw(2)
>  ? "***** next is ok "
>  ? aw(3)
>ENDTRY
>