create or replace function LongToVarchar(a varchar2) return varchar2 is
x varchar2(32767);
begin
select EMAIL_BODY
into x
from S_EVT_MAIL
where row_id=a;
return substr(x,1, 1000);
end;
SELECT ….,
LongToVarchar(S_EVT_MAIL.ROW_ID) as EMAIL_BODY
FROM
S_EVT_MAIL