> CATCH TO lo_Exception > lcErrorMsg='<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>' + ; > CHR(13) + ; > '<text>' + ; > 'Error: '+TRANSFORM(lo_Exception.Errorno)+' - '+lo_Exception.Message+; > CHR(13)+; > 'Line #: '+TRANSFORM(lo_Exception.lineno)+' - '+lo_Exception.linecontents+; > CHR(13)+; > 'Function: '+TRIM(lo_Exception.procedure) + ; > '</text>' > > * Used to return meaningful error message to calling program > RETURN lcErrorMsg >