CREATE OR ALTER PROCEDURE SP_0
RETURNS (
    CODE_DEPARTURE INT,
    CODE_BREED INT)
AS
BEGIN
  FOR SELECT CODE_DEPARTURE
      FROM DEPARTURE
      AS CURSOR C                               -- если есть эта конструкция можно без into
  DO
  BEGIN
    FOR SELECT CODE_BREED
        FROM BREED
        WHERE CODE_DEPARTURE = :C.CODE_DEPARTURE -- можно ссылаться на курсор с : и без
        INTO :CODE_BREED
    DO BEGIN
      CODE_DEPARTURE = C.CODE_DEPARTURE;         -- и тут тоже
      SUSPEND;
    END
  END
END

CREATE OR ALTER PROCEDURE NEW_PROCEDURE
returns (i int)
AS
  declare c cursor for (
     select id ,id_t3
     from t2
  );
begin
  open c;
  while (1=1)
  do
  begin
    fetch c;
    if (row_count = 0) then
      exit;
    i = c.id;
    suspend;
  end
end

    FETCH <cursor_name> INTO <var_name> [, <var_name> ...];
    FETCH {NEXT | PRIOR | FIRST | LAST | ABSOLUTE <n> | RELATIVE <n>} FROM <cursor_name> INTO <var_name> [, <var_name> ...];

GRANT EXECUTE ON FUNCTION IIF TO PACKAGE PKG_DNA_GENETIC

This operation is not defined for system tables.
unsuccessful metadata update.
GRANT failed.
action cancelled by trigger (0) to preserve data integrity.
could not find object for GRANT.

SET TERM ^ ;

CREATE package new_package
as
begin
  procedure p1 returns (i int);
  procedure p2 returns (i int);
  procedure p3;
end^

CREATE package body new_package
as
begin
  procedure p1 returns (i int)
  as
  begin
    i = 1;
    suspend;
  end

  procedure p2 returns (i int)
  as
  begin
    execute procedure p3;
    for select i
        from p1
        into :i
    do suspend;
  end

  procedure p3
  as
  begin
  end
end^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE P3 TO PACKAGE NEW_PACKAGE;