EXEC SQL BEGIN DECLARE SECTION;
   sqlint32 hvOutId;
EXEC SQL END DECLARE SECTION;

sqlint32 lRet = false;

EXEC SQL WHENEVER SQLERROR GOTO return_error;

EXEC SQL
   SELECT ID
      INTO :hvOutId
     FROM SCH.TABLE WHERE FLAG = 'O';

  lRet = true;

return_error:

  EXEC SQL ROLLBACK;

CREATE USER TEMPORARY TABLESPACE TSPACE1 MANAGED BY SYSTEM USING ('TSPACE')@
declare global temporary table session.t1(i int) on commit preserve rows not logged in tspace1@

create procedure pro1()
dynamic result sets  1 
begin atomic
  DECLARE c1 CURSOR WITH RETURN FOR
    select i from session.t1;
  
  -- можно отсюда вынести эти команды
  insert into session.t1 values( 7 );
  insert into session.t1 values( 8 );
  open c1;
end@

-- Нормально работает
call pro1()@

-- !!! некорректная функция, просто пример того, что можно вызвать pro1 из UDF
create function f1()
returns table (i int)
modifies sql data
begin atomic
  call pro1();
  return values( 6 );
end@

select * from TABLE(f1()) as f@