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