Доки для кого даются? Форум не для ответов на элементарные вопросы, а для получения помощи в решении сложных, нестандартных задач. Ты представь, если бы сюда все такие вопросы задавали - тут бы сообщени за миллион уже было бы.

CREATE PROCEDURE RETURN_N_RECORDS
RETURNS (
MESSAGE_ID INTEGER)
AS
begin
/* Procedure Text */
for select first 5000 message_id from messages where message_id>11300
into :message_id do
suspend;
end

Как по мне - совершенно безсмысленная процедура ...