CREATE OR ALTER PACKAGE MYPACKAGE
AS
begin
  procedure GetData
  returns (
    id integer
  );
end

RECREATE PACKAGE BODY MYPACKAGE
AS
begin
  procedure GetInnerData
  returns (
    id integer
  )
  as
  declare variable i integer = 1000;
  begin
    while (i > 0) do
    begin
      id = i;
      suspend;
      i = i - 1;
    end
  end

  procedure GetData
  returns (
    id integer
  )
  as
  begin
    for select id
        from GetInnerData
        into :id
    do suspend;
  end

end

GRANT SELECT ON GETINNERDATA TO PACKAGE MYPACKAGE

This operation is not defined for system tables.
unsuccessful metadata update.
GRANT failed.
table/view GETINNERDATA does not exist.

..............
  procedure GetData
  returns (
    id integer
  )
  as
  begin
    for select id
        from MYPACKAGE.GetInnerData
        into :id
    do suspend;
  end
........................