blob1

CREATE OR REPLACE FUNCTION blob_to_text(p_blob BLOB) RETURN VARCHAR2 IS
l_text VARCHAR2(32767);
l_len INTEGER;
BEGIN
IF p_blob IS NULL THEN
RETURN '';
END IF;

l_len := LEAST(DBMS_LOB.GETLENGTH(p_blob), 32767);

l_text := UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(p_blob, l_len, 1));

RETURN REPLACE(l_text, CHR(1), '|');
END;