I have a XMLTYPE with the following content:
user1
ITS VERY GOOD!!
CADENA CLOB;
BEGIN
SELECT CASE
WHEN EXISTSNODE (:NEW.MENSAJE, '/Body') <> 0 THEN 'ERROR'
ELSE NULL
END
INTO :NEW.DESCRIPCION_ERROR
FROM DUAL;
CADENA := :NEW.MENSAJE.EXTRACT ('/Body/xmlOriginal/text()').getStringVal ();
CADENA := REPLACE (CADENA, '<', '<');
CADENA := REPLACE (CADENA, '>', '>');