Как вариант

----------------------------------------------------------------------------
-- Процедура get_CR_LF() возвращает два символа 0x0D 0x0A
----------------------------------------------------------------------------

--drop procedure get_CR_LF;

create procedure get_CR_LF()
returning nchar(2);

return (select data[29,30]
from sysprocbody
where procid = (select procid
from sysprocedures
where lower(procname) = lower('get_CR_LF'))
and datakey='T' and seqno=1);

end procedure;

----------------------------------------------------------------------------
-- Пример
----------------------------------------------------------------------------

execute procedure get_CR_LF()

----------------------------------------------------------------------------
-- Процедура test_proc1(input)
-- разделяет входную строку (input)
-- на заголовок (head) и остальной текст (body)
----------------------------------------------------------------------------

--drop procedure test_proc1;

create procedure test_proc1( input nvarchar(250) )
returning nvarchar(250);
define head, body nvarchar(250);
define crlf nchar(2);

let crlf = get_CR_LF();

return 'input = ' || trim(input) with resume;

let head = replace(input,crlf,rpad(' ',500,' '));

let body = substr(input,length(head)+3);

return 'head = ' || trim(head) with resume;
return 'body = ' || trim(body) with resume;

end procedure;

----------------------------------------------------------------------------
-- Пример
----------------------------------------------------------------------------

execute procedure test_proc1( 'Заголовок' || get_CR_LF() || 'Остальной
текст' )

--результат такой:
--input = Заголовок <перевод строки> Остальной текст
--head = Заголовок
--body = Остальной текст
----------------------------------------------------------------------------

Данный сценарий любезно предоставил И.Каленченко .... :)

C уважением,
GVF112