create or alter procedure p1 as begin end; commit;
recreate table dlist(id bigint primary key); commit;
 insert into dlist values(1); commit; 
set term ^;
create or alter procedure p1 returns (v_id bigint) as
    declare v_stt varchar(255);
begin
    v_stt = 'select id from dlist where id = :x';
     execute statement (v_stt) ( x := 1 ) into v_id; 
    suspend;
end
^ set term ;^
commit;

2014-07-04T16:53:23.4560 (5340:0x7f53a79b1fa8) EXECUTE_STATEMENT_FINISH
        oltp30 (ATT_15, SYSDBA:NONE, WIN1251, TCPv4:192.168.43.96)
        C:\MIX\IBE\IBExpert.exe:3096
                (TRA_63, READ_COMMITTED | REC_VERSION | NOWAIT | READ_WRITE)

Statement 25:
-------------------------------------------------------------------------------
execute block (
    INP_0 VARCHAR(255) = ?  )
returns (
    OUT_0 BIGINT)
as
begin
execute statement ( :INP_0 ) ( x := 1 )
into :OUT_0;
suspend;
end


param0 = varchar(255), "select id from dlist where id=:x"

 1 records fetched 
      1 ms