/******************************************************************************/
/***         Generated by IBExpert 2017.2.28.1 28.03.2017 10:10:37          ***/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES WIN1251;

SET CLIENTLIB 'fbclient.dll';

CREATE DATABASE 'localhost:cursor_test'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET WIN1251 COLLATION WIN1251;



/******************************************************************************/
/***                           Stored procedures                            ***/
/******************************************************************************/



SET TERM ^ ;

CREATE PROCEDURE TEST_CURSOR_TMP
RETURNS (
    TYPE_S VARCHAR(10),
    FIELD_1 INTEGER)
AS
BEGIN
  SUSPEND;
END^





CREATE PROCEDURE TEST_CURSOR_TMP_2
RETURNS (
    TYPE_S VARCHAR(10),
    FIELD_1 INTEGER)
AS
BEGIN
  SUSPEND;
END^






SET TERM ; ^



/******************************************************************************/
/***                                 Tables                                 ***/
/******************************************************************************/



CREATE GLOBAL TEMPORARY TABLE TEMP_TABLE (
    FIELD_1  INTEGER
) ON COMMIT DELETE ROWS;




/******************************************************************************/
/***                           Stored procedures                            ***/
/******************************************************************************/



SET TERM ^ ;

ALTER PROCEDURE TEST_CURSOR_TMP
RETURNS (
    TYPE_S VARCHAR(10),
    FIELD_1 INTEGER)
AS
declare C cursor for (
    select FIELD_1
    from TEMP_TABLE);
begin
  insert into TEMP_TABLE (FIELD_1) values (1);
  insert into TEMP_TABLE (FIELD_1) values (2);
  insert into TEMP_TABLE (FIELD_1) values (3);
  insert into TEMP_TABLE (FIELD_1) values (4);

  type_s = 'cursor';
  open c;
  while (1 = 1) do
  begin
    fetch c into :field_1;
    if (row_count = 0) then
      leave;
    suspend;
  end
  close c;


  for select 'for select', field_1
      from temp_table
      into :type_s, :field_1
  do suspend;

end^


ALTER PROCEDURE TEST_CURSOR_TMP_2
RETURNS (
    TYPE_S VARCHAR(10),
    FIELD_1 INTEGER)
AS
declare C cursor for (
    select FIELD_1
    from TEMP_TABLE);
begin
  insert into TEMP_TABLE (FIELD_1) values (1);
  insert into TEMP_TABLE (FIELD_1) values (2);
  insert into TEMP_TABLE (FIELD_1) values (3);
  insert into TEMP_TABLE (FIELD_1) values (4);

  for select 'for select', field_1
      from temp_table
      into :type_s, :field_1
  do suspend;

  type_s = 'cursor';
  open c;
  while (1 = 1) do
  begin
    fetch c into :field_1;
    if (row_count = 0) then
      leave;
    suspend;
  end
  close c;

end^



SET TERM ; ^