lc_error = SET('ERROR') ll_error = .f. ON ERROR ll_error = .t. *do something that might cause an error IF ll_error * clean up ENDIF ON ERROR &lc_error.
TRY * do something that might cause an error CATCH * clean up ENDTRY